JSON相对XML轻量了很多，考虑到以后WEBSERVICE可以通过JSON实现DELPHI 的程序和WEBSERVICE进行交互，今天就想去看一下DELPHI如何解析JSON.
比如：如何将：
{"metaData":[{"a":"哇","b":"d"},{"a":"哇","b":"d"}],"success":true,"totalProperty":4}
这个JOSN字符串用类来表示。
网上查了一下，DELPHI JOSN，大都是在说用DELPHI开发JSON项目，这个不是我想好的，我只想要对于一个JSON的字符串，如何用DELPHI解析到类中。
到万一的博客中，有一篇讲如何在DELPHI中使用JSON
wwwblogs/del/archive/2008/08/06/1261583.html
结果只讲了一半，没有继续说下去。
貌似DELPHI2009的JSON不是很完善。
/json-zh.html里的连接，到了对JSON支持的DELPHI单元，有三个：
Delphi Web Utils.
JSON Delphi Library.
JSON Toolkit.
下了DELPHI WEB UTILS，发现这个对解析复杂的JSON的时候会出现错误。
procedure TForm3.bbtn2Click(Sender: TObject);
var
a: TJSONObject;
b: TStringStream;
begin
b := TStringStream.Create();
b.LoadFromFile('a.txt');
a := ate(b.DataString);
end;
在CREAGTE的时候对于复杂的JSON就出错误了。
其实这个UNIT分装的挺好的，其使用方法和JA V A的JSONLIB（net.sf.json)很类似。可惜不能用。
----------------------------------------
接着下了json delphi library
var
js,xs:TlkJSONobject;
ws: TlkJSONstring;
s: String;
i: Integer;
webservice实现
b: TStringStream;
begin
b := TStringStream.Create();
b.LoadFromFile('a.txt');
s := b.DataString;
js := TlkJSON.ParseText(s) as TlkJSONobject;
Memo1.Lines.Add('parent self-type name: ' + js.SelfTypeName);
Memo1.Lines.Add(IntToStr(TlkJSONlist(js.Field['metaData'].Field['fields']).count));
Memo1.Lines.Add(TlkJSONlist(js.Field['metaData'].Field['fields']).Child[1].field['name'].Value);
运行正常。
以后就用这个吧。
if ($ != jQuery) { $ = Conflict(); }

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。