property BitmapCount: Integer; // read only
BitmapCount, geçerli sayfadaki image page objects sayısını döndürür (PDF 1.7 spec section 8.9). Bu özellik, alttaki image stream'i tam olarak işlenmiş bir Delphi TBitmap'e çözen Bitmap[Index] indexeriyle birlikte kullanılır; sonuç 32-bit RGBA olur ve Canvas.Draw, clipboard transferi veya PNG/BMP olarak kaydetme için hazırdır
Değer, Active False olduğunda, PageNumber geçersiz olduğunda ya da sayfa hiçbir image object içermediğinde 0 olur. Sayı ImageCount ile aynıdır; iki özellik yalnızca indexer'larının dönüş türünde farklıdır — Image[Index] ham çözümlenmiş piksel arabelleğini bir TPdfImage record içinde geri verirken, Bitmap[Index] bu arabelleği çağıranın sahip olduğu yönetilen bir VCL TBitmap'e sarar
Tipik döngü for I := 0 to Pdf.BitmapCount - 1 do ardından Pdf.Bitmap[I] biçimindedir. Her erişim yeni bir TBitmap ayırır ve pikselleri kopyalar — bunu sıkı rendering döngülerinde çağırmayın; yeniden kullanılıyorsa bitmap'i önbelleğe alın. Bittiğinde döndürülen her bitmap'i serbest bırakın ki GDI kaynakları zamanında açılsın
TBitmap alpha channel içine birleştirilirImageCount / Image[Index] GDI bitmap ayırma yükünü ortadan kaldırır
var I: Integer;
var Bmp: TBitmap;
for I := 0 to Pdf1.BitmapCount - 1 do
begin
Bmp := Pdf1.Bitmap[I];
try
Bmp.SaveToFile(Format('image_%d.bmp', [I]));
finally
Bmp.Free;
end;
end;