resim gösterirken hata veriyor

[erdogan_ozkaya]

Arkadaşlar,

aynı kodu başka bir projede kullanıyorum sorun yok ama bir projede aşağıdaki hatayı veriyor neden bir türlü anlamadım.

kod

Kod: Tümünü seç

procedure TRESIM_GOSTER_PENCERE.dbgrd1CellClick(Column: TColumn);
var
 AStream: TMemoryStream;
begin
       if qryQRY_RESIMLER_DB.fieldByName('RESIM').Value=''
       then  else
       begin
        AStream := TMemoryStream.Create;
        try
          if qryQRY_RESIMLER_DB.Active then
          begin
            TBlobField(qryQRY_RESIMLER_DB.FieldByName('RESIM')).SaveToStream(AStream);
            AStream.Position := 0;
            img1.Picture.Graphic.LoadFromStream(AStream);
          end;
         finally
          AStream.Free;
         end;
    end;
end;

hata mesajı

[erdogan_ozkaya]

AŞAĞIDAKİ KOD İLE ÇÖZÜDÜ.

Kod: Tümünü seç

var
  MS: TMemoryStream;
  J1: TJPEGImage;
begin
  J1 := TJPEGImage.Create; 
  MS := TMemoryStream.Create;
  try 
    TBlobField(qryQRY_RESIMLER_DB.Fieldbyname('RESIM')).SaveToStream(MS);
    MS.Seek(0,soFromBeginning);
    with J1 do begin
      PixelFormat := jf24Bit;
      Scale := jsFullSize;
      Grayscale := False;
      Performance := jpBestQuality;
      ProgressiveDisplay := True;
      ProgressiveEncoding := True;
      LoadFromStream(MS);
    end;
    if MS.Size >0 then
      img1.Picture.Assign(J1)
    else
      img1.Picture.Assign(nil);
  finally
    J1.Free;
    MS.Free;
  end;