本文整理自网络，侵删。
前提：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 winapi: getwindowthreadprocessid - 获取指定窗口的进程 id 或线程 id
Delphi中使用内联变量(inline variables) 的5个理由
Delphi xe2 idhttp 获取utf-8编码中文网页
更多相关阅读请进入《Delphi》频道 >>
