Veritabanında resim

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
siyamali
Üye
Mesajlar: 10
Kayıt: 27 Nis 2005 03:00

Veritabanında resim

Mesaj gönderen siyamali »

Öncelikle herkese iyi çalışmalar dilerim.
Firebird Veritabanı kullanıyorum. Hazırlamış olduğum musteri adlı tabloda RESIM adında blob bir alan var.

1> Bu resmi dbgrid de listeleme sırasında nasıl gösterebilirim?
2> Dbpicture ile bu resmi göremiyorum. Nasıl görebilirim?

Şimdiden teşekkürler.
gorecelik
Üye
Mesajlar: 23
Kayıt: 27 Nis 2005 02:59
Konum: İstanbul
İletişim:

Re: Veritabanında resim

Mesaj gönderen gorecelik »

S.a.
Önümde delphi yoktur kusura baka belki hata yapabilirim çünkü test etme imkanım yok.

DBGridde yanılmıyorsam OnDrawColumnCell diye bi olay var senin yapacağın resim fieldini görünyü getireceksin yani gride ekleyeceksin daha sonrada bu kodu OnDrawColumnCell bu olaya yazacaksın inş. doğrudur test imkanım olmadı.

Kod: Tümünü seç

var
  Bmp : TBitmap;
begin
If (Column.Field.DataType=ftGraphic) Then Begin
  Bmp:=TBitmap.Create;
  try
    Bmp.Assign(Column.Field);
    Canvas.StretchDraw(Rect,Bmp)
  finally
    Bmp.Free;
  end;
end;
Cevapla