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 :
[Balise [code] rajoutée par Nono40]
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;
![]()
Partager