Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Varbinary(MAX) Tipindeki Resim Dosyalarını Timage Kolay Gösterim
#1
Merhaba;

Timage nesnesindeki resmi veri tabanındaki varbinary(Max) alanına aşağıdaki gibi tek satırda  kayıt yapıyorum.
QMusteri.FieldByName('Resim').Assign(image1.Bitmap);


Bu işlemin tersi olarak; Veri tabanındaki varbinary(MAX) tipindeki resmi Timage nesnesinde nasıl gösteriyorsunuz. Sizin kullanımınız nasıl?

Teşekkürler.
Cevapla
#2
ben önce blob field i bir jpeg dosyaya kaydediyor sonrasında imaj nesnesine basıyorum..

   TBlobField(q0.fieldbyname('dosya')).SaveToFile(ExtractFilePath(Application.ExeName)+'file1.jpg');
   Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'file1.jpg');
WWW
Cevapla
#3
(18-10-2017, Saat: 02:35)mcuyan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olben önce blob field i bir jpeg dosyaya kaydediyor sonrasında imaj nesnesine basıyorum..

   
TBlobField(q0.fieldbyname('dosya')).SaveToFile(ExtractFilePath(Application.ExeName)+'file1.jpg');
    Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'file1.jpg');

Sonrasında ilgili dosyayı silmekte gerekecek!
Cevapla
#4
(18-10-2017, Saat: 15:03)pro_imaj Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(18-10-2017, Saat: 02:35)mcuyan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olben önce blob field i bir jpeg dosyaya kaydediyor sonrasında imaj nesnesine basıyorum..

   
TBlobField(q0.fieldbyname('dosya')).SaveToFile(ExtractFilePath(Application.ExeName)+'file1.jpg');
    Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'file1.jpg');

Sonrasında ilgili dosyayı silmekte gerekecek!

Bu durumda SaveToStream / LoadFromStream metodlarını kullanabilirsiniz Wink
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#5
Sonuç olarak bu şekilde kullanıyorum.
Daha farklı yöntemi olan varsa alalım. Smile

var
 Resim1 :TMemoryStream;
begin
 Resim1 := TMemoryStream.Create;


 try
   TBlobField(QMusteri.FieldByName('Resim')).SaveToStream(Resim1);
   image1.Bitmap.LoadFromStream(Resim1);
 finally
   Resim1.Free;
 end;
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  DBGrid resim ön izleme Lord_Ares 3 36 1 saat önce
Son Yorum: esistem
  Transparan resim Bay_Y 7 237 03-10-2018, Saat: 18:20
Son Yorum: Bay_Y
  Resim üzerindeki nesnenin alanını hesaplama beklentili 5 477 29-08-2018, Saat: 17:53
Son Yorum: ssahinoglu
  HHBMailComponent - Kolay Mail Gönderim Bileşeni [Delphi] Halil Han Badem 23 1.438 09-08-2018, Saat: 02:20
Son Yorum: Halil Han Badem
  Program içinde resim üzerine yazi gonulali 1 255 06-06-2018, Saat: 11:29
Son Yorum: iyarar



Konuyu Okuyanlar: 1 Ziyaretçi