Comment analyser un tableau JSON dans RAd Studio?

Je suis en train d'analyser les suivantes document Json:

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

J'utilise le code suivant:

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);

À ce point, pair.JsonValueest NULL. Que dois-je faire pour lire les valeurs?

OriginalL'auteur Dabiel Kabuto | 2013-02-13

  1. 15

    Vous n'êtes pas un moulage de la Chaîne JSON correctement, vous devez jeter un TJSONArray et puis itérer sur les éléments.

    essayez ces échantillons

    Delphi

    {$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;
}

    Ce sera le retour de

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

EventType : 48
Code : 0120
EventDate : 20130201
Group : g1
    Je ne pense pas que ce soit de votre code échantillons sont corrects. L'entrée représente clairement un tableau d'objets, mais le code traite comme un tableau de tableaux. Bien que la représentation interne d'un objet peut être un tableau de paires, TJsonObject et TJsonArray sont deux classes indépendantes, de sorte qu'ils ne devraient pas être jetés l'un de l'autre. En outre, TJsonPair n'est pas liée à TJsonValue. À l'aide vérifié type de jette (dynamic_cast et as) auraient exposé de telles erreurs au moment de l'exécution et de la compilation, respectivement. Ce code utilise les mêmes techniques qu'à l'origine du problème.

    OriginalL'auteur RRUZ

  2. 2

    dbExpress parser JSON a été dit d'être lourds et parfois problématique.

    Peut-être vous pouvez choisir certains de le nombre de la 3e partie des analyseurs, par exemple, cela montre la lecture de tableau: http://code.google.com/p/superobject/wiki/first_steps

    OriginalL'auteur Arioch 'The

  3. 1

    Vous avez une défaillance de type plâtre, de sorte que ce que vous voyez est un comportement indéfini. Un résultat nul est juste un de nombreux résultats possibles, vous pouvez attendre de ce code. Le ParseJSONValue fonction dans ce cas doit retourner un TJsonArray, pas un TJsonObject. Bien que les deux classes ont Get méthodes, ils ne sont pas interchangeables.

    Du tableau Get méthode retourne un TJsonValue, pas un TJsonPair. Pour ce type particulier de données, vous pouvez saisir-convertir la valeur TJsonObject parce que vos données représente un tableau de deux objets.

    Utilisation dynamic_cast ou Delphi as opérateur de cast d'une classe à l'autre.

    OriginalL'auteur Rob Kennedy

  4. 1

    vous pouvez obtenir un tableau à partir d'une chaîne JSON également à l'aide de la JSonCBuilderBlog Bibliothèque C++Builder (gratuit et open source):

    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"];
}

    La syntaxe est très simple, voir le lien suivant à titre de référence: JSONCBuilderBlog bibliothèque.

    OriginalL'auteur AngeloDM