WEB servisten alıp diske kaydettiğim dosyayı QReport ile yazdırıyorum. Aynı dosyayı yüklediğim halde, preview ekranında bazen ilk resimdeki gibi siyah görüntülenirken bazen de ikinci resimdeki gibi doğru görüntüleniyor. Aşağıdaki iki görüntü de aynı dosyaya ait :
Kullandığım kod şu şekilde :
Kod: Tümünü seç
var
BMP : TBitmap;
pt:TPoint;
begin
QRImage1.Picture := nil;
Image.Picture.LoadFromFile(QRFileName);
Bmp := TBitmap.Create;
try
Bmp.Assign(Image.Picture.Graphic);
GetBrushOrgEx(QRImage1.Canvas.Handle, pt);
SetStretchBltMode(QRImage1.Canvas.Handle, HALFTONE);
SetBrushOrgEx(QRImage1.Canvas.Handle, pt.x, pt.y, @pt);
with Bmp do
QRImage1.Canvas.CopyRect(QRImage1.Canvas.ClipRect, Canvas, Canvas.ClipRect);
finally
Bmp.Free;
end;
Hatanın kaynağı ile ilgili yardımcı olabilecek var mı ? Şimdiden teşekkürler...