procedure AddImage(const FileName: string; X, Y, Width, Height: Double);
| FileName | string. Fullständig sökväg till bildfilen. Alla format som är registrerade med VCL/LCL-grafiksystemet (BMP, PNG, JPG osv.) accepteras |
procedure AddImage(Bitmap: TBitmap; X, Y, Width, Height: Double);
| Bitmap | TBitmap. En förinläst bitmap med PixelFormat = pf32bit. Får inte vara nil; annars väcks EPdfError |
AddImage placerar en bild på den aktuella PDF-sidan vid angiven position och storlek. Två överlagringar finns: en läser in bilden direkt från en filsökväg och den andra tar emot ett förberett TBitmap-objekt
Filbaserade överlagringen använder TPicture.LoadFromFile internt, så alla bildformat som är registrerade med VCL- eller LCL-grafiksystemet stöds — inklusive BMP, PNG (via Vcl.Imaging.PngImage eller LCL-motsvarigheten), JPEG med flera. Se till att relevanta units finns med i projektets uses-klausul innan du anropar denna metod
Bitmap-överlagringen tar emot en TBitmap med PixelFormat = pf32bit. Detta är användbart när bitmappen redan finns i minnet (till exempel från ett offscreen-renderingssteg) och undviker en omväg via disk eller TPicture. Att skicka in en nil-bitmap väcker ett EPdfError-undantag
Parametrarna X och Y anger nedre vänstra hörnet av bildens placeringsrektangel i PDF-användarenheter (origo i sidans nedre vänstra hörn, Y ökar uppåt). Width och Height styr den renderade storleken på sidan; källbilden skalas för att passa dessa dimensioner oavsett sin pixelupplösning
// 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;