Вопросы Теги

Как использовать Память Программой Delphi

Независимо от того, что вы делаете в конечном итоге, убедитесь, что вы проверяете, что ваш вход еще не был искажен magic_quotes или каким-то другим благонамеренным мусором, и, если необходимо, запустите его через stripslashes или что-то еще, чтобы его дезинфицировать .

46
задан lkessler 4 April 2011 в 07:30
поделиться

5 ответов

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

unit X;

uses  FastMM4; //include this or method will return 0.
....

function GetMemoryUsed: UInt64;
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;

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

69
ответ дан Johan 26 November 2019 в 20:20
поделиться

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

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;
4
ответ дан 26 November 2019 в 20:20
поделиться

Можно посмотреть на пример о том, как использовать FastMM с проектом UsageTrackerDemo, который появляется включенный с Образцами, когда Вы загружаете полный пакет FastMM4 с SourceForge.

4
ответ дан François 26 November 2019 в 20:20
поделиться

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

#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;
}
1
ответ дан Gant 26 November 2019 в 20:20
поделиться

От старого моего сообщения в блоге.

Хотите знать, сколько памяти Ваша программа использует? Эта функция 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

Можно найти все эти значения в Проводнике Диспетчера задач или Процесса.

21
ответ дан Jim McKeeth 26 November 2019 в 20:20
поделиться
Другие вопросы по тегам:

Похожие вопросы: