[BitMap] Problème avec BitMap.LoadFromStream

Version imprimable

Bonjour à tous.

Je sais que je pourais faire autrement, comme par exemple :
Code:

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:

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;
:merci:

Salut :D
Ajoute ceci:

Code:

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 ;)

22/07/2006, 18h25
neilbgr

+1

Effectivement, il faut revenir au bédut du flux.
On peut aussi faire Flux.Position := 0; (C'est pareil)
22/07/2006, 18h53
Philippe Gormand

[Resolu]

:salut:

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

Citation:

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.
:scarymov:

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

A la prochaine.