Comment récupérer une chaine de caractères à partir de TMemoryStream

Bonjour à tous,
je voudrais récupérer un fichier de mon site internet, puis pour analyser le contenu de ce fichier ASCII "1.text".
Deux méthodes ont été utilisées pour récupérer le fichier sur RichEdit1, mais

// Méthode 1: Marche, mais il faut passer par fichier sur disque

Code:

---

1 2 3 4 5 6

IdAntiFreeze1->OnlyWhenIdle = false; TMemoryStream *mem = new TMemoryStream(); AnsiString URLFile = ComboBox1->Text; IdHTTP1->Get(URLFile, mem); mem->SaveToFile("1.txt"); RichEdit1->Lines->LoadFromFile("1.txt");

---

// Méthode 2: Ne march pas, je ne sais pas pourquoi

Code:

---

1 2 3 4 5

IdAntiFreeze1->OnlyWhenIdle = false; TMemoryStream *mem = new TMemoryStream(); AnsiString URLFile = ComboBox1->Text; IdHTTP1->Get(URLFile, mem); RichEdit1->Lines->LoadFromStream(mem);

---

Le problème clés est que je ne sais pas comment récupérer le contenu d'un TMemoryStream.
Je suis preneur s'il y a d'autre méthode simple.
Merci d'avance.
Xavier

Salut
C'est un petit bug jamais corrigé dans La VCL
en effet lorsque tu lit un fichier dans un Stream la position du ptr du Stream est repositionnée à 0 ce qui n'est manifestement pas le cas avec le chargement de données en provenance d'autre sources
la correction est des plus simple

Code:

---

1 2 3 4 5 6 7

IdAntiFreeze1->OnlyWhenIdle = false; TMemoryStream *mem = new TMemoryStream(); AnsiString URLFile = ComboBox1->Text; IdHTTP1->Get(URLFile, mem); mem->Seek(0,soFromBeginning); // on repositionne la position du pointeur de Stream au début RichEdit1->Lines->LoadFromStream(mem);

---

et voila
cdlt

Merci DjmSoftware,
c'est parfait!
J'ai vraiement raison de poser la question le dimance apres des heure d'essais.
Vivre entreaide,
Bon dimance
Xavier