procedure AddImage(const FileName: string; X, Y, Width, Height: Double);
| FileName | string. Chemin complet vers le fichier image. Tout format enregistré avec le système graphique VCL/LCL (BMP, PNG, JPG, etc.) est accepté |
procedure AddImage(Bitmap: TBitmap; X, Y, Width, Height: Double);
| Bitmap | TBitmap. Un bitmap préchargé avec PixelFormat = pf32bit. Ne doit pas être nil ; lève EPdfError sinon |
AddImage ajoute une image depuis un fichier sur la page PDF active à l’emplacement et à la taille indiqués. Deux surcharges sont disponibles : l’une charge l’image directement depuis un chemin de fichier, l’autre accepte un objet TBitmap préconstruit
La surcharge basée sur un fichier utilise en interne TPicture.LoadFromFile, donc tout format d’image enregistré avec le système graphique VCL ou LCL est pris en charge — y compris BMP, PNG (via Vcl.Imaging.PngImage ou l’équivalent LCL), JPEG et autres. Veillez simplement à inclure les unités nécessaires dans la clause uses de votre projet avant d’appeler cette méthode
La surcharge bitmap accepte un TBitmap avec PixelFormat = pf32bit. C’est utile lorsque le bitmap est déjà en mémoire et évite un aller-retour par le disque ou TPicture. Le fait de passer un bitmap nil déclenche une exception EPdfError
Les paramètres X et Y indiquent le coin inférieur gauche du rectangle de placement de l’image dans les unités utilisateur PDF (origine en bas à gauche de la page, Y augmente vers le haut). Width et Height contrôlent la taille rendue sur la page ; l’image source est mise à l’échelle pour correspondre à ces dimensions, quelle que soit sa résolution en pixels
// Place a PNG file at (72, 600), rendered 200 x 150 pt on the page
Pdf1.NewPage(595, 842);
Pdf1.AddImage('C:\Images\logo.png', 72, 600, 200, 150);
// Add a pre-built 32-bit bitmap
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.PixelFormat := pf32bit;
Bmp.LoadFromFile('C:\Images\photo.bmp');
Pdf1.AddImage(Bmp, 72, 400, 300, 200);
finally
Bmp.Free;
end;
end;