json_TO_clientdataset_JSONUtil包.rar

procedure TForm1.Button1Click(Sender: TObject); var jsonstr,objString, getString:string; jo, json: ISuperObject; ja2, ja: TSuperArray; begin try // DELPHI 7 需要 將 utf8 轉化為 GBK或 BIG5; // 如：轉為 UTF-8 轉 BIG5 ,引用 MYUNICODE.pas單元； // MEMO3.TEXT:= MyUnicode.UnicodeToBig5String(objString); objString :='{"Result":[{"sys_name":"生產控制","app_id":"frm_acf","app_name":"ACF 規格錄入"}' +',{"sys_name":"生產控制","app_id":"frm_aim_lv","app_name":"目標良率設定"}' +',{"sys_name":"生產控制","app_id":"frm_aruncard1","app_name":"補料流程卡"}]}'; getString :='[{"sys_name":"生產控制","app_id":"frm_acf","app_name":"ACF 規格錄入"}' +',{"sys_name":"生產控制","app_id":"frm_aim_lv","app_name":"目標良率設定"}' +',{"sys_name":"生產控制","app_id":"frm_aruncard1","app_name":"補料流程卡"}]'; // getString:= '[{"id":"0987336122","name":"\u738b\u5c0f\u660e","content":"","misc_type":"Jpeg","misc":null,"msg_date":"2012-10-09 11:18:38"},' // +'{"id":"0987336122","name":"\u674e\u5c0f\u83ef","content":"","misc_type":"Jpeg","misc":null,"msg_date":"2012-10-09 11:18:45"}]'; //getString := idhtp1.Get('http://localhost/xuan/wsLine.php'); json :=SO(getString); ja := json.AsArray; TJSONDB.JsonToClientDataSet(ja, clientdataset1); jo := so(objString); jsonStr:= jo['Result'].AsString ; // JSON对象区分大小写 // showmessage(jo['Result'].AsString); memo4.Text:= jsonStr; finally end; end;