Yüklenen JPG dosyanın siyah görünmesi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Salih
Üye
Mesajlar: 235
Kayıt: 11 Mar 2004 05:36

Yüklenen JPG dosyanın siyah görünmesi

Mesaj gönderen Salih » 17 Şub 2017 09:47

Merhaba,

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 :
Resim

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;
Bu hata tamamen random bir sıklıkta oluşuyor. Aynı dosyayı seçtiğim halde örneğin 20 kere doğru görünüp, 21. de hatalı görünebiliyor.

Hatanın kaynağı ile ilgili yardımcı olabilecek var mı ? Şimdiden teşekkürler...
Sevgi, Saygı.....

Cevapla