delphi中的json解析类，用法： 转对象： js:=so(); js.I['nID']     :=  nID;        //         js.S['sKey']    :=  sKey;       //         js.S['sID']     :=  sID;        //         js.S['sID3']    :=  sID3;       // 取返回值： vJson:=So(lowercase(sResult));         //检查结果         ret:=getJsonValue(vJson,'error','');