Copie d'un flux dans un autre

Bonjour,

Dans mes copies de flux mémoire les uns dans les autres, j'utilise actuellement un buffer intermédiaire. Il me semble que ce n'est pas le moyen le plus efficace.
J'ai essayé d'utiliser le pointeur memory mais ça ne fonctionne pas.

Quelqu'un a-t-il une idée?

Merci d'avance
Mikaël Morvan

Peux tu préciser à quoi te servent ces flux ?

J'utilise les flux pour enregistrer des données binaires, les compresser, les chiffrer,...
Au moment de la relecture, j'ai besoin d'extraire une partie du flux par exemple pour déchiffrer une partie qui est en XML. Pour l'extraction, j'utilise un buffer mai je pense qu'on peut directement utiliser la propriété Memory du TMemoryStream.

Si tu utilise un Stream (dérivant de la classe TStream), tu peux utiliser la méthode

Code:

---

CopyFrom(Source: TStream; Count: Integer);

---

Si tu passes 0 en paramètre à count, le Stream "Source" est copié dans sa totalité dans le Stream avec lequel tu appelles la méthode. Si tu mets un chiffre différent de 0, la méthode copie Count octets à partir de la position actuelle de "Source"...

J'espère que ça répond à ta question !

@+
Bestiol.

Tu peux effectivement accéder directement à la zone mémoire d'un TMemoryStream en manipulant des pointeurs. Voici un exemple illustrant ce type d'accès. Mais franchement, à moins que tes streams ne soient énormes et que tes besoins de performances ne soient importants, je te conseille de copier tes données dans des streams ou buffers temporaires. C'est beaucoup plus facile à débugger.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

procedure TForm1.Button1Click(Sender: TObject); var memStream: TMemoryStream; i: Integer; buffer: PByteArray; value: byte; begin memStream:= TMemoryStream.Create; try // Remplissage avec 3 valeurs value:= 10; memStream.Write(value, SizeOf(value)); value:= 20; memStream.Write(value, SizeOf(value)); value:= 30; memStream.Write(value, SizeOf(value));   // Buffer pointe vers la zone mémoire du stream buffer:= memStream.Memory;   // Affichage des bytes consécutifs stockés à partir de l'adresse // pointée par buffer (et memStream.Position évidemment) for i:= 0 to 2 do memo1.Lines.Add(IntToStr(buffer[i])); finally memStream.Free; end; end;

---

CopyFrom, c'est ça que je cherchais. En plus, j'ai retrouvé un bout de code que j'avais fait il y a quelques temps et qui l'utilisait :oops:

Pour l'accès directe, je ne pense pas en avoir besoin.

Merci encore,
Mikaël Morvan