Indy - TIdHttp の Post でファイルをアップロード

Indy - TIdHttp の Post でファイルをアップロード

アップロード先のHTMLがこんな感じの場合

  FileName 
  

uses節に IdMultipartFormData を追加して

procedure TForm1.Button1Click(Sender: TObject);
    var DataStream: TIdMultiPartFormDataStream;
begin
    DataStream := TIdMultiPartFormDataStream.Create;
    try
        DataStream.AddFile('upfile', 'c:\fuga.png', 'image/png');
        IdHTTP1.Post('http://hoge.com/upload.php', DataStream);
    finally
        DataStream.Free;
    end;
end;