前提：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