4

次の 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 です。値を読み取るにはどうすればよいですか?

4

4 に答える 4

18

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 ++ Builder

#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
于 2013-02-14T03:11:18.450 に答える
2

無効な型キャストがあるため、未定義の動作が表示されます。null の結果は、このコードから期待できる多くの結果の1 つにすぎません。この場合の関数は、ではなくParseJSONValueを返す必要があります。どちらのクラスにもメソッドがありますが、交換可能ではありません。TJsonArrayTJsonObjectGet

配列のGetメソッドはTJsonValueではなく を返しますTJsonPair。この特定のデータについては、TJsonObjectデータが 2 つのオブジェクトの配列を表しているため、値を型キャストできます。

dynamic_castまたは Delphi の演算子を使用asして、あるクラスから別のクラスにキャストします。

于 2013-02-13T22:56:56.647 に答える
2

dbExpress JSON パーサーは、重量があり、問題が発生する場合があると言われていました。

おそらく、いくつかのサードパーティ パーサーを選択できます。たとえば、これは読み取り配列を示しています: http://code.google.com/p/superobject/wiki/first_steps

于 2013-02-14T07:56:22.713 に答える