program ImageDemo;

{$APPTYPE CONSOLE}

uses

SysUtils,

Graphics,

Classes,

HPDFDoc;

var

I: Integer;

HPDF: THotPDF;

Index: Integer;

begin

HPDF:= THotPDF.Create( nil );

try

HPDF.AutoLaunch := true;                     // ไฟล์ PDF จะแสดงโดยอัตโนมัติ

HPDF.FileName := 'ImageDemo.pdf';

HPDF.BeginDoc;                   // สร้างไฟล์ PDF

Index := HPDF.AddImage( '.\Image.jpg', icJpeg );                     // เพิ่มรูปภาพลงในเอกสาร

HPDF.CurrentPage.ShowImage( Index, 10, 10, 390, 300, 0 );   // แสดงรูปภาพที่มีขนาด 390 x 300

HPDF.EndDoc;                      // ปิดไฟล์ PDF

finally

HPDF.Free;

end;

end