Delphi使用JSON
2011-06-03 19:57
375 查看
JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写,同时也易于机器解析和生成。它基于JavaScript(Standard ECMA-262 3rd Edition - December 1999)的一个子集。 JSON采用完全独立于语言的文本格式,但是也使用了类似于C语言家族的习惯(包括C, C++, C#, Java, JavaScript, Perl, Python等)。这些特性使JSON成为理想的数据交换语言。
Delphi7中不支持JSON文件的解析,可以下载LkJSON(一个JSON的解析文件),然后进行解析。例如
其中json.txt文件内容为:
{
"ranch":
{"lv":"10","fg":"433","fd":"440","j":"2","ranchs":
[{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"0","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"1","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"2","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"3","stat":"0","item":"1014","fif":"0"},
{"tti":46800,"ti":5053,"we":"0","wo":"0","ar":"4","ph":1,"num":57,"or":57,"hp":"100","se":"3","pt":38,"st":0,"id":"4","stat":"0","item":"1014","fif":"1"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"5","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"6","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"7","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"8","stat":"0","item":"1014","fif":"0"},
{"tti":46800,"ti":5048,"we":"0","wo":"0","ar":"4","ph":1,"num":57,"or":57,"hp":"99","se":"3","pt":38,"st":0,"id":"9","stat":"0","item":"1014","fif":"1"},
{"tti":46800,"ti":5050,"we":"0","wo":"0","ar":"4","ph":1,"num":57,"or":57,"hp":"96","se":"3","pt":38,"st":0,"id":"10","stat":"0","item":"1014","fif":"1"},
{"id":"11","stat":"0","item":"0","fif":"0"}]
},
"de":[],
"pi":
{"id":"1054966","uid":"26905522","n":"pan","lv":"26","exp":15886,"gg":"620564","db":"50","gold":0,"etn":21870,"sc":"156","gc":"195",
"ac":
{"sp":4370,"id":12}},"gc":"0","task":{"tid":"0","ti":"5","ht":0},"nc":1,"df":0,"mac":{"lv":"12","exp":989,"en":"133.00"},
"npt":
["501","502","508","509","510","521","504","505","507","520","512","511","513","522","524","525","515","516","514","523","526"],
"sks":
[{"id":101,"lv":"1"},{"id":100,"lv":"1"},{"id":102,"lv":"1"}],
"wt":"3",
"lu":{"fl":0},
"re":{"c":-1},
"ti":1263460473,
"sn":"happyRanchZone",
"cmd":1002
}
}
}
json2.txt文件内容为:
{
"list":
{
"key":"fkey",
"class":"compeditor",
"caption":"公司信息",
"showtype":1,
"script":{
"main":{"key":11100003,"step":1}
}
},
"editer":
{
"caption":"公司信息"
}
}
Delphi7中不支持JSON文件的解析,可以下载LkJSON(一个JSON的解析文件),然后进行解析。例如
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; memo1: TMemo; Memo2: TMemo; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses uLkJSON,PerlRegEx; {$R *.dfm} procedure listarray(returnval: string; memo: Tmemo); var json, item: TlkJSONbase; i: integer; list: TlkJSONObject; str: TlkJSONstring; begin json := TlkJSON.ParseText(returnval); for i := 0 to pred(json.Count) do begin item := TlkJSONObject(json).child[i]; // This is the named array, name in name, the array in Objvalue Memo.Lines.Add(TlkJSONobjectmethod(item).name); // list:=TlkJSONobject(TlkJSONobjectmethod(item).Objvalue); end; end; procedure getlist(returnval: string; memo: Tmemo); var Jstart: TlkJSONbase; jAddr: TlkJSONList; s: string; begin Jstart := TlkJSON.ParseText(returnval) as TlkJSONobject; //Jstart.field 为jbase时, s := vartostr(Jstart.Field['mac'].Field['lv'].Value); memo.Lines.add(s); //Jstart.field 有子数据为jslist时 s := vartostr(Jstart.Field['ranch'].Field['ranchs'].Child[1].field['hp'].Value); memo.Lines.add(s); end; procedure getlist1(returnval: string; memo: Tmemo); var Jstart: TlkJSONbase; jAddr: TlkJSONList; s: string; begin Jstart := TlkJSON.ParseText(returnval) as TlkJSONobject; //Jstart.field 为jbase时, s := vartostr(Jstart.Field['list'].Field['key'].Value); memo.Lines.add(s); //Jstart.field 有子数据为jslist时 s := vartostr(Jstart.Field['list'].Field['script'].field['main'].Field['key'].Value); memo.Lines.add(s); end; procedure TForm1.Button1Click(Sender: TObject); var vJsonObj: TlkJsonObject; vJsonStr: string; begin memo1.Lines.Clear; Memo2.Lines.Clear; vJsonObj := TlkJSONstreamed.loadfromfile('d:\json2.txt') as TlkJsonObject; vJsonStr := TlkJSON.GenerateText(vJsonObj); memo1.Text := vjsonstr; listarray(memo1.Text, memo2); Memo2.Lines.Add(''); getlist(memo1.Text, memo2); end; procedure TForm1.Button2Click(Sender: TObject); var vJsonObj: TlkJsonObject; vJsonStr: string; begin memo1.Lines.Clear; Memo2.Lines.Clear; vJsonObj := TlkJSONstreamed.loadfromfile('d:\json.txt') as TlkJsonObject; vJsonStr := TlkJSON.GenerateText(vJsonObj); memo1.Text := vjsonstr; listarray(memo1.Text, memo2); Memo2.Lines.Add(''); getlist1(memo1.Text, memo2); end;
end.
其中json.txt文件内容为:
{
"ranch":
{"lv":"10","fg":"433","fd":"440","j":"2","ranchs":
[{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"0","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"1","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"2","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"3","stat":"0","item":"1014","fif":"0"},
{"tti":46800,"ti":5053,"we":"0","wo":"0","ar":"4","ph":1,"num":57,"or":57,"hp":"100","se":"3","pt":38,"st":0,"id":"4","stat":"0","item":"1014","fif":"1"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"5","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"6","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"7","stat":"0","item":"1014","fif":"0"},
{"tti":0,"ti":0,"we":"0","wo":"0","ar":"0","ph":6,"num":56,"or":57,"hp":"100","se":"2","pt":38,"st":0,"id":"8","stat":"0","item":"1014","fif":"0"},
{"tti":46800,"ti":5048,"we":"0","wo":"0","ar":"4","ph":1,"num":57,"or":57,"hp":"99","se":"3","pt":38,"st":0,"id":"9","stat":"0","item":"1014","fif":"1"},
{"tti":46800,"ti":5050,"we":"0","wo":"0","ar":"4","ph":1,"num":57,"or":57,"hp":"96","se":"3","pt":38,"st":0,"id":"10","stat":"0","item":"1014","fif":"1"},
{"id":"11","stat":"0","item":"0","fif":"0"}]
},
"de":[],
"pi":
{"id":"1054966","uid":"26905522","n":"pan","lv":"26","exp":15886,"gg":"620564","db":"50","gold":0,"etn":21870,"sc":"156","gc":"195",
"ac":
{"sp":4370,"id":12}},"gc":"0","task":{"tid":"0","ti":"5","ht":0},"nc":1,"df":0,"mac":{"lv":"12","exp":989,"en":"133.00"},
"npt":
["501","502","508","509","510","521","504","505","507","520","512","511","513","522","524","525","515","516","514","523","526"],
"sks":
[{"id":101,"lv":"1"},{"id":100,"lv":"1"},{"id":102,"lv":"1"}],
"wt":"3",
"lu":{"fl":0},
"re":{"c":-1},
"ti":1263460473,
"sn":"happyRanchZone",
"cmd":1002
}
}
}
json2.txt文件内容为:
{
"list":
{
"key":"fkey",
"class":"compeditor",
"caption":"公司信息",
"showtype":1,
"script":{
"main":{"key":11100003,"step":1}
}
},
"editer":
{
"caption":"公司信息"
}
}
相关文章推荐
- 使用delphi 开发多层应用(十二)使用kbmMW webserver 返回JSON
- Delphi中使用ISuperObject解析Json数据的实现代码
- 预习 Delphi 2009 中的新功能 - JSON (二) : 如何在 Delphi 中使用 json
- 李维 《使用Delphi开发分散式JSON应用系统》
- Delphi使用JSON解析调用淘宝IP地址库REST API 示例
- Delphi中使用JSON格式数据
- Delphi中JSon SuperObject 使用:数据集与JSON对象互转
- delphi 原生支持 json,不使用第三方单元,在xe6中测试通过
- 使用json-rpc实现delphi+java异构语言RPC调用
- lkJSON-Delphi下使用json数据格式
- Delphi使用JSON
- Delphi使用JSON
- lkJSON - Delphi下使用json数据格式
- 在Delphi中使用JSon
- Delphi中JSon SuperObject 使用:数据集与JSON对象互转
- Delphi XE7中使用JSON
- Delphi使用SuperObject解析Json时提示“Integer overflow”
- Delphi XE7中使用JSON