FastMM: Total de memoria asignada

Question

¿Cómo podría obtener la cantidad total de memoria asignada por FastMM?

lo he intentado:

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

¿Es correcto?

De todos modos, devuelve algo extraño. Es 5 veces menos que un valor que puedo ver en el administrador de tareas de Windows. Creo que la cantidad de memoria asignada por una aplicación Delphi es igual a la memoria asignada a FastMM más cierta sobrecarga del sistema. ¿Me equivoco?

Answer 1

Utilice esta:

//------------------------------------------------------------------------------ 
// 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

Estás viendo manzanas y naranjas.

La memoria FastMM es el uso neto de la memoria asignada a través de FastMM.

Esto no incluye, al menos, los siguientes:

• sobrecarga FastMM
• de Windows por encima de los bloques asignados por FastMM en su nombre
• de Windows por encima de lo que no asignados por FastMM (como el espacio ocupado por DLL en su espacio de proceso)
• para aplicaciones de GUI: gastos generales de GDI, GDI +, DirectX, OpenGL y otro almacenamiento para objetos visuales asignados en su nombre.

--jeroen

Answer 3

Para el uso de memoria de proceso siguiente:

//------------------------------------------------------------------------------ 
// 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

también se han enfrentado a esta situación:

De todos modos, ret urnas algo extraño. Es 5 veces menos que un valor que puedo ver en el administrador de tareas de Windows. Creo que la cantidad de memoria asignada por una aplicación Delphi es igual a la memoria asignada de FastMM más algunos gastos generales del sistema. ¿Me equivoco?

y perdí varias horas tratando de averiguar dónde está toda la memoria. Mi aplicación ocupado 170 Mb según el gerente de tareas, pero las estadísticas de FastMM se muestra el tamaño total de bloques asignados ~ 13 Mb:

12565K Allocated 
160840K Overhead 
7% Efficiency 

(extracto de FastMM LogMemoryManagerStateToFile procedimiento de salida). Finalmente me di cuenta de que esta sobrecarga enorme es causada por el modo FullDebug. Mantiene stacktraces para cada asignación así que si tienes asignados muchos pequeños bloques de memoria (mi aplicación tenía UnicodeString x 99137, Unknown x 17014 y ~ 10000 de objetos Xml) la sobrecarga se vuelve aterradora. La eliminación del modo FullDebug devolvió el consumo de memoria a sus valores normales.

Espero que esto ayude a alguien.