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 ); // 男
https://blog.csdn.net/mpqz1065ok/article/details/80767305