program PDFInfo;

{$APPTYPE CONSOLE}

uses

SysUtils,

Graphics,

Classes,

HPDFDoc;

 

var

HPDF: THotPDF;

 

begin

HPDF:= THotPDF.Create(nil);

try

HPDF.AutoLaunch := true;                                              // فایل PDF به طور خودکار نشان داده خواهد شد

   HPDF.ShowInfo := true;                                                   // Include information into document

HPDF.FileName := 'Hello world.pdf';

HPDF.Author := 'http://www.loslab.com/';                            // Set information about author

HPDF.Subject := 'HotPDF console information demo';        // Set document subject

HPDF.Title := 'Information Demo';                                     // Set document title

HPDF.BeginDoc;                                                             // ایجاد فایل PDF

HPDF.CurrentPage.TextOut(10, 10, 0, 'Information Demo');  // Print text

HPDF.EndDoc;                                                                // بستن فایل PDF

finally

HPDF.Free;

end;

end.