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]