1、通过delphi程序访问PHP事先写好的webservice(查询功能),webservice返回json格式数据。
2、通过superobject读取json数据
得到效果如下:
//深层级的访问
jo:=SO( '{"datalist":{"username":"admin","name":"管理","sex":"男"}}' );
if jo[ ' datalist.sex' ]<> nil then showmessage(jo[ 'datalist.sex' ].AsString ); // 男
|
请发表评论