如何解析DELPHI XE5服务器返回的JSON数据（翻译）及中文乱码

[plain] view plain copy

 

 print?

1. <span style="font-size:14px;">一直想找如何解析JSON数据的说，今天终于找到有人发帖子了。之前有人说用superobject，Tlkjson，delphi json library，delphi  web unit等等。其实我是想找比较简单的解析方式。解析简单的json。下面是转载的坦然的源码。  
2. </span>  

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,DBXJSON;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  GJSONString =
    '{' +
    '    "name": {'+
    '        "A JSON Object": {' +
    '          "id": "1"' +
    '        },' +
    '        "Another JSON Object": {' +
    '          "id": "2"' +
    '        }' +
    '    },' +
    '    "totalobjects": "2"' +
    '}';

procedure TForm1.Button1Click(Sender: TObject);
var
  LJSONObject: TJSONObject;
  Value: TJSONValue;
begin
  LJSONObject := nil;
  try
    LJSONObject := TJsonObject.Create;
    Value := TJSONValue.Create;
    { convert String to JSON }
    LJSONObject.Parse(BytesOf(GJSONString), 0);
    Value :=LJSONObject.GetValue('name');
    ShowMessage(Value.ToString);
  finally
    LJSONObject.Free;
  end;
end;

end.

灰常好，在此谢谢博主。

但是这样处理中文的时候会出现乱码现象。我对代码稍微修改了一下：

var
  jo:tjsonobject;
  jv:tjsonvalue;
  jsonstr:string;//要转换的json字符串
begin
  jo:=nil;
  jsonstr:='{"name":"流川枫","interest":"与樱木吵架"};
   try
      jo:=tjsonobject.create;
      jo:=tjsonobject.parsejsonvalue(tencoding.utf8.getbytes(jsonstr),0) as tjsonobject;
      jv:=jo.get('interest').jsonvalue;
      showmessage(jv.value);
   finally
    jo.Free;
   end;
end;

终于能转换成中文了。
下面是关于jsonobject的解析（举一反三）：

procedure TForm1.Button1Click(Sender: TObject);
var
  jsonstr: string;
  jvalue: tjsonvalue;
  jobj: tjsonobject;
  jpair: tjsonpair;
  jarray: tjsonarray;
begin

  jsonstr：='{'name':'tom','password':'tomcat','interests':['mouse'，'meat']}';
  jvalue := tjsonobject.ParseJSONValue
    (tencoding.UTF8.GetBytes(jsonstr), 0);
  try
    jobj := jvalue as tjsonobject;
    jpair := jobj.Get(2); // get the third json pair
    jarray := jpair.JsonValue as tjsonarray; // pair value is an array ['mouse','meat']
    strresult := jarray.Get(0).value; // first element of array['mouse','meat']
    showmessage(strresult);//it is mouse
  finally
    jvalue.Free;
  end;
end;

 

http://blog.csdn.net/syndicater/article/details/17371111