Wie speichere ich ein Image in eine Datenbank

[LingNeu]

Hi Delphifans,
verwende die Componenten von DevExpress. Habe da auf einem Formular eine Timage, welches angezeigt wird. Nun möchte ich gerne dieses Bild in die Komponente von DevExpress dbImage einspeichern.
Ich bekomme aber immer einen Error. Könnte mir da bitte jemand helfen. Danke für jede Hilfe
ciao LingNeu

Delphi-Quellcode:

// in Image1 befindet sich das zu übertragene Bild
// aBild ist ein Blobfeld in der Datenbank
Tab_A.Edit
if not VarIsNull(Image1.Picture.Bitmap) then begin
   Tab_A['aBild']   := Image1.Picture.Bitmap  ;
end;
Tab_A.Post ;
// inkompatible Typen Variant und TPicture

[himitsu]

Zitat:

VarIsNull(Image1.Picture.Bitmap)

VarIsNull?
Seit wann ist dieses Bitmap-Proeperty ein Variant?
Und schon könnte man sich denken, warum das nicht geht.

Aber warum TImage und nicht TDBImage, welches man genau so, wie z.B. ein TDBEdit, an die DataSource hängt?



Ansonsten geht wohl der Weg eher über Image.Picture.SaveToStream und dann kommt der Stream in das BLOB-Field.

[LingNeu]

hi himitsu,
danke für die Infos
Habe das mit dem SaveToStream hinbekommen. Funktioniert bestens.
Mir wäre es auch lieber gewesen, wenn ich gleich ein DBImage nehmen könnte - ist aber leider an dieser Stelle nicht.
Danke nochmals
ciao
LingNeu