Tales Mendes de Camargo

Segue arquivo. Valeu ACBrSchemasMatera.pas

Após chamar a ConsultarAliasRetirada e finalizar ocorrem alguns vazamentos de memória. Identifiquei o problema e corrigi na unit ACBrSchemasMatera, segue a imagem dos vazamentos e a correção comentando os create's/free (já estão na classe herdada) e adicionando inherited do Destroy;

@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

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

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

Com ajuda do pessoal do suporte da Fiorilli consegui identificar que havia um problema de formatação na tag para telefone na verdade. Resolvido.

Após atualizar os fontes para resolver um problema de assinatura no cancelamento que foi resolvido, agora não está mais enviando devido a internar error que acredito que é pelo xml no envelope está com falhas. Em anexo estão dois arquivos e notei que está com duas assinaturas e não passa no validador da receita. Acredito que deve ser isso pois antes de atualizar o Acbr tudo funcionava menos o Cancelamento. Grato! 3021-env-lotS-soap.xml 3021-env-lotS.xml