• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

delphi使用superobject实现jsonrpc的http远程调用good

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

 

[delphi] view plain copy
 
  1. procedure TForm5.Button4Click(Sender: TObject);  
  2. var  
  3.   O, item: ISuperObject;  
  4.   Strm: TStringStream;  
  5.   result: string;  
  6.   ctx: TSuperRttiContext;  
  7.   student: TStudent;  
  8. begin  
  9.   //可以参考superobject 的readme.html  
  10.   //json demo https://en.bitcoin.it/wiki/API_reference_%28JSON-RPC%29  
  11.   // {"jsonrpc":"2.0","method":"fuck","params":["hehe",32,4],"id":"1433813750019"}  
  12.   // O := SO('{"jsonrpc":"2.0","method":"fuck","params":["hehe",32,4],"id":"1433813750019"}');  
  13.   // O := SO('{"jsonrpc": "2.0", "method": fuck, "params":["hehe",32,4]}');  
  14.   O := SO(  
  15.     '{"jsonrpc": "2.0", "method": "fuck", "params":["hehe",32,4],"id":"12"}');  
  16.   Strm := TStringStream.Create(O.AsString);  
  17.   try  
  18.     IdHTTP1.Request.ContentType := 'application/json';  
  19.     result := IdHTTP1.Post('http://10.0.0.107/json_server/server.php', Strm);  
  20.     Memo1.Lines.Add(result);  
  21.     O := SO(result);  
  22.     Memo1.Lines.Add(O.AsObject.S['result']);  
  23.   
  24.     O := SO(  
  25.       '{"jsonrpc":"2.0","method":"getstudent","params":[{"id":1,"name":"name","age":123}],"id":"1433813750240"}');  
  26.     Strm := TStringStream.Create(O.AsString);  
  27.     result := IdHTTP1.Post('http://10.0.0.107/json_server/server.php', Strm);  
  28.     Memo1.Lines.Add(result);  
  29.     O := SO(result);  
  30.     result := O.AsObject.S['result'];  
  31.     Memo1.Lines.Add(result);  
  32.   
  33.     ctx := TSuperRttiContext.Create;  
  34.     try  
  35.       // json转换为对象  
  36.       student := ctx.AsType<TStudent>(SO(result));  
  37.       ShowMessage(student.name);  
  38.       // 对象转换为json  
  39.       O := ctx.AsJson<TStudent>(student);  
  40.       ShowMessage(O.AsString);  
  41.     finally  
  42.       // ctx.Free;  
  43.     end;  
  44.   
  45.     O := SO(  
  46.       '{"jsonrpc":"2.0","method":"getstudents","params":["xxx"],"id":"1433814568751"}');  
  47.     Strm := TStringStream.Create(O.AsString);  
  48.     result := IdHTTP1.Post('http://10.0.0.107/json_server/server.php', Strm);  
  49.     Memo1.Lines.Add(result);  
  50.     O := SO(result);  
  51.     Memo1.Lines.Add(O.AsObject.S['result']);  
  52.   
  53.     for item in O['result'] do  
  54.     begin  
  55.   
  56.       student := ctx.AsType<TStudent>(item);  
  57.       ShowMessage(student.name);  
  58.       // ShowMessage(item.AsString);  
  59.     end;  
  60.   finally  
  61.     Strm.Free;  
  62.   end;  
  63. end;  

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

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
delphi中配置文件的使用（*.ini）发布时间：2022-07-18
下一篇：
Delphi操作键盘按下和释放操作发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap