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 × 300

HPDF.EndDoc; // إغلاق ملف PDF

finally

     HPDF.Free;

end;

end.