Liberar memoria usada em Cliente

Question

Tenho uma aplicacao cliente que � apenas um Form e de tempo em tempo (a cada 30 segundos mais ou menos) ele executa um procedimento que preenche um strgrid com todos os processos que estao executando ...

Edilcimar · Answer

j� tentou freemem?...

Rjun · Answer

Voce esta criando algum objeto a cada leitura ?...

Xanatos · Answer

BOm...� esse procedimento que esta acumulando memoria no meu aplicativo...

Enum.Next(1,v,cFetched);

Mais ao isolar codigo...eu descobri que � essa funcao que esta fazendo isso...mas mesmo usando FreeMem, FreeandNil...atribuiando Nil ...em todas as variaveis dessa minha procedure e nao adiantou...



procedure TfrmTerminal.ListaProcessos(Enum: IEnumVARIANT);
var
  i,j,ContLinha:integer;

  idi:IDispatch;
  v:OleVariant;
  cFetched: Cardinal;
  WbemObject:ISWbemObject;
  Enum2: IEnumVARIANT;
begin
  i:= 1;
  ContLinha:= 1;


  while true do
  begin
    Enum.Next(1,v,cFetched); // Essa aqui olha!
    if(cFetched = 0) then
    begin
      break;
    end;

    with pbx do
      Position:= Position+1;

    idi:= v;
    idi.QueryInterface(IID_ISWbemObject,WbemObject);
    Enum2:=WbemObject.Properties_._NewEnum as IEnumVariant;
    sgProcessos.Cells[1,Contlinha]:= WbemObject.Path_.Path;
    inc(ContLinha);
    inc(i);
  end;
end;

Massuda · Answer

Talvez sejam as interfaces... experimente[list:d28cfd2091][*:d28cfd2091]No c�digo que chama sua ListaProcessos, nil�zar a vari�vel que voc� passa como parametro,

var
  X: IEnumVariant;
....
  ListaProcessos(X);
  X := nil;

[*:d28cfd2091]No c�digo de sua procedure, no final do loop, nil�zar as interfaces

    ...
    idi:= v;
    idi.QueryInterface(IID_ISWbemObject,WbemObject);
    Enum2:=WbemObject.Properties_._NewEnum as IEnumVariant;
    sgProcessos.Cells[1,Contlinha]:= WbemObject.Path_.Path;
    inc(ContLinha);
    inc(i);
    Enum2 := nil;
    WbemObject := nil;
    idi:= nil;
  end;

[/list:u:d28cfd2091]

Xanatos · Answer

Bom...o que resolveu realmente foi essa atribuicao..

v:= Unassigned;

Mas ainda estou usando ainda dentro do looping...essas outras
idi:= nil;
FreeAndNil(idi);
WbemObject:= Nil;
FreeAndNil(WbemObject);

Aparentemente elas nao adiantam mas a primeira atribuicao resultou na economia de 120k por chamada... pois dentro desse procedimento chamo outro semelhante... mas ainda ta havendo um acrescimo de memoria...de 4 k ...mas ja melhorou muito... Valeu

F�rum Liberar memoria usada em Cliente #275650