delphi json xe2

先来看看什么是Json JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写。同时也易于机器解析和生成。它基于JavaScript Programming Language, Standard ECMA-262 3rd Edition - December 1999的一个子集。 JSON采用完全独立于语言的文本格式，但是也使用了类似于C语言家族的习惯（包括C, C++, C#, Java, Delphi，JavaScript, Perl, Python等）。这些特性使JSON成为理想的数据交换语言。 在http://www.json.org/json-zh.html中，已经提供了针对各种语言的json支持。 从它名字中就可以看出，json最早是来源于javascript，在javascript中操作json数据异常简单清晰。可以像操作类对象一样运用json数据，如 //example1: jdata ={"name":"老王","age":"25"}; str1 = jdata.name;//老王 str2 = jdata["name"];//老王 //example2: jdata ={"name":"老王","age":"25","address":{"address1":"福州","address2":"厦门"}}; str1 = jdata.address.address1;//福州 str2 = jdata["address"]["address1"];//福州 在Delphi2009之后的版本已经加入了对json的支持，不再需要第三方类库的支持。但我跟喜欢用Henri Gourvest的开发的SuperObject，有兴趣的可以到http://www.progdigy.com/?page_id=6了解，最新版是1.24. SuperObject提供了两个类库文件SuperObject.pas，superxmlparser.pas，其中SuperObject.pas就是用于操作json数据，而superxmlparser.pas用与从XML数据中解析出json数据。 简单例子 uses SuperObject; procedure TForm1.Button1Click(Sender: TObject); var soTest:ISuperObject; begin soTest := so('{"name":"张三","age":"25","address":{"Address1":"福州","address2":"厦门"}}'); //等价的方法 soTest := TSuperObject.ParseString('{"name":"张三","age":"25","address":{"Address1":"福州","address2":"厦门"}}'); ShowMessage(soTest['name'].AsString);//张三 ShowMessage(soTest['address.Address1'].AsString);//福州 end; SuperObject类库提供了类似javascript操作json的数据的方式，相当方便。