注册 登录
编程论坛 Delphi论坛

IDHTTP get 提交数据失败

kanrensan 发布于 2016-08-01 16:20, 3967 次点击
http://lxdq.张三&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);
0 回复
1