resim göstermede sorun

[erdogan_ozkaya]

Arkadaşlar aşağıdaki kod ile resimi göstermeye çalışıyorum ama hata veriyor fikri olan varmı acaba ?

delphi xe8 kullanıyorum.


teşekkürler

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  AA : TMemoryStream;
begin
  AA  := TMemoryStream.Create;
  try
    TBlobField(QRY_PERSONEL_DB.FieldByName('RESIM')).SaveToStream(AA );
    AA .Position := 0;
    Image1.Bitmap.LoadFromStream(AA );

  finally
   AA .Free;
  end;
end;

end.

[xozcanx]

Merahaba,
Burayı inceleyebilirsiniz.

[erdogan_ozkaya]

Cevabınız için teşekkürler fakat o kodlar xe8 de çalışmıyor

aşağıdaki kod delphi7 de çalışıyor fakat xe8 çalışmıyor.

Kod: Tümünü seç

procedure TPERSONEL_LISTE_RAPOR.dbgrd1DblClick(Sender: TObject);
var
    Stream: TMemoryStream;
    Jpg: TJpegImage;
begin 
    Jpg := nil;
    Stream := nil;
    try
      Stream := TMemoryStream.Create;
      TBlobField(QRY_PERSONEL_LISTE_DB.FieldByName('RESIM')).SaveToStream(Stream);
      if Stream.Size > 0 then begin
        Jpg := TJpegImage.Create;
        Stream.Position := 0;
         Jpg.LoadFromStream(Stream);
        RESIM_GOSTER_PENCERE.img1.Picture.Assign(Jpg);
      end
      else
        RESIM_GOSTER_PENCERE.img1.Picture.Assign(nil);
    except
      RESIM_GOSTER_PENCERE.img1.Picture.Assign(nil);
    end;
    jpg.Free;
    Stream.Free;

      RESIM_GOSTER_PENCERE.Caption:='Personel Liste';
      RESIM_GOSTER_PENCERE.ShowModal;  
end;

[csunguray]

hata veriyor

Verdiği hata mesajını yazmayı unutmuşsunuz.

delphi7 de çalışıyor fakat xe8 çalışmıyor.

Çalışmıyor derken:

Derlenirken mi hata veriyor?
Çalışırken hata mesajı mı veriyor?
Çalışıyorken bilgisayar mı kilitleniyor?
Çalışıyor ama istediğiniz sonucu üretmiyor mu?

[erdogan_ozkaya]

bir hata vermiyorki son satır end. kısmına imleç gelip kalıyor

[SimaWB]

bir hata vermiyorki son satır end. kısmına imleç gelip kalıyor

Ama soruyu sorarken "hata veriyor" yazmışsınız