Comment passer dans une Bitmap un champs BLOB ?

Bonjour à tous
J'ai passé une image dans un champ BLOB comme suit :
tblVisual.FieldByName('VI_VIGNETTE').Assign(Rec.Vignette);
L'image est correctement stockée car je peux la lire dans un DBImage.
Comment la récupérer dans une variable TBITMAP ?
Merci d'avance :lol:

Salut
Essait ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Var ms : TMemoryStream; begin ms := TMemoryStream.Create(); Try TBlobField(tblVisual.FieldByName('VI_VIGNETTE')).SaveToStream(ms); ms.Position := 0; bmp.LoadFromStream(ms); // bmp >> TBitmap Finally ms.Free(); End; End;

---

Merci c'est sympa
J'avais entre temps trouvé sur la toile la procédure suivante
BMP.Assign(tblVisual.FieldByName('VI_VIGNETTE') as tBlobField);
Elle fonctionne très bien