function AddJpegImage(JpegImage: TStream; X, Y, Width, Height: Double): Boolean;
| JpegImage | TStream. Ham JPEG sıkıştırılmış veri içeren bir stream. Metot çağrıldığında stream konumu JPEG verisinin başında olmalıdır |
True JPEG verisi başarıyla çözümlenip sayfaya gömülürse True döndürür False if the stream does not contain valid JPEG data or if the embedding operation fails.AddJpegImage embeds a JPEG image supplied as a raw byte stream onto the current PDF page. Because the JPEG data is passed directly without re-encoding, image quality is preserved exactly as stored in the source stream. This makes the method well-suited for high-volume document generation where decoding and re-compressing images would introduce unnecessary quality loss or CPU overhead.
JpegImage stream'i, SOI marker'ından başlayan eksiksiz ve geçerli bir JPEG dosyası içermelidir. Metodu çağırmadan önce stream'in geçerli konumu JPEG verisinin başında olmalıdır. Herhangi bir TStream türü kabul edilir — TFileStream, TMemoryStream, veritabanı blob stream'leri vb
X ve Y parametreleri, PDF user unit cinsinden yerleşim dikdörtgeninin sol alt köşesini belirtir (başlangıç noktası sayfanın sol altındadır, Y yukarı doğru artar). Width ve Height sayfadaki işlenmiş boyutu ayarlar; JPEG, piksel boyutlarından bağımsız olarak sığdırılır
Metot başarı durumunda True döndürür. Stream geçerli JPEG verisi içermiyorsa exception fırlatmadan False döndürür; dolayısıyla kaynağı belirsiz verilerle çalışırken dönüş değerini kontrol edin
var
Stream: TFileStream;
begin
Stream := TFileStream.Create('C:\Images\photo.jpg', fmOpenRead or fmShareDenyNone);
try
Pdf1.NewPage(595, 842);
if not Pdf1.AddJpegImage(Stream, 72, 400, 300, 225) then
ShowMessage('Failed to embed JPEG image.');
finally
Stream.Free;
end;
end;