Consumo De memoria ao Cirar PDF utilizando o RAVE.

Delphi

02/09/2013

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

Gustavo Verga

Gustavo Verga

Curtidas 0

Respostas

Marcos Saffran

Marcos Saffran

02/09/2013

no lugar de :
RPRenderPDF1.Free;
tente
FreeAndNil(RPRenderPDF1);
GOSTEI 0
Marcos Saffran

Marcos Saffran

02/09/2013

no lugar de :
RPRenderPDF1.Free;
tente
FreeAndNil(RPRenderPDF1);
GOSTEI 0
POSTAR