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
  Program içinde resim üzerine yazi gonulali 1 121 06-06-2018, Saat: 11:29
Son Yorum: iyarar
  HHBMailComponent - Kolay Mail Gönderim Bileşeni [Delphi] hyperxman 22 882 07-05-2018, Saat: 19:44
Son Yorum: hyperxman
  URLDownloadToFileW api türkçe karakter resim indirmiyor. masteryoda 5 212 14-04-2018, Saat: 16:54
Son Yorum: barutali
  Resim üzerindeki nesnenin alanını hesaplama beklentili 4 290 31-03-2018, Saat: 16:23
Son Yorum: beklentili
  Fastreport koşula göre gösterim klavye 4 297 17-03-2018, Saat: 17:29
Son Yorum: klavye



Konuyu Okuyanlar: 1 Ziyaretçi