本文整理自网络，侵删。
前提：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 相关阅读 >>
Delphi firedac 下的 sqlite [4] - 创建数据库
更多相关阅读请进入《Delphi》频道 >>
