EReadError : 'Erreur de lecture du flux'

Question

Voici une version simplifiée de mon code :

procedure TForm1.Button1Click(Sender: TObject);
var St,St2:TMemoryStream;
    b:word;
    Bmp:TBitmap;
begin
     St:=TMemoryStream.Create;
     St2:=TMemoryStream.Create;
     b:=1;
     St.WriteBuffer(b,2);

     Bmp:=TBitmap.Create;
     CaptureScreen(Bmp);    //capture d'ecran
     Bmp.SaveToStream(St2);

     St.CopyFrom(st2,st2.Size);
     // Diverses actions

     st.Free;st2.Free;Bmp.Free;
end;

Je souhaite simplement stocker un mot au debut du flux avant de l'utiliser. Mais lors de l'execution du code ci dessus Delphi me renvoie EReadError : 'Erreur de lecture du flux'.
CaptureScreen fonctionne, mais dés que je met St.CopyFrom(st2,st2.Size); mon code ne fonctionne plus.

          Merci pour toute aide.

ni69 · Answer

Pourquoi ne pas mettre :
St.LoadFromStream(st2);

à la place de :
St.CopyFrom(st2,st2.Size);

 :question) 

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

gengiskhan1985 · Answer

LoadFromStream affecte toujours la valeur 0 à la propriété Position du flux source avant de copier le nombre d'octets indiqué par la propriété Size du flux source.

Donc si j'utilise LoadFromStream mes 2 octets du word 'b' mis au début disparaissent. Et j'aimerais garder ces infos.

EReadError : 'Erreur de lecture du flux'

2 réponses

Votre réponse