Bonjour à tous.

Je sais que je pourais faire autrement, comme par exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Image2.Picture.BitMap.Assign(Image1.Picture.BitMap);
Mais mon problème est du au chargement d'un bitmap stoké dans un TMemoryStream. Le chargement ne s'effectue pas.

Le simple code suivant ne fonctionne pas. Quel qu'un a une idée ?

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
 
procedure TFichePrincipale.Button1Click(Sender: TObject);
Var
   Flux : TMemoryStream;
   T    : Integer;
   Buff : ^Byte;
 
begin
   Flux := TMemoryStream.Create;
   // Transfert de la photo dans le flux
   Image1.Picture.Bitmap.SaveToStream(Flux);
   // divers traitements
   Image2.Picture.BitMap.LoadFromStream(Flux);
   Image2.Refresh;
   Flux.Free;
end;