Delphi uses Superobject to implement HTTP remote invocation of JSONRPC good

[Delphi]View PlainCopy

2. Procedure TFORM5.  Button4click (Sender:tobject);
4. Var
6. O, Item:isuperobject;
8. Strm:tstringstream;
10. Result: string;
12. Ctx:tsuperrtticontext;
14. Student:tstudent;
16. Begin
18. //can refer to Superobject's readme.html
20. //json Demo Https://en.bitcoin.it/wiki/API_reference_%28JSON-RPC%29
22. //{"JSONRPC": "2.0", "method": "Fuck", "params": ["hehe", 32,4], "id": "1433813750019"}
24. //O: = So (' {"JSONRPC": "2.0", "method": "Fuck", "params": ["hehe", 32,4], "id": "1433813750019"} ');
26. //O: = So (' {"JSONRPC": "2.0", "method": Fuck, "params": ["hehe", 32,4]} ');
28. O: = SO (
30. ' {"JSONRPC": "2.0", "method": "Fuck", "params": ["hehe", 32,4], "id": "12"} ');
32. STRM: = Tstringstream. Create (O.  asstring);
34. Try
36. IdHTTP1. Request.  ContentType: = ' Application/json ';
38. Result: = IdHTTP1.  Post (' http://10.0.0.107/json_server/server.php ', STRM);
40. Memo1. Lines.  ADD (result);
42. O: = SO (result);
44. Memo1. Lines. ADD (O. Asobject.  s[' result ');
48. O: = SO (
50. ' {"JSONRPC": "2.0", "Method": "Getstudent", "params": [{"id": 1, "name": "Name", "Age": 123}], "id": "1433813750240"} '  );
52. STRM: = Tstringstream. Create (O.  asstring);
54. Result: = IdHTTP1.  Post (' http://10.0.0.107/json_server/server.php ', STRM);
56. Memo1. Lines.  ADD (result);
58. O: = SO (result);
60. Result: = O. Asobject.  s[' result ';
62. Memo1. Lines.  ADD (result);
66. CTX: = Tsuperrtticontext.  Create;
68. Try
70. //JSON conversion to object
72. Student: = CTX.  Astype<tstudent> (SO (result));
74. ShowMessage (student. Name);
76. //Object converted to JSON
78. O: = CTX.  Asjson<tstudent> (student);
80. ShowMessage (O.  asstring);
82. finally
84. //CTX.  Free;
86. end;
90. O: = SO (
92. ' {' Jsonrpc ': ' 2.0 ', ' method ': ' getstudents ', ' params ': [' xxx '], ' id ': ' 1433814568751 '} ';
94. STRM: = Tstringstream. Create (O.  asstring);
96. Result: = IdHTTP1.  Post (' http://10.0.0.107/json_server/server.php ', STRM);
98. Memo1. Lines.  ADD (result);
100. O: = SO (result);
102. Memo1. Lines. ADD (O. Asobject.  s[' result ');
106. For item in o[' result ') do
108. begin
112. Student: = CTX.  Astype<tstudent> (item);
114. ShowMessage (student. Name);
116. //ShowMessage (item.  asstring);
118. end;
120. finally
122. STRM.  Free;
124. end;
126. End

http://blog.csdn.net/earbao/article/details/46423167

Delphi uses Superobject to implement HTTP remote invocation of JSONRPC good