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');
Cevapla
#3
(18-10-2017, Saat: 02:35)mcuyan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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');

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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(18-10-2017, Saat: 02:35)mcuyan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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');

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


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  timage üzerinde mouse ile çizim duraumsa 0 97 02-09-2019, Saat: 16:16
Son Yorum: duraumsa
  IPhone resim aktarma sorunu adelphiforumz 10 632 10-07-2019, Saat: 20:00
Son Yorum: SimaWB
  Resim içerisindeki Herhangi Bir Renge Zemin Resmi Verme (2 renk verme (Pattern)) pro_imaj 10 799 15-04-2019, Saat: 18:04
Son Yorum: esistem
  StatusBar nasıl resim ekliyebilirim? burak 6 748 12-04-2019, Saat: 18:55
Son Yorum: SimaWB
  Resim karsilastirma arsl01 3 542 07-03-2019, Saat: 15:50
Son Yorum: arsl01



Konuyu Okuyanlar: 1 Ziyaretçi