Discussion :

[patrice@]

Bonjour à tous,
J'aurais tendance à dire "coucou ... c'est encore moi ..."

Je sollicite encore une fois la communauté pour un truc qui est peut être bête mais dont je n'arrive pas à me sortir : les Stream.
En préambule, je me suis mis en tête que travailler avec des Stream c'est bien plus rapide que n'importe quoi. Par contre, je bloque sur plein de points.
Mon truc est simple : imaginez un fichier texte contenant ... du texte (par exemple une procédure Delphi)
Je load mon fichier dans le Stream, au hasard et parce que j'ai lu que c'était celui qui utilisait la mémoire un TMemoryStream
Celà donne ceci :

Code :

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

1
2
    Stream :=TMemoryStream.Create ;
    Stream.LoadFromFile(TextFile);

Bon, ça c'est fait, maintenant ma question :
Est il possible, et comment, de rajouter directement dans le flux une nouvelle ligne de texte à la fin ? Pour le moment je passe par un TStringList pour rajouter mais, cela fait une étape en plus dont on peut, peut être se passer ?
ensuite, il suffirait de faire un SaveTo pour sauver le flux dans le fichier

[Paul TOTH]

en fait tu ne comprends simplement pas ce que tu fais, qu'est ce qui te permet d'affirmer "je me suis mis en tête que travailler avec des Stream c'est bien plus rapide que n'importe quoi" ?

à ton avis qu'est-ce que c'est qu'un TMemoryStream et que contient il après un LoadFromFile, en quoi consiste le fait d'ajouter une ligne à la fin ? A Quoi devrait ressemble le stream après cette opération ?

[patrice@]

en fait tu ne comprends simplement pas ce que tu fais, qu'est ce qui te permet d'affirmer "je me suis mis en tête que travailler avec des Stream c'est bien plus rapide que n'importe quoi" ?

à ton avis qu'est-ce que c'est qu'un TMemoryStream et que contient il après un LoadFromFile, en quoi consiste le fait d'ajouter une ligne à la fin ? A Quoi devrait ressemble le stream après cette opération ?

Hummm ... je m'imagine un flux avec l'ensemble de mes lignes dedans, comme dans un fichier texte mais en mémoire ...
Les données sont contigues, donc j'imagine qu'il n'y a pas de #13#10
Dans l'exemple que tu m'as donné semaine dernière, j'ai compris qu'il fallait donner "la donnée" et sa taille. ...

Donc pour rajouter à la fin il faudrait peut être faire

Code :

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

1
2
3
4
5
6
7
 
Stream.Seek(0, soFromend); //pour aller à la fin
s := 'blablabla';
i := Length(s);
Stream.Write(i, SizeOf(i));
if i > 0 then
      Stream.Write(s[1], i * SizeOf(Char));

J'ai juste ?

[wheel]

Essaie TStringStream à la place de TMemoryStream et après utilises WriteString pour y ajouter du texte.

[patrice@]

Essaie TStringStream à la place de TMemoryStream et après utilises WriteString pour y ajouter du texte

Waouh! ça a l'air tout simple ...

Prem m'avait répondu d'utiliser TStringStream dans un post de la semaine dernière mais je n'y ai pas fait attention.
Ca fonctionne très bien, et super facile à utiliser ...

MERCIIIIIII