delphi如何提取JSON的值?

Question

{"a":1,"b":1,"c":0,"d":0,"dog":{"dogId":3,"isHungry":1},"e":5,"exp":128774,"farmlandStatus":
[{"a":225,"b":4,"bitmap":1,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":2,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279176648,"r":0},{"a":118,"b":1,"bitmap":1,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":0,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279201098,"r":0},
{"a":225,"b":4,"bitmap":1,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":2,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279176648,"r":0},{"a":225,"b":4,"bitmap":1,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":2,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279176648,"r":0},
{"a":225,"b":4,"bitmap":1,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":2,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279176648,"r":0},{"a":225,"b":4,"bitmap":1,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":2,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279176648,"r":0},
{"a":225,"b":4,"bitmap":1,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":2,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279176648,"r":0},{"a":83,"b":4,"bitmap":1,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279216248,"r":0},
{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279216248,"r":0},{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":3,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279216248,"r":0},
{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279216248,"r":0},{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279216248,"r":0},
{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279216248,"r":0},{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279216248,"r":0},
{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279216248,"r":0},{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279216248,"r":0},
{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":{},"o":0,"p":
{},"pId":0,"q":1279216248,"r":0},{"a":83,"b":4,"bitmap":0,"c":0,"d":0,"e":1,"f":0,"g":0,"h":1,"i":100,"j":1,"k":0,"l":0,"m":0,"n":
{},"o":0,"p":{},"pId":0,"q":1279216248,"r":0}],"items":{"1":{"itemId":253},"2":{"itemId":274},"4":{"itemId":520},"9":
{"itemId":90015}},"serverTime":{"time":1279281876},"task":{"taskFlag":0,"taskId":0},"user":
{"canbad":50,"exp":128774,"headPic":"","healthMode":{"beginTime":0,"canClose":1,"date":"1970-01-01|1970-01-
07","endTime":547200,"serverTime":1279281876,"set":0,"time":"08|00","valid":0},"missionTime":168743,"money":626114,"pf":1,"
uId":84401312,"uinLogin":84271765,"userName":"","yellowlevel":0,"yellowstatus":0},"weather":{"weatherDesc":"雨
天","weatherId":3}}如何用DELPHI把这些值取出来？serverTime":{"time":1279281876}
uId":84401312,"
uinLogin":84271765,"
userName":"","

Answer 1

http://sourceforge.net/projects/lkjson/

Answer 2

：NBA本来我劝莱利在夏天搞定杰佛森或者小斯其中的一个谁想到他居然弄来了博什。而布泽尔去了公牛。斯隆早就看出来依靠现在的阵容只能做火箭的死敌。而成不了菲尔的对手，所以卖了个大前引进个中锋。希望德隆能向着Mvp使劲！

Answer 3

json也是树形层次存储的，分析起来也与xml一样麻烦
只是javascript遇到它们可以直接使用（由js的解释器分析了），才觉得方便

Answer 4

我知道用json来解析,但是不知道从哪下手啊.比如我要取serverTime":{"time":1279281876}
uId":84401312,"
uinLogin":84271765,"
userName":"","JSON要怎么写啊比如:
var
json:ISuperObject;
begin
json := o.(memo1.text);memo2.text:=........o.['user.uid']memo2.text:=
end;

Answer 5

json:=SO(memo1.text);
uID:=json.I['uid'];
uUserName:=json.S['USERNAME'];如果是对象的话那就再转化次

Answer 6

http://www.cnblogs.com/del/category/215158.html
看这个,万一老师讲的非常详细

Answer 7

找个JSON解析库，看一看DEMO，查一查文档就差不多了
楼主几位已贴链接，不再重复