GdPicturePdf.DrawText

[10risp]

I am using version 9 GdPicture pluggin to PDF .
I'm trying to put page numbers in the footer of a PDF derived from a TIFF .
The following is the code that utilized in the example :

Code: Select all

GdPicturePDFArq : = TGdPicturePDF.Create ( NIL ) ;
GdPicturePDFArq.LoadFromFile ( ' C : \ trans1.pdf ' , false) ;
For i: = 1 To GdPicturePDFArq.GetPageCount the
Begin
  GdPicturePDFArq.SelectPage ( i);
  source: GdPicturePDFArq.AddTrueTypeFont = ( ' Arial ' , false , false , false ) ;
    GdPicturePDFArq.SetTextMode ( PdfTextMode_PdfTextModeOutlinePath );
    GdPicturePDFArq.SetTextSize (30);
    GdPicturePDFarq.SetFillColor_2 ( 255,0,0,0 );
    GdPicturePDFarq.SetOrigin ( PdfOrigin_PdfOriginTopLeft );
    GdPicturePDFarq.SetMeasurementUnit ( PdfMeasurementUnit_PdfMeasurementUnitCentimeter );
    GdPicturePDFarq.DrawText ( source , 1,1 , ' Page: ' + IntToStr ( i ) ) ;
end ;

" System.OutOfMemoryException " : the following message is appearing .
in various methods , returns me the message .

What can it be?

The following methods , display the same error.
SetTextMode
SetMeasurementUnit
DrawText

[SamiKharma]

Hi,

It is hard to tell with just this code, but what I am guessing is that you have a serious memory leak in your application.
In any case, your code should not repeat the following lines at every iteration of the pages, once before the iterations should be fine:

Code: Select all

 source: GdPicturePDFArq.AddTrueTypeFont = ( ' Arial ' , false , false , false ) ;
    GdPicturePDFArq.SetTextMode ( PdfTextMode_PdfTextModeOutlinePath );
    GdPicturePDFArq.SetTextSize (30);
    GdPicturePDFarq.SetFillColor_2 ( 255,0,0,0 );
    GdPicturePDFarq.SetOrigin ( PdfOrigin_PdfOriginTopLeft );
    GdPicturePDFarq.SetMeasurementUnit ( PdfMeasurementUnit_PdfMeasurementUnitCentimeter );

Best,
Sami