TPicture.LoadFromFile kullanır, bu yüzden VCL veya LCL grafik sistemine kayıtlı tüm görüntü biçimleri desteklenir. BMP, PNG (Vcl.Imaging.PngImage ya da LCL karşılığı üzerinden), JPEG ve diğerleri buna dahildir. Koordinatlar PDF kullanıcı uzayındadır (başlangıç sayfanın sol alt köşesidir); Width ve Height yerleştirme boyutudur, kaynak görüntünün piksel boyutu değildir.procedure AddImage(const FileName: string; X, Y, Width, Height: Double);
| FileName | dize. Görüntü dosyasının tam yolu. VCL/LCL grafik sistemiyle kayıtlı herhangi bir biçim (BMP, PNG, JPG vb.) kabul edilir |
procedure AddImage(Bitmap: TBitmap; X, Y, Width, Height: Double);
| Bitmap | TBitmap. A pre-loaded bitmap with PixelFormat = pf32bit. Must not be nil; raises EPdfError otherwise. |
AddImage geçerli PDF sayfasına belirtilen konum ve boyutta bir görüntü yerleştirir. İki aşırı yükleme vardır: biri görüntüyü doğrudan bir dosya yolundan yükler, diğeri önceden hazırlanmış bir TBitmap nesnesi kabul eder
Dosya tabanlı aşırı yükleme içerde TPicture.LoadFromFile kullanır, bu yüzden VCL veya LCL grafik sistemine kayıtlı tüm görüntü biçimleri desteklenir; BMP, PNG (Vcl.Imaging.PngImage ya da LCL karşılığı üzerinden), JPEG ve diğerleri buna dahildir. Yöntemi çağırmadan önce projenizin uses bildirimine ilgili birimleri eklediğinizden emin olun
Bitmap aşırı yüklemesi PixelFormat = pf32bit olan bir TBitmap kabul eder. Bu, bitmap zaten bellekteyse örneğin ekrandışı bir çizim adımından sonra yararlıdır ve diskten ya da TPicture üzerinden geçişi önler. nil bitmap geçirmek EPdfError özel durumu oluşturur
X ve Y parametreleri, PDF kullanıcı birimlerinde görüntü yerleşim dikdörtgeninin sol alt köşesini belirtir (sayfa sol alt köşe başlangıçtır, Y yukarı doğru artar). Width ve Height sayfadaki işlenmiş boyutu denetler; kaynak görüntü piksel çözünürlüğünden bağımsız olarak bu boyutlara uyacak şekilde ölçeklenir
// Bir PNG dosyasını (72, 600) konumuna yerleştir, sayfada 200 x 150 pt olarak işle
Pdf1.NewPage(595, 842);
Pdf1.AddImage('C:\Images\logo.png', 72, 600, 200, 150);
// Önceden hazırlanmış 32 bit bitmap ekle
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;