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;
json_TO_clientdataset_JSONUtil包.rar
5星 · 超过95%的资源 需积分: 12 177 浏览量
2015-09-06
11:19:04
上传
评论 6
收藏 42KB RAR 举报
Samrv.W
- 粉丝: 15
- 资源: 43
- 1
- 2
前往页