IDHTTP GET提交数据失败

qq_32005403 2016-08-01 04:13:24
http://lxdq.cai-yun.net/service.php/API/Order/generate_order?OrderNum=124834931&Datetime=1224834931&Customer=张三&Phone=18871216316&Address=张三丰路&Appointment=1224834931&Remark%20=送支架&ItemList=[{"Item":"海信电视","Qty":"2","ItemType":"2","Distribution":"1","Installation":"30"}]
utf-8码,在IE中测试,提交数据成功,但是在delphi中提交数据失败,急求大侠赐教!代码如下:
var
HttpClient: TIdHttp;
ParamList: TStringList;
SS: TStringStream;
s: string;
begin
SS := TStringStream.Create;
s:= Edit13.text + 'OrderNum' + '=' + Edit1.Text + '&'
+ 'Datetime' + '=' + Edit2.Text + '&'
+ 'Customer' + '=' + Edit3.Text + '&'
+ 'Phone' + '=' + Edit4.Text + '&'
+ 'Address' + '=' + Edit5.Text + '&'
+ 'Appointment' + '=' + Edit6.Text + '&'
+ 'Remark ' + '=' + Edit7.Text + '&'
+ 'ItemList=' + '['
+'{'+
Chr(34) + 'Item' + Chr(34) + ':' + Chr(34) + Edit8.Text + Chr(34) + ','+
Chr(34) + 'Qty' + Chr(34) + ':' + Chr(34) + Edit9.Text + Chr(34) + ','+
Chr(34) + 'ItemType' + Chr(34) + ':' + Chr(34) + Edit10.Text + Chr(34) + ','+
Chr(34) + 'Distribution' + Chr(34) + ':' + Chr(34) + Edit11.Text + Chr(34) + ','+
Chr(34) + 'Installation' + Chr(34) + ':' + Chr(34) + Edit12.Text + Chr(34) +
'}'+
']';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Request.CharSet := 'utf-8';
IdHTTP1.Request.ContentEncoding := 'utf-8';
IdHTTP1.GET(s, SS);
ShowMessage(SS.DataString);
...全文
915 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
看那山瞧那水 2016-08-07
  • 打赏
  • 举报
回复
是不是中文乱码? 如果是乱码,我是改IDHTTP的源代码 IdCustomHTTPServer单元, procedure TIdHTTPRequestInfo.DecodeAndSetParams(const AValue: String); ...... //CharSet := ''; CharSet := 'utf-8'; //修改 1788行

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧