Delphi解码json / utf8转义文本

发布时间：2020-12-15 10:06:20 所属栏目：大数据来源：网络整理

导读：我正在为复杂的应用程序编写一个模块,我的模块应该处理由Web服务器返回的json响应.所以,我的问题是如何解码这种文本： u041fu043eu0438u0441u043a u043fu043e u0444u0430u043cu0438u043bu0438u0438,u0438u043cu0435u043du0438 (u043eu0

我正在为复杂的应用程序编写一个模块,我的模块应该处理由Web服务器返回的json响应.所以,我的问题是如何解码这种文本：

u041fu043eu0438u0441u043a u043fu043e u0444u0430u043cu0438u043bu0438u0438,u0438u043cu0435u043du0438 (u043eu0442u0447u0435u0441u0442u0432u0443

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

解决方法

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

uses
 DBXJSON;

const
JsonUt8  ='"u041fu043eu0438u0441u043a u043fu043e u0444u0430u043cu0438u043bu0438u0438,u0438u043cu0435u043du0438 (u043eu0442u0447u0435u0441u0442u0432u0443"';

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!