Mettre jpeg depuis Oracle dans objet Timage

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:

---

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:

---

Image1.Picture.Icon.LoadFromStream(BS)

---

Help.
:?

tu dois faire la conversion avec un TJPEGImage

J'ai bien essayé :

Code:

---

1 2 3 4 5 6 7 8 9 10

var BlobField: TField; BS: TStream; DummyJPEg: TJPEGImage; begin Blobfield := Qry_Photo.FieldByName('PHOTO'); BS := CreateBlobStream(BlobField, bmRead); ImageJPEg := TJPEGImage.Create(); ImageJPEg.LoadFromStream(BS); Image1.Assign(ImageJPEg); end;

---

mais cela me renvoit

Code:

---

Erreur JPEG#52

---

lorsque j'arrive sur

Code:

---

ImageJPEg.LoadFromStream(BS);

---

Je suis obligé de passé par un TStream car l'image n'est pas physiquement sur ma machine (je ne peux utiliser loadfromfile) mais je dois mal le faire.;)

l'erreur correspond à "fichier non jpeg" : vérifie s'il commence bien par FFD8, si le stream est passé avec une position à 0, ou teste en passant par un fichier et essaye de l'ouvrir avec Xn View ou autre

Je n'ai pas essayé de l'ouvrir par Xn View mais je réussi bien à le faire par PaintShop Pro5.
Comment faire pour savoir si il commence bien par FFD8?
Je bloque vraiment alors que cela devrait être tout bête, non.:oops:

Cela fonctionne maintenant.
Voici mon code final pour ceux que cela pourrait interesser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var BlobField: TField; BS: TStream; ImageJPEg: TJPEGImage; begin with Qry_Photo do if Eof then Image1.Picture.Assign(nil) else begin Blobfield := FieldByName('PHOTO'); BS := CreateBlobStream(BlobField, bmRead); try ImageJPEg := TJPEGImage.Create(); ImageJPEg.LoadFromStream(BS); Image1.Picture.Bitmap.Assign(ImageJPEg); except BS := CreateBlobStream(BlobField, bmRead); Image1.Picture.Bitmap.LoadFromStream(BS); end; BS.Free; end; end;

---

Merci de votre aide.

si je comprends ton code, tu ouvres le blob comme un jpeg, et si ça ne veut pas, comme un bmp ? mieux vaut que ce ne soit que l'un ou l'autre !

pourquoi ne pas tester ?

style

Code:

---

1 2 3 4 5 6 7

BS.Position:=0; BS.Read(MyWord, 2); case MyWord of $FFD8 : // jpeg $424D : // bmp else // erreur BS.Position:=0;

---