Discussion :

[colorid]

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

[inoussa]

Salut
Essait ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[colorid]

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