解决delphi XE5中使用RESTClient提交Body类型的乱码问题

最新推荐文章于 2024-12-15 09:22:57 发布

时间漩涡

最新推荐文章于 2024-12-15 09:22:57 发布

阅读量5k

点赞数

分类专栏：学习文章标签： delphi 乱码 XE5 TRESTClient TRESTRequest

本文链接：https://blog.csdn.net/timer0677/article/details/17841953

版权

学习专栏收录该内容

9 篇文章 0 订阅

订阅专栏

自己看了很多的贴子，都满足不了我的需求。。

后来无意中看到一个关于TStringStream的代码。。

然后试了一下，尽然可以了。。可喜可贺。记录一下。。

例子：

tRestRequest.AddBody(TStringStream.Create('{"test":"123abc试试"}',TEncoding.UTF8),TRESTContentType.ctAPPLICATION_JSON);
tRestRequest.Execute;

P.S.

最终还是有问题，查了很多资料后发现虽然如上述一样成功转换成了UTF8格式，但是TRest引用的indy idhttp组件中在post的时候会将UTF8转为ANSIString，会导致中文某些字符丢失或成?。。最后我还是直接用了idhttp来实现rest的功能，希望XE5以后会改进。代码如下：

      idHttp:=TIdHTTP.Create(nil);
      idHttp.Request.ContentType:='application/json';
      //请求
      rURL:='http://www.simple.com/simpleapi';
      lResponse:=idHttp.Post(rURL,TStringStream.Create('{"user":"'+User+'","password":"'+Pass+'"}',TEncoding.UTF8));
      rJson:=TJSONObject.ParseJSONValue(lResponse) as TJSONObject;