Discussion :

[Xavier]

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 :

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

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 :

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

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

[DjmSoftware]

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 :

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

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

[Xavier]

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