J'ai une base Oracle 9 dans laquelle je stocke des images dans des champs BLOB.
Mon but est d'afficher ses images dans un objet Timage.
J'y arrive bien lorsque l'image est un BMP au travers des lignes de code suivantes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
var BlobField: TField;
     BS: TStream;
begin
  Blobfield := Qry_Photo.FieldByName('PHOTO');
  BS := CreateBlobStream(BlobField, bmRead);
  Image1.Picture.Bitmap.LoadFromStream(BS);
end;
mais je n'arrive pas à le faire lorsque mon image est au format JPEG
J'y arrive également si c'est un ico au travers de la ligne de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Image1.Picture.Icon.LoadFromStream(BS)
Help.