Code Snippet

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

 

 

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  阅读(1267)  评论(0编辑  收藏  举报