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

[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解析。

posted on 2013-02-22 16:09 kmlxk 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/snippet/archive/2013/02/22/delphi-tiny-json-usage.html