delphi idhttp post json 上传 PHP $_post 接收

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