Discussion :

[zymoplex]

Bonjour,

Je n'arrive pas a utiliser TMemoryStream avec une image JPEG, en BITMAP ca fonctionne nickel .. Quelqu'un a une solution
Merci...

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var Flux:TMemoryStream;
begin
Flux:=TMemoryStream.Create;
 
try
Image1.Picture.Bitmap.SaveToStream(Flux);
Flux.Seek(soFromBeginning,0);
Image2.Picture.Bitmap.LoadFromStream(Flux);
 
finally
Flux.Free;
end;
end;

[Balise [code] rajoutée par Nono40]

[lafaryan]

moi j'utilise ca mais bon il y a surement mieux...

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
24
25
 
uses .....,jpeg;
 
procedure TForm1.Button1Click(Sender: TObject);
var Flux:TMemoryStream;
    Fjpeg : Tjpegimage;
begin
 
 Flux:=TMemoryStream.Create;
 
 try
 
   Fjpeg := TjpegImage.Create;
 
   Image1.Picture.Graphic.SaveToStream(Flux);
   Flux.Seek(soFromBeginning,0);
   Fjpeg.LoadFromStream(flux);
 
   Image2.Picture.assign(Fjpeg);
 
 finally
   Flux.Free;
   Fjpeg.free;
 end;
end;

[portu]

c'est normal que ca ne marche pas, pcq là, tu charges un jpeg dans un objet Bitmap, logique non ? Suffit de créer un objet Tjpegimage, et ensuite, charger le Stream. enfin voila le code.
Unité Jpeg est necessaire

Code :

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

1
2
3
4
5
6
7
8
 
var
 j : tjpegimage;
s : tmemorystream;
begin
j := tjpegimage.Create;
j.fromstream(s);
image1.Picture.Bitmap.Assign(j);