Discussion :

[Maglight]

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.

[ShaiLeTroll]

tu dois faire la conversion avec un TJPEGImage

[Maglight]

J'ai bien essayé :

Code :

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

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 :

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

Erreur JPEG#52

lorsque j'arrive sur

Code :

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

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.

[tourlourou]

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

[Maglight]

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.

[Maglight]

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

Code :

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

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.