Possivel solução em memory leak em ACBrMDFeWebServices

[Antonio Carlos L]

Revision 33422.

Estava dando o seguinte memoryleak ao efetuar consulta MDFe.
 

 

Achei a classe TProcInfraSA na unit ACBrMDFeWebServices

A classe é criada no metodo TMDFeConsulta.Clear e esta sendo destruída no destrutor;

Adicionei essa verificação antes de criar 

if Assigned(FprocInfraSA) then FprocInfraSA.Free;

  FprocInfraSA := TProcInfraSA.Create;

e o leak desapareceu.

Para vossas considerações.
 

[Juliomar Marchetti]

No caso o correto seria destruir ao fim do uso ?  e não ao criar ele ?
fontes estão 100% atualizados todos pois tenho validação de vazamento e uso o MDFe e não ocorre usando o sistema

[Antonio Carlos L]

OI Juliomar.

Levando em consideração sua resposta, olhei a chamada da consulta e esta identica ao exemplo do MDFe em procedure TfrmACBrMDFe.btnConsultarClick(Sender: TObject);

Veja no código da Revision 33422 na unit ACBrMDFeWebServices .

Existe outras duas variaveis FprotMDFe e FprocEventoMDFe, coloquei o bloco de código abaixo, que também são destruídas se existirem antes de serem criadas.

Segui apenas a mesma logica em relação a FprocInfraSA.

O fato é que se eu remover essa linha e fizer varias consultas acontecem vários MemoryLeak e acrescentando essa linha não ocorre.

 

procedure TMDFeConsulta.Clear;
begin
  inherited Clear;

  ....

  if Assigned(FPConfiguracoesMDFe) then
  begin
    FtpAmb := FPConfiguracoesMDFe.WebServices.Ambiente;
    FcUF := FPConfiguracoesMDFe.WebServices.UFCodigo;
  end;

  if Assigned(FprotMDFe) then
    FprotMDFe.Free;

  if Assigned(FprocEventoMDFe) then
    FprocEventoMDFe.Free;

  if Assigned(FprocInfraSA) then  FprocInfraSA.Free;  <<< adicionado
   

  FprotMDFe       := TProcMDFe.Create;
  FprocEventoMDFe := TRetEventoMDFeCollection.Create;

  FprocInfraSA := TProcInfraSA.Create;
end;

[Italo Giurizzato Junior]

Bom dia Antonio,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas para analise. TK-5379

[Antonio Carlos L]

Obrigado @Italo Giurizzato Junior pela atenção.

[Italo Giurizzato Junior]

Bom dia Antonio,

Já esta no SVN.