resim göstermede sorun

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

resim göstermede sorun

Mesaj gönderen 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.
Kullanıcı avatarı
xozcanx
Üye
Mesajlar: 362
Kayıt: 05 Oca 2012 12:55

Re: resim göstermede sorun

Mesaj gönderen xozcanx »

Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: resim göstermede sorun

Mesaj gönderen 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;
Kullanıcı avatarı
csunguray
Üye
Mesajlar: 855
Kayıt: 09 Ara 2006 05:08
Konum: Adana
İletişim:

Re: resim göstermede sorun

Mesaj gönderen csunguray »

erdogan_ozkaya yazdı:hata veriyor
Verdiği hata mesajını yazmayı unutmuşsunuz.
erdogan_ozkaya yazdı: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?
C. Sunguray
csunguray at netbilisim.kom
Net Bilişim Hizmetleri

Sıradan her programcı bilgisayarın anlayabileceği kodlar yazabilir.
Sadece iyi programcılar insanların da anlayabileceği kodlar yazarlar.
Martin Fowler (http://martinfowler.com/)
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: resim göstermede sorun

Mesaj gönderen erdogan_ozkaya »

bir hata vermiyorki :) son satır end. kısmına imleç gelip kalıyor
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: resim göstermede sorun

Mesaj gönderen SimaWB »

erdogan_ozkaya yazdı:bir hata vermiyorki :) son satır end. kısmına imleç gelip kalıyor
Ama soruyu sorarken "hata veriyor" yazmışsınız :?: :?: :?:
There's no place like 127.0.0.1
Cevapla