Discussion :

[Alfred12]

Bonjour à tous. Juste un petit conseil.

Pour récuprer du texte à partir d'un TStream, j'ai fait comme cela. Mais j'ai l'impression qu'il y aurait moyen de faire mieux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
   Result := '';
   for i := 1 to Stream.Size do
   begin
      Stream.Read(lChar,1);
      Result := Result + lChar;
   end;

[cpdump]

Cela dépend ce que tu veux faire mais tu peux utiliser les tstringlist: dans ce cas tu as une ligne par entrée de tstringlist.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

slist.LoadFromStream(stream);

[Alfred12]

Merci pour ta réponse.

En allant regarder le source du TString, un meilleur moyen est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   SetString(Result,nil,Stream.Size);
   Stream.Read(Pointer(Result)^,Stream.Size);

Par contre je ne vois pas quelle est la différence entre Pointer(Result)^ et Result.

[smyley]

Result retourne un ensemble de char alors que pointer(Result)^ retourne un pointeur vers le 1er byte en mémoire de la chaine.