Discussion :

[RodEpsi]

Salut à tous j'ai un composant EDBImage dans lequel j'aimerai affiché un TjpegImage contenu dans un TMemoryStream.

J'ai donc voulu faire l'affectation suivante :

Code :

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

EDBImage1.Picture.Graphic.LoadFromStream(MonStream);

mais ceci me renvoit l'erreur suivante :

"Violation à l'adresse 004E4DB1"

Quelqu'un sait-il comment je dois m'y prendre ? Merci

[RodEpsi]

J'ai également essayé en créant une variable TJpegImage afin de lui affecter le contenu du TMemoryStream pour pouvoir ensuite affecter l'image à mon EDBImage comme ceci :

Code :

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

1
2
3
JpgImage := TJpegImage.Create;
           JpgImage.LoadFromStream(MonStream);
           EDBImage1.Picture.Graphic:=JpgImage;

Mais j'obtiens l'erreur suivante :

"Erreur JPEG #42"

[RodEpsi]

J'ai finallement trouvé la solution tout seul comme un grand !!

J'utilisais déjà mon Stream dans une procedure LoadFromStream afin d'envoyer mon image dans le paramètre d'une requête juste avant. Pour pouvoir utiliser à nouveau le Stream ou du moins récupérer à nouveau l'image contenu dans le Stream grâce à une nouvelle procédure LoadFromStream il faut se repositionner sur le prmier élément du Stream grâce à la procédure Seek(0, soFromBeginning)

Ce qui donne le résultat suivant :

Code :

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

1
2
3
4
5
  MonStream.Seek(0, soFromBeginning);
            JpgImage := TJpegImage.Create;
            JpgImage.LoadFromStream(MonStream);
 
            EDBImage1.Picture.Graphic:=JpgImage;

Voilà j'espère que ça servira à quelqu'un

Je récapitule en résumé la raison de l'utilsation de

Code :

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

MonStream.Seek(0, soFromBeginning);

est que j'avais déjà effectué un LoadFrom Stream précédemment.