How to parse the JSON data returned by Delphi XE5 Server (translation) and Chinese garbled characters

[Plain]View PlainCopyprint?

1. <span style= "FONT-SIZE:14PX;" > has been looking for how to parse the JSON data, today finally found someone posted. It was previously said to use Superobject,tlkjson,delphi JSON Library,delphi Web unit and so on. In fact, I'm looking for a simpler way to parse. Parse the simple JSON. The following is a reprint of the calm source.
2. </span>

[Delphi]View PlainCopyprint?

2. Unit Unit1;
6. Interface
10. Uses
12. Winapi. Windows, Winapi. Messages, System. Sysutils, System. Variants, System. Classes, Vcl. Graphics,
14. VCL. Controls, Vcl. Forms, Vcl. Dialogs, Vcl.  Stdctrls,dbxjson;
18. Type
20. TForm1 = Class (Tform)
22. Button1:tbutton;
24. procedure Button1Click (sender:tobject);
26. Private
28. {Private declarations}
30. Public
32. {public declarations}
34. end;
38. Var
40. Form1:tform1;
44. Implementation
48. {$R *.DFM}
52. Const
54. Gjsonstring =
56. ' {' +
58. ' ' name ': {' +
60. ' A JSON Object ': {' +
62. ' id ': ' 1 ' +
64. '}, ' +
66. ' Another JSON Object ': {' +
68. ' id ': ' 2 ' +
70. '} ' +
72. '}, ' +
74. ' "Totalobjects": "2" ' +
76. '} ';
80. Procedure TForm1.  Button1Click (Sender:tobject);
82. Var
84. Ljsonobject:tjsonobject;
86. Value:tjsonvalue;
88. Begin
90. Ljsonobject: = nil;
92. Try
94. Ljsonobject: = Tjsonobject.  Create;
96. Value: = Tjsonvalue.  Create;
98. {convert String to JSON}
100. Ljsonobject.  Parse (Bytesof (gjsonstring), 0);
102. Value: =ljsonobject.  GetValue (' name ');
104. ShowMessage (Value.  ToString);
106. finally
108. Ljsonobject.  Free;
110. end;
112. End
116. End.

Gray often good, here thank Bo Master.

However, there will be garbled characters when dealing with Chinese in this way. I modified the code a little bit:

[Delphi]View PlainCopy print?

2. Var
4. Jo:tjsonobject;
6. Jv:tjsonvalue;
8. JSONSTR:string; The JSON string to convert
10. Begin
12. jo:=Nil;
14. Jsonstr:= '{"name": "Chuan Feng", "interest": "Quarrel with Cherry Wood"};
16. Try
18. Jo:=tjsonobject. Create;
20. Jo:=tjsonobjectparsejsonvalue (tencoding. UTF8GetBytes (jsonstr),0) as tjsonobject;
22. Jv:=jo. Get (' interest '). Jsonvalue;
24. ShowMessage (JV. Value);
26. finally
28. Jo.  Free;
30. end;
32. End

can finally be converted into Chinese.
The following is an analysis of Jsonobject (extrapolate):

[Delphi]View PlainCopyprint?

2. Procedure TForm1.  Button1Click (Sender:tobject);
4. Var
6. JSONSTR: string;
8. Jvalue:tjsonvalue;
10. Jobj:tjsonobject;
12. Jpair:tjsonpair;
14. Jarray:tjsonarray;
16. Begin
20. jsonstr:=' {' name': ' Tom', ' Password': ' Tomcat', ' Interests': [' Mouse', ' Meat']} ';
22. Jvalue: = Tjsonobject. Parsejsonvalue
24. (Tencoding. UTF8.  GetBytes (jsonstr), 0);
26. Try
28. Jobj: = Jvalue as tjsonobject;
30. Jpair: = Jobj. Get (2); //Get the third JSON pair
32. Jarray: = Jpair. Jsonvalue as Tjsonarray; //Pair value is an array [' mouse ', ' meat ']
34. Strresult: = Jarray. Get (0). value; //First element of array[' mouse ', ' meat ']
36. ShowMessage (strresult); //it is mouse
38. finally
40. Jvalue.   Free;
42. end;
44. end;

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

How to parse the JSON data returned by Delphi XE5 Server (translation) and Chinese garbled characters