idhttp解决中文乱码问题

网络接口如下图:


 

浏览器演示如下:http://xxx.xxx.xxx.xxx/web/login!doLogin?data={"password":"yy123","userCode":"yyy123","terminalCode":"123"}

返回信息是一个json格式的字符串:{"errorMsg":"登录成功!","result":"1","sign":"56519e7b026a4f0e82eeb6496fd5c555"}

现在我想用TIdhttp控件来传递json格式的数据。那么它的方法是Get(AURL:string,AResponseContent:TStream);根据意思可知第二个参数是TStream类型的返回值。

那么下面参数aURL:string,aURL:=‘http://xxx.xxx.xxx.xxx/web/login!doLogin?data='+jo.ToString;

jo:TJsonObject;通过AddPair()添加数值对。用的是ToString方法。

如果我的jo(json)不是这样写的,我直接通过字符串jsontosend:TStringStream;jsontosend:=tstringream.creat('{"password":"yy123","userCode":"yy123","terminalCode":"123"}');那么get的时候就是get(aURL+jsontosend.DataString);

注意:这个时候用get(aURL+jsontosend.ToString);是会格式错误的。 

 

中文乱码问题:

就是关于第二个参数aResponseContent,(要重命名)

aResponseContent:TStringStream

aResponseContent:=TStringStream.create(' ',65001);这样就可以了。至于这个65001请参考:http://blog.sina.com.cn/s/blog_549f50ec01019cgc.html

把它写到TMemo中:Memo1.lines.add(aResponseContent.DataString);

下面是源码:可能没什么用在实现部分uses DBXjson,如果不知道该引用什么,先选择变量或方法,右键,Refactor--Find Unit。添加一个就好了。

[delphi]  view plain  copy
 print ?
  1. procedure TForm1.btnTestClick(Sender: TObject);  
  2. var  
  3.   jo: tjsonobject;  
  4.   jp: tjsonpair;  
  5.   responsejson: tstringstream;  
  6.   aURL: string;  
  7.   http: TIdcustomHTTP;  
  8. begin  
  9.   jo := tjsonobject.Create;  
  10.   try  
  11.     jp := tjsonpair.Create('terminalCode', TEterminalcode.Text);  
  12.     jo.AddPair(jp);  
  13.     jp := tjsonpair.Create('password', TEpassword.Text);  
  14.     jo.AddPair(jp);  
  15.     jo.AddPair('userCode', tjsonstring.Create(TEusercode.Text));  
  16.     aURL := 'http://112.64.158.30:7777/web/login!doLogin?data=';  
  17.     responsejson := tstringstream.Create(''65001);  
  18.      http := TIdHTTP.Create(nil);  
  19.     http.HandleRedirects := true;  
  20.     http.ReadTimeout := 3000;  
  21.     http.Request.Accept := 'text/javascript';  
  22.     http.Request.ContentType := 'application/json';  
  23.     http.Request.CharSet := 'utf-8';  
  24.     http.Request.ContentEncoding := 'utf-8';  
  25.     responsejson := tstringstream.Create(''65001);  
  26.     http.Get(aURL + jo.ToString, responsejson);  
  27.     Memo1.Lines.Add(responsejson.DataString);  
  28.   finally  
  29.   jo.Free;  
  30.   responsejson.Free;  
  31.   http.Free;  
  32.     end;  
  33. end;  


这个post方法怎么用都不对,后来才知道,http.Request.ContentType := 'application/json'是不对的,应该改为:http.Request.ContentType := 'application/x-www-form-urlencoded';这样就对了。郁闷死,大概服务器接收的不是json类型。关于这类问题可以查看MIME。

 

[delphi]  view plain  copy
 print ?
  1. var  
  2.   jo: tjsonobject;  
  3.   jp: tjsonpair;  
  4.   jsontosend: tstringstream;  
  5.   responsestr: string;  
  6.   aURL: string;  
  7.   http: TIdcustomHTTP;  
  8. begin  
  9.   jo := tjsonobject.Create;  
  10.   try  
  11.     jp := tjsonpair.Create('terminalCode', TEterminalcode.Text);//生成tjsonpair  
  12.     jo.AddPair(jp);  
  13.     jp := tjsonpair.Create('password', TEpassword.Text);  
  14.     jo.AddPair(jp);  
  15.     jo.AddPair('userCode', tjsonstring.Create(TEusercode.Text));  
  16.     aURL := 'http://xxx.xxx.xxx.xxx/web/login!doLogin';  
  17.     http := TIdHTTP.Create(nil);  
  18.     http.HandleRedirects := true;  
  19.     http.ReadTimeout := 3000;  
  20. //  http.Request.ContentType := 'application/json';  
  21.      http.Request.ContentType := 'application/x-www-form-urlencoded';  
  22.     http.Request.CharSet := 'utf-8';  
  23.     http.Request.ContentEncoding := 'utf-8';//可以省略,目前感觉没用。  
  24.     jsontosend := tstringstream.Create('data=' + jo.ToString);  
  25.     responsestr := http.Post(aURL, jsontosend);//jsontosend是要发送的json参数  
  26.     if getjsonvalue(responsestr, 'errorMsg') = '登录成功!' then//由于参数不同,返回结果不同,需要判断一下。可以无视  
  27.       TEerrorcode.Text := '0'  
  28.     else  
  29.       TEerrorcode.Text := getjsonvalue(responsestr, 'errorCode');//下面的是显示json解析结果的,可以无视。  
  30.     TEresult.Text := getjsonvalue(responsestr, 'result');  
  31.     TEerrorMsg.Text := getjsonvalue(responsestr, 'errorMsg');  
  32.     TEsign.Text := getjsonvalue(responsestr, 'sign');  
  33.   finally  
  34.     jo.Free;  
  35.     http.Free;  
  36.   end;  

解析json的函数:其实不用这么麻烦,因为要解析的json格式相同,所以写了一个外部unit。下面是这个getjsonvalue函数:


 

[delphi]  view plain  copy
 print ?
  1. unit UnitJSON;  
  2.   
  3. interface  
  4.   
  5. uses DBXJSON, DBXJSONReflect, System.SysUtils;  
  6. function getJSONValue(jsonstr: string; jsonvalue:string): string;  
  7.   
  8. implementation  
  9.   
  10. function getJSONValue(jsonstr: string; jsonvalue:string): string;  
  11. var  
  12.   jo: tjsonobject;  
  13.   jv: tjsonvalue;  
  14. begin  
  15.   jo := nil;  
  16.   try  
  17.     jo := tjsonobject.Create;  
  18.     jo := tjsonobject.ParseJSONValue(tencoding.UTF8.GetBytes(jsonstr), 0)  
  19.       as tjsonobject;  
  20.     jv := jo.Get(jsonvalue).jsonvalue;  
  21.     Result := jv.Value;  
  22.   finally  
  23.     jo.Free;  
  24.   end;  
  25. end;  
  26.   
  27. end.  


详细的json字符串解析可以看我写的相关帖子,比较详细,也很容易理解。

### 回答1: rest idhttp是一种用于实现RESTful API的Delphi编程语言中的一个组件。RESTful API是一种使用HTTP协议进行通信的软件架构风格,它通过HTTP方法(如GET、POST、PUT和DELETE)与服务器进行交互,实现了客户端和服务器端之间的数据传输和操作。 idhttp是Delphi中的一个HTTP客户端组件,它内置了对HTTP协议的支持,并且提供了许多方法和属性,以便开发者可以轻松地发送HTTP请求和接收HTTP响应。在实现RESTful API时,我们可以使用idhttp组件来构建和发送HTTP请求,然后处理服务器端返回的数据。 使用rest idhttp可以实现许多常见的RESTful API操作,例如获取资源、创建资源、更新资源和删除资源等。我们可以使用idhttp的GET方法来获取服务器端返回的资源数据,使用POST方法来创建新的资源,使用PUT方法来更新现有资源,使用DELETE方法来删除资源。 此外,rest idhttp还提供了一些其他的功能,例如设置请求头部、设置请求参数、设置代理服务器、处理cookie等。它还支持SSL加密协议,可以在与安全的HTTPS站点进行通信时保护数据的安全性。 总之,rest idhttp是一个方便易用的Delphi组件,可以帮助开发者实现RESTful API的访问和操作。它提供了丰富的功能和灵活的接口,使得开发者可以轻松地构建和管理与服务器端的数据交互。 ### 回答2: TIdHTTP是一个强大的开源组件,它属于Delphi的Internet Direct (Indy) 套件。它用于在Delphi应用程序中实现HTTPHTTPS通信。TIdHTTP组件提供了许多功能,使得开发者能够轻松地进行HTTP请求和响应的处理。 在使用TIdHTTP组件时,首先需要创建一个TIdHTTP实例,然后使用其方法来发送HTTP请求,并获取服务器的响应。TIdHTTP组件支持GET、POST、PUT、DELETE等HTTP请求方法,可以设置请求头、请求参数等。它还支持设置超时时间、重定向处理、Cookie管理、压缩、代理等功能。通过TIdHTTP组件,开发者可以方便地获取网页内容、上传文件、下载文件等。 在使用TIdHTTP组件发送请求时,首先需要设置请求的URL和请求方式。例如,要发送一个GET请求,可以使用TIdHTTP的Get方法,并传入想要请求的URL作为参数。TIdHTTP会返回服务器返回的响应内容。类似地,可以使用Post、Put、Delete等方法来发送不同类型的请求。 除了基本的HTTP请求和响应处理功能,TIdHTTP还支持一些高级功能。例如,可以使用TIdHTTP的Request.Accept编写Accept请求头,用于指定所期望的响应内容类型。还可以使用TIdHTTP的Request.ContentType来指定请求的内容类型。通过使用TIdHTTP的Request.RawHeaders属性,可以获取服务器返回的原始响应头信息。另外,TIdHTTP还支持多线程请求处理,可以进行并发请求。 总之,TIdHTTP是一个功能强大的组件,提供了丰富的功能来支持HTTPHTTPS通信。无论是获取网页内容、上传文件,还是发送各种类型的HTTP请求,TIdHTTP都是一个非常有用的工具,能够方便地在Delphi应用程序中进行网络通信。 ### 回答3: REST是一种基于HTTP协议的软件架构风格,它的目标是实现系统之间的互操作性和可伸缩性。而idhttp则是Delphi编程语言中的一个组件,可以用来实现HTTP协议的通信功能。 rest idhttp是指在Delphi编程语言中使用idhttp组件来实现RESTful风格的HTTP通信。通过idhttp组件,我们可以使用各种HTTP方法(如GET、POST、PUT、DELETE等)来发送请求和接收响应。同时,idhttp组件还提供了丰富的功能,比如设置请求的header、参数、timeout等;处理HTTP响应的状态码、header、内容等。 使用idhttp组件实现RESTful通信的主要步骤如下: 1. 创建一个idhttp对象,并设置相关属性,如服务器地址、端口、代理等。 2. 根据需求选择HTTP方法,比如GET方法用于获取资源,POST方法用于提交数据等。 3. 根据实际情况设置请求的header、参数、内容等。 4. 调用idhttp的Get、Post、Put、Delete等方法发送请求,并获取响应。 5. 解析和处理HTTP响应,根据状态码、头部信息、内容等进行相应的操作。 使用rest idhttp可以很方便地与各种RESTful接口进行交互,实现数据的传输和交换。它可以在Delphi开发的应用程序中轻松地实现与服务器的通信,并进行数据的增删改查等操作。 总之,rest idhttp是指在Delphi编程语言中使用idhttp组件来实现RESTful风格的HTTP通信,通过该组件可以方便地与RESTful接口进行数据的交互和操作。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值