[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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值