TMemoryStream + JPEG

Question

Bonjour,

Je n'arrive pas a utiliser TMemoryStream avec une image JPEG, en BITMAP ca fonctionne nickel .. Quelqu'un a une solution  :question)   :question)   :question) 
Merci...

Voici le code :

procedure TForm1.Button1Click(Sender: TObject);
var Flux:TMemoryStream;
begin
Flux:=TMemoryStream.Create;

try
Image1.Picture.Bitmap.SaveToStream(MemFlux);
Flux.Seek(soFromBeginning,0);
Image2.Picture.Bitmap.LoadFromStream(MemFlux);

finally
Flux.Free;
end;
end;

zymoplex · Answer

Oup's !!!

Les 'MemFlux' sont en fait 'Flux' je me suis planté, mais ma question reste trjs la meme...

cs_jleg · Answer

Bonjour, 



Ton probl&#232;me ne vient pas du TMemoryStream mais de l'utilisation du
TBitmap (qui comme son nom l'indique, ne peut charger que des BMP). 

Si tu veux charger une image JPG, il suffit de faire :  

        Image2.Picture.LoadFromStream(MemFlux) ;

en faisant attention que Image2 ne soit plus un TImage mais un
TJPEGImage (pour cela, il faut inclure, dans la clause uses de ton
programme, l'unit&#233; "jpeg" fournie avec delphi.



Et voil&#224;

TMemoryStream + JPEG

2 réponses

Votre réponse

Discussions similaires