aliviar memoria Delphi
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
Curtidas 0
Respostas
Roberto Castelani
27/08/2020
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!!!!
GOSTEI 0