aliviar memoria Delphi
27/08/2020
0
bom dia!
E o seguinte, fiz um formulário que nele gera relatório (QUICKREP) conforme fotos anexadas no mesmo. Em alguns casos, pode conter até 12 fotos, onde para cada arquivo de foto eu chamo um formulário para a geração do PDF.
O problema é que começa a dar o erro de ( não há recurso de memoria disponível), devido o criação dos 12 formulários. (form1,form2,form3 etc..).
O problema que eles estão permanecendo na memoria, e cada vez aumenta a cada chamada.
Alguem sabe como posso criar , destruir e eliminar da memoria?
a chamada:
Application.CreateForm(Tfrel_form1, frel_form1);
frel_form1.QuickRep1.Refresh;
frel_form1.QRImage1.Picture.LoadFromFile(edit1.TEXT);
try
frel_form1.QuickRep1.Prepare;
frel_form1.QuickRep1.PrinterSettings.PrinterIndex:= ListBox2.ItemIndex;
frel_form1.QuickRep1.Print;
except
ShowMessage('Erro na criação do formulário !!');
exit;
END;
frel_form1.Tag:= 0;
frel_form1:= nil;
FreeAndNil(frel_form1);
frel_form1.Free;
E o seguinte, fiz um formulário que nele gera relatório (QUICKREP) conforme fotos anexadas no mesmo. Em alguns casos, pode conter até 12 fotos, onde para cada arquivo de foto eu chamo um formulário para a geração do PDF.
O problema é que começa a dar o erro de ( não há recurso de memoria disponível), devido o criação dos 12 formulários. (form1,form2,form3 etc..).
O problema que eles estão permanecendo na memoria, e cada vez aumenta a cada chamada.
Alguem sabe como posso criar , destruir e eliminar da memoria?
a chamada:
Application.CreateForm(Tfrel_form1, frel_form1);
frel_form1.QuickRep1.Refresh;
frel_form1.QRImage1.Picture.LoadFromFile(edit1.TEXT);
try
frel_form1.QuickRep1.Prepare;
frel_form1.QuickRep1.PrinterSettings.PrinterIndex:= ListBox2.ItemIndex;
frel_form1.QuickRep1.Print;
except
ShowMessage('Erro na criação do formulário !!');
exit;
END;
frel_form1.Tag:= 0;
frel_form1:= nil;
FreeAndNil(frel_form1);
frel_form1.Free;
Daniel Antonio
Curtir tópico
+ 0
Responder
Posts
31/08/2020
Roberto Castelani
boa noite amigo !
Estou sem tempo para explicar a você mais achei um video que possa te ajuda
http://delphiparainiciantes.com.br/como-criar-e-destruir-formularios-no-delphi/
Abraço
Boa Sorte!!!!
Estou sem tempo para explicar a você mais achei um video que possa te ajuda
http://delphiparainiciantes.com.br/como-criar-e-destruir-formularios-no-delphi/
Abraço
Boa Sorte!!!!
Responder
Clique aqui para fazer login e interagir na Comunidade :)