Memory Leaked no ACBrPSPMatera se chamar ConsultarTransacao ou ConsultarExtratoEC

[Tales Mendes de Camargo]

Por exemplo, após gerar um qrcode e ficar chamando ConsultarTransacao para consultar se esta concluída.

Ao sair o Memory Leaked ocorre.

Parece ser na TMateraTransactionResponseArray.

This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):

13 - 20 bytes: ACBrJSON.TACBrJSONObject x 4, JsonDataObjects_ACBr.TJsonArray x 4, System.Classes.TList x 4, Unknown x 4
21 - 36 bytes: JsonDataObjects_ACBr.TJsonObject x 6, UnicodeString x 8, Unknown x 10
37 - 52 bytes: UnicodeString x 14
53 - 68 bytes: UnicodeString x 2
69 - 84 bytes: UnicodeString x 2, Unknown x 2
85 - 100 bytes: UnicodeString x 6

 

[Juliomar Marchetti]

Consegue gerar o log do componente ?

dúvida se fizer uma única consulta não ocorre o leak?

[Tales Mendes de Camargo]

Enviei o log do componente e o log do fastmm.

Ocorre sempre. A cada chamada a função vai aumentando.

Ao que me parece TransacoesResposta.Clear não está dando free nos objetos, mas é só uma suposição.

E no Destroy também está faltando dar free em fSaldoECResposta.

Obrigado

ACBrPixCDMatera_MemoryManager_EventLog.zip _log.txt

[Tales Mendes de Camargo]

@Juliomar Marchetti encontrei os problemas e estou enviando a unit ACBrPIXPSPMatera.pas em anexo.

Alterações que fiz:

função RemoverResponseData não estava dando free e adicionei o try finally:

function TACBrPSPMatera.RemoverResponseData(aJson: String): String;
var
  wJO: TACBrJSONObject;
begin
  wJO := TACBrJSONObject.Parse(aJson);
  try
    try
      Result := wJO.AsJSONObject['data'].ToJSON;
    except
      Result := aJson;
    end;
  finally
    wJO.Free;
  end;
end;

=======================================================

destructor TACBrPSPMatera.Destroy;
begin

...

  if Assigned(fExtratoECResposta) then
    fExtratoECResposta.Free;

  if Assigned(fSaldoECResposta) then
    fSaldoECResposta.Free;

  inherited Destroy;
end;

========================================================

procedure TACBrPSPMatera.Clear;
begin
  inherited Clear;

  ...

  if Assigned(fExtratoECResposta) then
    fExtratoECResposta.Clear;

  if Assigned(fSaldoECResposta) then
    fSaldoECResposta.Clear;
end;

ACBrPIXPSPMatera.pas

[EliasCesar]

Bom dia pessoal, 
Acabei de enviar as correções ao SVN, rev: 36356.