Fórum Consumo De memoria ao Cirar PDF utilizando o RAVE. #453907
02/09/2013
0
Boa Tarde.
Estou Com um problema, tenho uma procedure no delphi que criar vários arquivos de Pdf em uma determinada pasta.
procedure:
Procedure TForm1.Button1Click(Sender: TObject);
var
vo_retrato, vo_paisagem : TOrientation; //variaveis criadas para mudar a orientação do rave
vi_contador, i , vaux : integer;
RPRenderPDF1 , RPRenderPDF_vazio: TRvRenderPDF;
vs_nome , vs_caminho :String;
begin
i := 200;
for i := 0 to i -1 do
begin
rv.SystemSetups := [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup] ;
rv.SystemOptions := [] ;
vo_retrato := Rv_Retrato.SystemPrinter.Orientation;
vo_paisagem := Rv_Paisagem.SystemPrinter.Orientation;
rv.SystemOptions := []; //desabilita a impressao do preview..
//Componente TRvRenderPDF;
pdf.Active := true;
vs_nome := 'pdf' + IntToStr(i);
vs_caminho := '';
vs_caminho := 'C:\Users\csu204\Desktop\testepdf\'+vs_nome+'.pdf';
RPRenderPDF1 := TRvRenderPDF.Create(nil);
rv.DefaultDest := rdFile;
rv.DoNativeOutput := false;
rv.RenderObject := RPRenderPDF1;
rv.OutputFileName := vs_caminho;
rv.Execute;
RPRenderPDF1.Free;
End;
end;
O Problema que acontece que a cada pdf que ele cria ele aumenta o consumo de memória da maquina mais não diminui o Free. E Como estou em um For o consumo da memória só fica aumentando.
Muito Obrigado pela Atenção
Estou Com um problema, tenho uma procedure no delphi que criar vários arquivos de Pdf em uma determinada pasta.
procedure:
Procedure TForm1.Button1Click(Sender: TObject);
var
vo_retrato, vo_paisagem : TOrientation; //variaveis criadas para mudar a orientação do rave
vi_contador, i , vaux : integer;
RPRenderPDF1 , RPRenderPDF_vazio: TRvRenderPDF;
vs_nome , vs_caminho :String;
begin
i := 200;
for i := 0 to i -1 do
begin
rv.SystemSetups := [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup] ;
rv.SystemOptions := [] ;
vo_retrato := Rv_Retrato.SystemPrinter.Orientation;
vo_paisagem := Rv_Paisagem.SystemPrinter.Orientation;
rv.SystemOptions := []; //desabilita a impressao do preview..
//Componente TRvRenderPDF;
pdf.Active := true;
vs_nome := 'pdf' + IntToStr(i);
vs_caminho := '';
vs_caminho := 'C:\Users\csu204\Desktop\testepdf\'+vs_nome+'.pdf';
RPRenderPDF1 := TRvRenderPDF.Create(nil);
rv.DefaultDest := rdFile;
rv.DoNativeOutput := false;
rv.RenderObject := RPRenderPDF1;
rv.OutputFileName := vs_caminho;
rv.Execute;
RPRenderPDF1.Free;
End;
end;
O Problema que acontece que a cada pdf que ele cria ele aumenta o consumo de memória da maquina mais não diminui o Free. E Como estou em um For o consumo da memória só fica aumentando.
Muito Obrigado pela Atenção
Gustavo Verga
Curtir tópico
+ 0
Responder
Posts
02/09/2013
Marcos Saffran
no lugar de :
RPRenderPDF1.Free;
tente
FreeAndNil(RPRenderPDF1);
RPRenderPDF1.Free;
tente
FreeAndNil(RPRenderPDF1);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)