Discussion :

[Manusm]

Bonjour,

J'aimerais télécharger les données d'une requête cgi, jusque là j'y arrive... Ou ça se complique c'est lors de l'écriture de ces données dans un fichier...

Lorsque j'utilise "showmessage" le contenu de mon TStringStream (voir code) est parfaitement présenté, j'ai les retours à la ligne c'est impeccable, mais quand j’écris ce même TStringStream dans un fichier je n'ai qu'une seule et même ligne...

Voilà le résultat dans un showmessage :



et voici le resultat dans un fichier :



Voici le petit bout de code que j'utilise :

Code :

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

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
30
31
32
33
34
 
procedure TForm1.BtnConnectClick(Sender: TObject);
var fichier : TMemoryStream;
begin
     http := THttpSend.Create;
     fichier := TMemoryStream.Create;
 
     http.HTTPMethod('GET',edtlien.Text);
     http.Document.SaveToStream(fichier);
 
     showmessage(StreamToString(fichier));
     //http.Document.SaveToFile('f:\essai.txt');
 
 
end;
 
function TForm1.StreamToString(aStream: TStream): string;
var SS: TStringStream;
begin
  if aStream <> nil then
  begin
    SS := TStringStream.Create('');
    try
      SS.CopyFrom(aStream, 0);
      Result := SS.DataString;
 
    finally
      SS.Free;
    end;
  end else
  begin
    Result := '';
  end;
end;

J'avoue que je ne maîtrise pas bien les notions de Stream...

Merci

[Jipété]

Salut,

mais quand j’écris ce même TStringStream dans un fichier je n'ai qu'une seule et même ligne...

et avec

Code :

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

1
2
3
4
5
 
     showmessage(StreamToString(fichier));
     //http.Document.SaveToFile('f:\essai.txt');
     fichier.SaveToFile('f:\essai.txt');
end;

[Manusm]

Non ça me fait exactement la même chose que le fichier précédent je n'ai qu'une seule ligne...

Merci de ton aide

[Manusm]

Effectivement Yamer, quand j'ouvre ce fichier avec WordPad j'ai bien les retour à la ligne

[Manusm]

Du coup si je veux parcourir ce fichier ligne par ligne, comment dois je procéder ?

[Paul TOTH]

il faut remplacer les #10 par des #13#10, TStringList doit pouvoir le faire si tu ne veux pas le coder toi même

[yamer]

Est-ce que ce ne serait pas un simple problème de caractère de fin de ligne ? Si le flux reçu a des fin de ligne de style UNIX (#10) il est possible que ShowMessage les interprète bien mais que l'éditeur de Windows n'y comprenne rien. Essaye d'ouvrir ton fichier avec un éditeur plus rusé pour voir.