FastMM: memoria totale allocata

Question

Come è possibile ottenere la quantità totale di memoria allocata da FastMM?

Ho provato che:

function GetTotalAllocatedMemory: Cardinal; 
var 
    MMState: TMemoryManagerState; 
begin 
    GetMemoryManagerState(MMState); 
    Result := MMState.TotalAllocatedMediumBlockSize + MMState.TotalAllocatedLargeBlockSize; 
end; 

È vero?

In ogni caso restituisce qualcosa di strano. È 5 volte meno di un valore che posso vedere nel task manager di Windows. Credo che la quantità di memoria allocata da un'applicazione Delphi sia uguale alla memoria allocata da FastMM più un sovraccarico del sistema. Ho sbagliato?

Answer 1

Utilizzare questa:

//------------------------------------------------------------------------------ 
// CsiGetApplicationMemory 
// 
// Returns the amount of memory used by the application (does not include 
// reserved memory) 
//------------------------------------------------------------------------------ 
function CsiGetApplicationMemory: Int64; 
var 
    lMemoryState: TMemoryManagerState; 
    lIndex: Integer; 
begin 
    Result := 0; 

    // get the state 
    GetMemoryManagerState(lMemoryState); 

    with lMemoryState do begin 
    // small blocks 
    for lIndex := Low(SmallBlockTypeStates) to High(SmallBlockTypeStates) do 
     Inc(Result, 
      SmallBlockTypeStates[lIndex].AllocatedBlockCount * 
      SmallBlockTypeStates[lIndex].UseableBlockSize); 

    // medium blocks 
    Inc(Result, TotalAllocatedMediumBlockSize); 

    // large blocks 
    Inc(Result, TotalAllocatedLargeBlockSize); 
    end; 
end; 

Answer 2

Stai confrontando mele e arance.

La memoria di FastMM è l'utilizzo netto della memoria allocata tramite FastMM.

Questo non include almeno questi:

• FastMM testa
• di Windows sovraccarico di blocchi allocati dal FastMM a vostro nome
• di Windows sovraccarico di cose non assegnate dalla FastMM (come lo spazio occupato da DLL nel tuo spazio di processo)
• per le applicazioni GUI: sovraccarico di GDI, GDI +, DirectX, OpenGL e altra memoria per oggetti visivi allocati per tuo conto.

--jeroen

Answer 3

Per l'utilizzo della memoria processo di questo:

//------------------------------------------------------------------------------ 
// CsiGetProcessMemory 
// 
// Return the amount of memory used by the process 
//------------------------------------------------------------------------------ 
function CsiGetProcessMemory: Int64; 
var 
    lMemoryCounters: TProcessMemoryCounters; 
    lSize: Integer; 
begin 
    lSize := SizeOf(lMemoryCounters); 
    FillChar(lMemoryCounters, lSize, 0); 
    if GetProcessMemoryInfo(CsiGetProcessHandle, @lMemoryCounters, lSize) then 
    Result := lMemoryCounters.PageFileUsage 
    else 
    Result := 0; 
end; 

Answer 4

ho anche hanno affrontato questa situazione:

Comunque ret urna qualcosa di strano È 5 volte inferiore a un valore che posso vedere nel task manager di Windows. Credo che la quantità di memoria allocata da un'applicazione Delphi sia uguale alla memoria assegnata da FastMM più un sovraccarico del sistema. Ho sbagliato?

e sprecato diverse ore cercando di scoprire dov'è tutta la memoria. La mia app occupava 170 MB in base alla Task manager, ma le statistiche del FastMM stava mostrando dimensione totale di blocchi allocati ~ 13 Mb:

12565K Allocated 
160840K Overhead 
7% Efficiency 

(estratto da FastMM LogMemoryManagerStateToFile uscita procedura). Alla fine ho capito che questo enorme sovraccarico è causato dalla modalità FullDebug. Mantiene stacktraces per ogni allocazione, quindi se hai molti piccoli blocchi di memoria allocati (la mia app ha UnicodeString x 99137, Unknown x 17014 e ~ 10000 di oggetti Xml) il sovraccarico diventa spaventoso. La rimozione della modalità FullDebug ha restituito il consumo di memoria ai suoi valori normali.

Spero che questo aiuti qualcuno.