Discussion :

[Philippe Gormand]

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;

[Pedro]

Salut
Ajoute ceci:

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
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
   Flux.Seek(0, soFromBeginning);
   Image2.Picture.BitMap.LoadFromStream(Flux);
   Image2.Refresh;
   Flux.Free;
end;

Et ça devrait fonctionner

[neilbgr]

+1

Effectivement, il faut revenir au bédut du flux.
On peut aussi faire Flux.Position := 0; (C'est pareil)

[Philippe Gormand]

Avant de lire vos messages, j'avais trouvé la réponse dans un forum sur le WEB.
Merci Pedro, mais désolé pour neilbgr, contrairement à ce que je pensais, la solution

Effectivement, il faut revenir au bédut du flux.
On peut aussi faire Flux.Position := 0; (C'est pareil)

ne fonctionne pas. j'avais déja essayé, et dans certains cas ça marche. Vive les mystères de l'informatique.


Mon problème maintenant : Je n'ai plus d'excuse pour travailler sur mon tuto ce WE, plutôt de faire du vélo.


A la prochaine.