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