【问题标题】：How to parse a JSON array in RAd Studio?如何在 RAd Studio 中解析 JSON 数组？
【发布时间】：2013-01-29 15:01:15
【问题描述】：

我正在尝试解析以下 Json 文档：

[
  {"EventType":49,"Code":"234","EventDate":"20050202", "Result":1},
  {"EventType":48,"Code":"0120","EventDate":"20130201", "Group":"g1"}
]

我使用以下代码：

TJSONObject* jsonread0 = (TJSONObject*) TJSONObject::ParseJSONValue(TEncoding::ASCII->GetBytes(Memo1->Lines->Text), 0);

for(int i=0;i<jsonread0->Size();i++)
{
    TJSONPair* pair = jsonread0->Get(i);

此时，pair.JsonValue为 NULL。我需要做什么才能读取这些值？

【问题讨论】：

标签： json delphi c++builder

【解决方案1】：

您还可以使用适用于 C++Builder 的 JsonCBuilderBlog 库（免费和开源）从 JSON 字符串中获取数组：

UnicodeString JSONSource =
"[{\"EventType\":49,\"Code\":\"234\",\"EventDate\":\"20050202\", \"Result\":1},"
"{\"EventType\":48,\"Code\":\"0120\",\"EventDate\":\"20130201\",\"Group\":\"g1\"}]";

int           Type; 
UnicodeString Code;
UnicodeString Date;
int           Result;

TMetaObject MyArray;

MyArray.Decode(JSONSource);

for(int i=0; i < MyArray.Count(); i++)
{
    Type   = MyArray[i]["EventType"];
    Code   = MyArray[i]["Code"];
    Date   = MyArray[i]["EventDate"];
}

语法很简单，参考以下链接：JSONCBuilderBlog library。

【讨论】：

【解决方案2】：

dbExpress JSON 解析器被告知是重量级的，有时会出现问题。

也许您可以选择一些 3rd-party 解析器的数量，例如这显示读取数组：http://code.google.com/p/superobject/wiki/first_steps

【讨论】：

【解决方案3】：

您没有正确转换 JSON 字符串，您必须转换为 TJSONArray，然后遍历元素。

试试这些示例

德尔福

{$APPTYPE CONSOLE}

uses
  DBXJSON,
  System.SysUtils;

Const
StrJson =
  '['+
  '{"EventType":49,"Code":"234","EventDate":"20050202", "Result":1},'+
  '{"EventType":48,"Code":"0120","EventDate":"20130201", "Group":"g1"}'+
  ']';


procedure ParseJson;
var
  LJsonArr   : TJSONArray;
  LJsonValue : TJSONValue;
  LItem     : TJSONValue;
begin
   LJsonArr    := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(StrJson),0) as TJSONArray;
   for LJsonValue in LJsonArr do
   begin
      for LItem in TJSONArray(LJsonValue) do
        Writeln(Format('%s : %s',[TJSONPair(LItem).JsonString.Value, TJSONPair(LItem).JsonValue.Value]));
     Writeln;
   end;
end;

begin
  try
    ParseJson;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

C++ 生成器

#include <vcl.h>
#include <windows.h>

#pragma hdrstop
#pragma argsused

#include <tchar.h>
#include <stdio.h>
#include <DBXJSON.hpp>
#include <iostream>


int _tmain(int argc, _TCHAR* argv[])
{
    TJSONArray* LJsonArr = (TJSONArray*)TJSONObject::ParseJSONValue(
    BytesOf((UnicodeString)"[{\"EventType\":49,\"Code\":\"234\",\"EventDate\":\"20050202\", \"Result\":1},  {\"EventType\":48,\"Code\":\"0120\",\"EventDate\":\"20130201\", \"Group\":\"g1\"}]"),0);
    int size = LJsonArr->Size();
    for (int i = 0; i < size; ++i)
    {
      TJSONValue* LJsonValue = LJsonArr->Get(i);
      TJSONArray*  LJsonArr2 =  (TJSONArray*)LJsonValue;
      int size2 = LJsonArr2->Size();
        for (int j = 0; j < size2; ++j)
        {
          TJSONValue* LItem   = LJsonArr2->Get(j);
          TJSONPair* LPair = (TJSONPair*)LItem;
          printf("%s %s \n", (UTF8String )(LPair->JsonString->Value()).c_str(),  (UTF8String )(LPair->JsonValue->Value()).c_str());
        }
    }
    std::cin.get();
    return 0;
}

这将返回

EventType : 49
Code : 234
EventDate : 20050202
Result : 1

EventType : 48
Code : 0120
EventDate : 20130201
Group : g1

【讨论】：

我认为您的代码示例都不正确。输入清楚地表示一个对象数组，但代码将其视为数组数组。尽管对象的内部表示可能是一对数组，但 TJsonObject 和 TJsonArray 是两个不相关的类，因此不应将它们相互转换。此外，TJsonPair 与 TJsonValue 无关。使用检查类型转换（dynamic_cast 和as）会分别在运行时和编译时暴露此类错误。此代码采用了导致原始问题的相同技术。

【解决方案4】：

您的类型转换无效，因此您看到的是未定义的行为。空结果只是您可以从该代码中获得的众多可能结果中的一个。在这种情况下，ParseJSONValue 函数应该返回 TJsonArray，而不是 TJsonObject。虽然这两个类都有Get 方法，但它们不能互换。

数组的Get 方法返回TJsonValue，而不是TJsonPair。对于此特定数据，您可以将值类型转换为 TJsonObject，因为您的数据表示一个包含两个对象的数组。

使用dynamic_cast 或Delphi 的as 运算符将一个类转换为另一个类。

【讨论】：