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 );
// 男