Não Desaloca Memória Ao Enviar Dacte Via E-Mail

[GustavoKato]

Bom dia pessoal.

Desenvolvi um serviço para transmissão e autorização de CT-es no qual utilizo também a rotina de enviar os DACTEs via e-mail e notei que o consumo de memória está subindo demasiadamente visto que a intenção é funcionar 24/7. Notei que provavelmente é a rotina de gerar o PDF (utilizo QuickReport) que deve estar mantendo sujeira na memória. Rastreei mas só encontrei alguns objetos/referencias utilizando apenas "Free" ao invés de "FreeandNil" porém não acredito que seja motivo para aumentar tanto o consumo.

 

Alguma sugestão?

 

Valeu!

[GustavoKato]

nenhuma luz?

[Juliomar Marchetti]

Se usa o QuickReport veja a versão pois lembro de um tópico onde o italo falou de problemas em versões mais antigas

tentou isso?

[Reinaldo Silveira]

Bom dia, GustavoKato.

 

Não sei se você já conseguiu uma solução para o problema mencionado, mas eu estava passando por algo parecido: eu tenho uma aplicação que verifica o status de NFe's e CTe's de tempos em tempos.

Eu notei que minha aplicação estava consumindo muita memória, mesmo eu liberando todos os componentes criados em runtime.

Após algumas pesquisas, achei uma dica que resolveu o meu problema e talvez sirva para vc. Segue o procedimento:

 

//fonte: http://www.agnaldocarmo.com.br/home/comando-milagroso-para-reducao-de-memoria-delphi/

procedure TrimAppMemorySize;

var

  MainHandle : THandle;

begin

  try

    MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID) ;

    SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF) ;

    CloseHandle(MainHandle) ;

  except

  end;

  Application.ProcessMessages;

end;

 

Eu passei a chamar esse procedimento após minhas consultas e a alocação de memória diminui drasticamente.

 

Espero ter ajudado.

[GustavoKato]

bom dia galera, obrigado pelas respostas mas não é nenhum dos casos...

 

acredito q o problema esteja no quick report, os objetos TQRx são proporcionais as vezes q chamo o

ACBrCTe1.Conhecimentos.ImprimirPDF;

 

[GustavoKato]

Encontrei o erro, na rotina TfrmDACTeQR.SavePDF adicionar QRCTe.QRPrinter.Free; no finally

Espero ter colaborado

abraço

[Juliomar Marchetti]

Caso queira contribuir anexe a unit para avaliação da alteração!

[GustavoKato]

segue anexo a unit alterada

ACBrCTeDACTeQR.pas