Как получить память, используемую программой Delphi

38

Я знаю, как использовать использование системной памяти с помощью GlobalMemoryStatusEx, но это говорит мне, что использует вся ОС.

Я действительно хочу, чтобы моя программа сообщала, сколько памяти она сама выделила и использует.

Есть ли какой-либо путь в моей программе Delphi 2009 для вызова функции Windows или, возможно, некоторой функции FastMM, чтобы узнать память, которая была выделена только моей программой?

Повторяя мой вопрос, я теперь изменил принятый ответ на ответ GetMemoryManagerState от @apenwarr. Он дал идентичные результаты функции GetHeapStatus (теперь устаревшей), которую я использовал, тогда как GetProcessMemoryInfo.WorkingSetSize дал совсем другой результат.

Теги:
memory-management
fastmm

5 ответов

53
Лучший ответ

Вы можете получить полезную информацию об использовании памяти из среды выполнения Delphi, не используя прямые вызовы Win32:

function MemoryUsed: cardinal;
var
    st: TMemoryManagerState;
    sb: TSmallBlockTypeState;
begin
    GetMemoryManagerState(st);
    result := st.TotalAllocatedMediumBlockSize + st.TotalAllocatedLargeBlockSize;
    for sb in st.SmallBlockTypeStates do begin
        result := result + sb.UseableBlockSize * sb.AllocatedBlockCount;
    end;
end;

Самое лучшее в этом методе - это то, что он строго отслеживается: когда вы выделяете память, он поднимается, и когда вы освобождаете память, она сразу же уменьшается на одну и ту же сумму. Я использую это до и после запуска каждого из моих модульных тестов, поэтому я могу сказать, какой тест протекает в памяти (например).

Поделиться
  • 5
    Этот метод действителен при использовании FastMM4 или delphi 2006+, но если вы не используете FastMM4, вы должны начать использовать его!
  • 4
    Это может быть лучший и самый полезный ответ, который я когда-либо видел на StackOverflow. Хотел бы я поднять это 100 раз.
Показать ещё 9 комментариев
19

Из старого сообщения в блоге.

Хотите узнать, сколько памяти используется вашей программой? Эта функция Delphi выполнит трюк.

uses psAPI;

{...}

function CurrentProcessMemory: Cardinal;
var
  MemCounters: TProcessMemoryCounters;
begin
  MemCounters.cb := SizeOf(MemCounters);
  if GetProcessMemoryInfo(GetCurrentProcess,
      @MemCounters,
      SizeOf(MemCounters)) then
    Result := MemCounters.WorkingSetSize
  else
    RaiseLastOSError;
end;

Не знаю, где я получил основы этого, но я добавил к нему некоторую лучшую обработку ошибок и сделал его функцией. WorkingSetSize - это объем используемой памяти. Вы можете использовать аналогичный код для получения других значений для текущего процесса (или любого процесса). Вам нужно будет включить psAPI в ваш оператор использования.

Запись PROCESS_MEMORY_COUNTERS включает в себя:

  • PageFaultCount
  • PeakWorkingSetSize
  • WorkingSetSize
  • QuotaPeakPagedPoolUsage
  • QuotaPagedPoolUsage
  • QuotaPeakNonPagedPoolUsage
  • QuotaNonPagedPoolUsage
  • PagefileUsage
  • PeakPagefileUsage

Вы можете найти все эти значения в диспетчере задач или в Process Explorer.

Поделиться
  • 0
    Прости джим Джерард получил это первым.
4

Я написал эту маленькую функцию, чтобы вернуть текущее использование памяти (приложения):

function ProcessMemory: longint;
var
  pmc: PPROCESS_MEMORY_COUNTERS;
  cb: Integer;
begin
  // Get the used memory for the current process
  cb := SizeOf(TProcessMemoryCounters);
  GetMem(pmc, cb);
  pmc^.cb := cb;
  if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
     Result:= Longint(pmc^.WorkingSetSize);

  FreeMem(pmc);
end;
Поделиться
  • 1
    Зачем использовать GetMem? Просто объявите здесь переменную TProcessmemoryCounters вместо использования динамической.
  • 0
    Это ответ с оптимизацией Роба.
Показать ещё 1 комментарий
3

Вы можете посмотреть пример использования FastMM с проектом UsageTrackerDemo, который поставляется вместе с Demos при загрузке полного пакета FastMM4 из SourceForge.

Поделиться
0

Для интерфейса Win32 API вам нужна функция GetProcessMemoryInfo. Вот пример из страницы MSDN, но код находится на С++. Я думаю, вы можете преобразовать его в Delphi. То, что вы ищете, вероятно, называется "Рабочий размер набора".

#include <windows.h>
#include <stdio.h>
#include <psapi.h>

void PrintMemoryInfo( DWORD processID )
{
    HANDLE hProcess;
    PROCESS_MEMORY_COUNTERS pmc;

    // Print the process identifier.

    printf( "\nProcess ID: %u\n", processID );

    // Print information about the memory usage of the process.

    hProcess = OpenProcess(  PROCESS_QUERY_INFORMATION |
                                    PROCESS_VM_READ,
                                    FALSE, processID );
    if (NULL == hProcess)
        return;

    if ( GetProcessMemoryInfo( hProcess, &pmc, sizeof(pmc)) )
    {
        printf( "\tPageFaultCount: 0x%08X\n", pmc.PageFaultCount );
        printf( "\tPeakWorkingSetSize: 0x%08X\n", 
                  pmc.PeakWorkingSetSize );
        printf( "\tWorkingSetSize: 0x%08X\n", pmc.WorkingSetSize );
        printf( "\tQuotaPeakPagedPoolUsage: 0x%08X\n", 
                  pmc.QuotaPeakPagedPoolUsage );
        printf( "\tQuotaPagedPoolUsage: 0x%08X\n", 
                  pmc.QuotaPagedPoolUsage );
        printf( "\tQuotaPeakNonPagedPoolUsage: 0x%08X\n", 
                  pmc.QuotaPeakNonPagedPoolUsage );
        printf( "\tQuotaNonPagedPoolUsage: 0x%08X\n", 
                  pmc.QuotaNonPagedPoolUsage );
        printf( "\tPagefileUsage: 0x%08X\n", pmc.PagefileUsage ); 
        printf( "\tPeakPagefileUsage: 0x%08X\n", 
                  pmc.PeakPagefileUsage );
    }

    CloseHandle( hProcess );
}

int main( )
{
    // Get the list of process identifiers.

    DWORD aProcesses[1024], cbNeeded, cProcesses;
    unsigned int i;

    if ( !EnumProcesses( aProcesses, sizeof(aProcesses), &cbNeeded ) )
        return 1;

    // Calculate how many process identifiers were returned.

    cProcesses = cbNeeded / sizeof(DWORD);

    // Print the memory usage for each process

    for ( i = 0; i < cProcesses; i++ )
        PrintMemoryInfo( aProcesses[i] );

    return 0;
}
Поделиться
  • 2
    Спасибо за начало. Правильный ответ, но неправильный язык и слишком сложный.

Ещё вопросы

Сообщество Overcoder
Наверх
Меню