前提：PHP端用$_post 接收

一、delphi idhttp post 上传数据 时如果使用 temp_stream: TStringStream;  内存流的方式上传 则需要指明IDHTTP的contentype

var

  idhttp2: TIdHTTP;

  temp_stream: TStringStream;

  temp_url: string;

  temp_str: string;

  strlist_para:TStringList;

begin

  strlist_para:=TStringList.Create();

  idhttp2 := TIdHTTP.Create(nil);

  strlist_para.Add('xx={"i":"5","billids":[{"id":1},{"id":2},{"id":3}]}') ;

  idhttp2.ReadTimeout := 10000; // 请求超时设置

  idhttp2.Request.ContentType := 'application/x-www-form-urlencoded';

  temp_stream := TStringStream.Create(AnsiToUtf8('xx='+json.AsString)); // 创建一个包含JSON数据的变量

  temp_stream.Position := 0; // 将流位置置为0

  temp_stream.SaveToFile('c:\123.txt');

  temp_stream.Position := 0; // 将流位置置为0

  temp_url := '地址';

  try

    temp_str := idhttp2.Post(temp_url, temp_stream);

  except

    temp_str := '';

  end;

  idhttp2.Free();

  temp_stream.Free;

  result := temp_str;

二、strlist_para:TStringList;方式上传

var

  idhttp2: TIdHTTP;

  temp_stream: TStringStream;

  temp_url: string;

  temp_str: string;

  strlist_para:TStringList;

begin

  strlist_para:=TStringList.Create();

  idhttp2 := TIdHTTP.Create(nil);

  strlist_para.Add('xx={"i":"5","billids":[{"id":1},{"id":2},{"id":3}]}') ;

  idhttp2.ReadTimeout := 10000; // 请求超时设置

  idhttp2.Request.ContentType := 'application/x-www-form-urlencoded';

  temp_stream := TStringStream.Create(AnsiToUtf8('xx='+json.AsString)); // 创建一个包含JSON数据的变量

  temp_stream.Position := 0; // 将流位置置为0

  temp_stream.SaveToFile('c:\123.txt');

  temp_stream.Position := 0; // 将流位置置为0

  temp_url := '地址';

  try

    temp_str := idhttp2.Post(temp_url, strlist_para);

  except

    temp_str := '';

  end;

  idhttp2.Free();

  temp_stream.Free;

  result := temp_str;

————————————————

原文链接：https://blog.csdn.net/weixin_44387646/article/details/103709801