Wie mit Indy, HTTP, POST eine Datei Downloaden ?

[Blubbazisch]

Hi,

gesagt getan.

Delphi macht zwar eine Datei die sich Test.txt nennt. Schreibt da aber nix rein.

Hier mein Code, ich Poste an meine eigene Seite wo ich weiss das ich da was wieder bekomme.

Delphi-Quellcode:

var
  MyStream : TFilestream;
  Data: TIdMultiPartFormDataStream;
begin
  MyStream := TFilestream.Create('c:\Test.txt',fmCreate);

  Data := TIdMultiPartFormDataStream.Create;
  Data.AddFormField('q', 'test');  // Hier kannst du deine Formdaten einfügen
  Data.Position := 0;

  idhttp1.Post('http://www.preis-o-mat.de/search.php',MyStream);
  MyStream.Free;
  Data.Free;
end;

Er müsste ja theoretisch, alles das was wieder kommt in die Datei rein schreiben ?