[Delphi JSON]Delphi的JSON解析库tiny-json用法简介

1. 简介

tiny-json是一个用于生成和解析JSON格式的Delphi小单元（约有1600行代码），可以和FastMM、FastCode等一起使用，以提高解析速度。

2. 使用方法

a. 将下载到的json-1.4.zip解压到任意目录，并在Delphi项目中添加*.pas文件。

项目网址http://code.google.com/p/tiny-json/

b. 将FastMove文件*.pas添加到Delphi项目。

下载地址：http://download.csdn.net/download/xiaobai801124/3958296

c. 将FastCode项目中的FastcodeCPUID.pas文件添加到Delphi项目。

项目网址http://sourceforge.net/projects/fastcode

d. 在代码头部引用单元Uses JSON，并通过JSON.ParseJSON调用。

3. 测试代码

procedure TForm1.Button1Click(Sender: TObject); var arr: JSON.TJSONarray; item: JSON.TJSONbase; str: String; begin str := String('[[20030106,4.50,5.53,5.58,4.97,5.01,194288556,998892578],[20030107,5.01,4.96,5.05,4.82,4.85,58977717,290622430]]'); arr := JSON.ParseJSON(PAnsiChar(AnsiString(str))); Memo1.Lines.Add(Format('Array Items: %d', [arr.Count])); item := arr.Child[1]; item := item.Child[1]; Memo1.Lines.Add(item.Value); end;

4. 总结

实际使用中发现，tiny-json可以较好的完成JSON的创建和解析，但由于大量使用对象，在大型JSON的解析上运行效率低下。JSON官网（http://www.json.org/json-zh.html）中还介绍了其他各个语言的JSON库，对性能要求高的场合下可以尝试其他的库实现JSON解析。