8 replies to this topic

[ramflores]

Buen dia Foro.

 

Antes que nada quiero compartir con ustedes una clases para el consumo de WMI

https://github.com/R...class-generator

 

Tengo un servicio que esta monitoreando la carga de UPS, mi problema es que no se libera la memoria, el consumo empieza a incrementarce con el tiempo, ya le agregue dos codigoa para liberar memoria pero no funciona, el servicio esta corriendo sobre un server Window 2008 R2 64bit les dejo el codigo que se ejecuta

 

1. Este se ejecuta cada 5segundos con un timer

delphi

procedure TService1.Timer1Timer(Sender: TObject);
var
  LBatery : TWin32_Battery;
begin
    LIB_IniLoad;
    LBatery := TWin32_Battery.Create;
    if ((LBatery.EstimatedChargeRemaining <= _INI_LECTURA_MIN) And (Length(LBatery.Name)>0)) then
      begin
        LIB_GrabaLog('Dando de baja el servidor .. carga al '+IntToStr(LBatery.EstimatedChargeRemaining));
        BajaServer;
      end;
    LBatery.Free;
    Application.ProcessMessages;
    LiberarMemoria;
    Optimizar_memoria;
end;

2. Estos son los procedimientos que implemente para la liberarción de memoria

delphi

procedure LiberarMemoria;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;
 
procedure Optimizar_memoria;
var
  MainHandle : THandle;
begin
  try
    MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
    SetProcessWorkingSetSize(MainHandle,DWORD(-1),DWORD(-1));
  finally
    CloseHandle(MainHandle);
  end;
end;

Gracias de Antemano

[enecumene]

Tengo entendido que SetProcessWorkingSetSize "sólo controla" el contenido de la memoria llegando a incrementar la misma, por lo que no libera la misma, si no es así, corrígenme.

[enecumene]

Viendolo mejor, por qué no cambias $FFFFFF por -1 en SetProcessWorkingSetSize? en el procedimiento LiberarMemoria.

[ramflores]

Gracias por responder , en realidad no entiendo bien eso, que diferencia haria ese cambio o el porque?, mas que nada para entenderlo bien

 

Gracias de antenano

[ramflores]

Me marca error:

php

SetProcessWorkingSetSize(GetCurrentProcess, -1, -1)

[genriquez]

Hola, yo tengo varios servicios y siempre y cuando realices un Free a los objetos creados es suficiente para que libere la memoria.  por cada objeto que se inicialice o módulo que se cree debe existir el respectivo free.

 

 

es de aclarar que el manejador de memoria no baja inmediatamente la memoria de la aplicación, esto se podría ver después de algunos segundos o minutos, esto varía de acuerdo como el sistema vaya eliminando la memoria asignada.  

 

tal vez podrías mostrarnos que hacen algunas rutinas a ver si es necesario bajar memoria, como "LIB_IniLoad"

 

Saludos.

[ramflores]

Muchas Gracias por responder

 

El "LIB_IniLoad" carga variables de parametros desde un archivo ini

delphi

procedure LIB_IniLoad;
var
  sFileName : String;
  FileIni : TIniFile;
begin
    sFileName := ChangeFileExt(Application.ExeName,'.ini');
    FileIni   := TIniFile.Create(sFileName);
 
        _INI_SERVER     := FileIni.ReadString('BD','Servidor', 'localhost' );
        _INI_BASEDATOS  := FileIni.ReadString('BD','BaseDatos', 'basedatos' );
        _INI_USUARIO    := FileIni.ReadString('BD','Usuario',   'user' );
        _INI_PASSWORD   := FileIni.ReadString('BD','Password',  'pass' );
 
        _INI_LECTURA_MIN  := FileIni.ReadInteger('Alerta','LecturaMIN', 30 );
        _INI_SUCURSAL     := FileIni.ReadInteger('Alerta','Sucursal', 0 );
 
    FreeAndNil( FileIni );
end;

[Agustin Ortu]

Este tipo de problemas de fugas de memoria, no se puede capturar con el manejador de memoria (FastMM)? Me refiero a usar ReportMemoryLeaksOnShutdown := True;

 

ue tal si se usa FastMM en "full debug mode"?  Full debug mode seria utilizar la version completa del manejador, es decir la original, y no la version que viene por defecto en Delphi que le quitaron algunas cosillas

 

Si buscas en internet justamente, FastMM full debug mode vas a encontrar enseguida como se hace

[ramflores]

Muchas gracias por tu respuesta Agustin, voy a checarlo y les retroalimento