我的
JSON对象如下所示：
{
"destination_addresses" : [ "Paris,France" ],"origin_addresses" : [ "Amsterdam,Nederland" ],"rows" : [
{
"elements" : [
{
"distance" : {
"text" : "504 km","value" : 504203
},"duration" : {
"text" : "4 uur 54 min.","value" : 17638
},"status" : "OK"
}
]
}
],"status" : "OK"
}
我需要距离的“504 km”值.我怎样才能做到这一点？
解决方法
您可以使用自Delphi 2010以来的
DBXJSON单元.
试试这个样本
uses
DBXJSON;
{$R *.fmx}
Const
StrJson=
'{ '+
' "destination_addresses" : [ "Paris,'+
' "origin_addresses" : [ "Amsterdam,'+
' "rows" : [ '+
' { '+
' "elements" : [ '+
' { '+
' "distance" : { '+
' "text" : "504 km",'+
' "value" : 504203 '+
' },'+
' "duration" : { '+
' "text" : "4 uur 54 min.",'+
' "value" : 17638 '+
' },'+
' "status" : "OK" '+
' } '+
' ] '+
' } '+
' ],'+
' "status" : "OK" '+
'}';
procedure TForm6.Button1Click(Sender: TObject);
var
LJsonObj : TJSONObject;
LRows,LElements,LItem : TJSONValue;
begin
LJsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(StrJson),0) as TJSONObject;
try
LRows:=LJsonObj.Get('rows').JsonValue;
LElements:=TJSONObject(TJSONArray(LRows).Get(0)).Get('elements').JsonValue;
LItem :=TJSONObject(TJSONArray(LElements).Get(0)).Get('distance').JsonValue;
ShowMessage(TJSONObject(LItem).Get('text').JsonValue.Value);
finally
LJsonObj.Free;
end;
end;