Delphi解码json / utf8转义文本

前端之家收集整理的这篇文章主要介绍了Delphi解码json / utf8转义文本前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在为复杂的应用程序编写一个模块,我的模块应该处理由Web服务器返回的json响应.所以,我的问题是如何解码这种文本:
\u041f\u043e\u0438\u0441\u043a \u043f\u043e \u0444\u0430\u043c\u0438\u043b\u0438\u0438,\u0438\u043c\u0435\u043d\u0438 (\u043e\u0442\u0447\u0435\u0441\u0442\u0432\u0443

它是西里尔文本,Mozilla Firefox应该显示它.我该如何处理这些人?我在Delphi 2010上.

解决方法

您可以使用Delphi 2010中包含的 DBXJSON单元
uses
 DBXJSON;

const
JsonUt8  ='"\u041f\u043e\u0438\u0441\u043a \u043f\u043e \u0444\u0430\u043c\u0438\u043b\u0438\u0438,\u0438\u043c\u0435\u043d\u0438 (\u043e\u0442\u0447\u0435\u0441\u0442\u0432\u0443"';

procedure TForm59.Button1Click(Sender: TObject);
var
  LJSONValue: TJSONValue;
begin
  LJSONValue:=TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(JsonUt8),0);
  Edit1.Text:=LJSONValue.ToString;
end;

猜你在找的Delphi相关文章