Delphi IdHTTP模拟post 上传文件和提交数据

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils,

  IdHTTP,

  IdMultipartFormData;

var

  http: TIdHTTP;

  data: TIdMultiPartFormDataStream;

begin

  http := TIdHTTP.Create(nil);

  data := TIdMultiPartFormDataStream.Create();

  try

    data.AddFormField('aa', '中文测试', 'utf-8');

    Writeln(http.Post('http://httpbin.org/post', data));

  finally

    data.Free;

    http.Free;

  end;

  Readln;

end.