|
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. |