Code Example

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 file will be shown automatically
    HPDF.FileName := '\ImageDemo.pdf';     // Set PDF filename

    HPDF.BeginDoc;                    // Create PDF file

    Index := HPDF.AddImage( '\Image.jpg', icJpeg );                     // Add image to the document
    HPDF.CurrentPage.ShowImage( Index, 10, 10, 390, 300, 0 );   // Show image with sizes 390 x 300

    HPDF.EndDoc;                       // Close PDF file
  finally
      HPDF.Free;
  end;
end.