Memory Leak no ACBrSATExtratoFR;

[Paulo R Vieira Jr]

Olá à todos!

Tenho uma unit que cria o componente TACBrSATExtratoFR na mão e estava tendo problema de memory leak;

No destructor desta unit (ACBrSATExtratoFR.pas) eu acrescentei as 2 linhas abaixo e aparentemente resolveu o problema. Podem dar uma verificada por favor se é isso mesmo? Obrigado.

if Assigned(frxReport) then
    frxReport.Free;

Exemplo:

function TEmissor.CriarComponenteDANFESat: TACBrSATExtratoClass;
begin
  Result := TACBrSATExtratoFR.Create(nil);
  TACBrSATExtratoFR(Result).FastExtrato    := 'caminho do .fr3';
  TACBrSATExtratoFR(Result).LarguraBobina  := 290;
  TACBrSATExtratoFR(Result).MargemSuperior := 0;
  TACBrSATExtratoFR(Result).MargemInferior := 0;
  TACBrSATExtratoFR(Result).MargemEsquerda := 0;
  TACBrSATExtratoFR(Result).MargemDireita  := 4;
  TACBrSATExtratoFR(Result).MostraPreview  := False;
  TACBrSATExtratoFR(Result).EspacoFinal    := 0;
  Result.ACBrSAT := FACBrSAT;
end;

function TEmissor.DownloadPdfSat(cFile: string): TBytes;
var
  DANFESat: TACBrSATExtratoClass;
begin
  DANFESat := CriarComponenteDANFESat;
  try
    FACBrSAT.CFe.Clear;
    FACBrSAT.CFe.LoadFromFile(cFile);

    DANFESat.Filtro     := TACBrSATExtratoFiltro.fiPDF;
    DANFESat.NomeDocumento := copy(cFile, 1, LastDelimiter('.', cFile)) + 'pdf';
    DANFESat.NumCopias  := 1;
    DANFESat.PathPDF    := copy(cFile, 1, LastDelimiter('\', cFile));

    try
      DANFESat.ImprimirExtrato();
    finally
      ;
    end;

    try
      Result := TFile.ReadAllBytes(DANFESat.ArquivoPDF);
    finally
      ;
    end;
  finally
    FreeAndNil(DANFESat);
  end;
end;
 

Obrigado.

Paulo R Vieira Jr
Wisesoft Sistemas

[Victor H. Gonzales - Panda]

Boa noite, anexe a unit por favor

[Victor H. Gonzales - Panda]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Paulo R Vieira Jr]

olá Victor,

ACBrSATExtratoFR.pas

segue a unit modificada as 2 linhas add em destructor...

[Juliana Tamizou]

Boa tarde.

Adicionado ao backlog na TK-1974, o problema será analisado na sprint desta semana.

Att.

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[Paulo R Vieira Jr]

Boa tarde Victor,

atualizei hoje os fontes, recompilei, fiz os testes e está tudo certo.

A meu ver o tópico pode ser encerrado.

Abs e obrigado.

[Victor H. Gonzales - Panda]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.