Datei Upload über HTTP POST mit Hilfe von Indy funzt net :(

[sakura]

Ich bin mir der Lösung nicht sicher, aber versuche mal folgende Zeile:

Code:

uses IdMultipartFormData;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    data.AddFile('archive', 'c:\abc.zip', 'application/zip');
    [color=#ff0000]data.Position := 0;[/color]
    Memo1.Lines.Text := IdHTTP1.Post('http://localhost/upload.php', data);
  finally
    data.Free;
  end;
end;

......