[Delphi XE] JSON : iSuperObject - Création d'un JSON multi niveau

Version imprimable

Bonjour voici mon code (Utilisation de ISuperObject) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 aJSONChannel := SO;
 
  for J := 0 to ListTest.Count - 1 do
  begin
    aJSONChannel.S['a'] := ListTest[j].Code;
    aJSONChannel.S['b'] := ListTest[j].Valeur;
 
    // Create node "tranlsations"
    aJSONChannel.O['translations'] := SA([]);
 
    for I := 0 to ListTest[j].ListTranslation.Count-1 do
    begin
      aJSONTransaltionsLang := SO;
      aJSONTransaltionsLang.S['title'] := ListTest[j].ListTranslation[i].Title;
 
      aJSONChannel.A['translations'].Add(aJSONTransaltions);
    end;

et voici le résultat :

Code:

1
2
3
4
5
6
7
8
9
{
	"b": "valeur",
	"a": "code",
	"translations": [
	{"title" : "fr"},
	{"title" : "en"},
	{"title" : "de"}, 
	{"title" : "it"}],
}

Ce que je veux faire c'est d'arriver à ceci :

Code:

1
2
3
4
5
6
7
8
9
{
	"b": "valeur",
	"a": "code",
	"translations": [
	"fr" : {"title" : "fr"},
	"en" : {"title" : "en"},
	"de" : {"title" : "de"}, 
	"it" : {"title" : "it"}],
}

Pour moi il faudrait que je rajoute un node entre {translations} et le bloc {title} , c'est à dire ajouter un objet dans un objet (un SO dans un SO)

ton code JSON est invalide

Code:

1
2
3
4
5
6
7
8
9
10
 
{
	"b": "valeur",
	"a": "code",
	"translations": [
	"fr" : {"title" : "fr"},
	"en" : {"title" : "en"},
	"de" : {"title" : "de"}, 
	"it" : {"title" : "it"}],
}

il devrait être

Code:

1
2
3
4
5
6
7
8
9
10
 
{
	"b": "valeur",
	"a": "code",
	"translations": { // objet et non tableau !
	"fr" : {"title" : "fr"},
	"en" : {"title" : "en"},
	"de" : {"title" : "de"}, 
	"it" : {"title" : "it"}},
}

mais je ne sais pas comment ça se traduit en iSuperObject

12/07/2018, 09h57
lerorodu51

Oui c'est un exemple que j'ai réalisé à la main , désolé de l'erreur.

Finalement ce composant ne permet pas ce genre d'extraction , donc j'ai opté pour une autre stratégie.

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm3.Button1Click(Sender: TObject);
var
  X: ISuperObject;
  A: ISuperArray;
begin
  X := SO();
 
  X.S['b'] := 'valeur';
  X.S['a'] := 'code';
  A := X.A['translations'];
  with A.O[0] do
   O['fr'].S['title'] := 'fr';
 
  ShowMessage(X.AsJSON);
end;

{
"b": "valeur",
"a": "code",
"translations": [
{
"fr": {
"title": "fr"
}
}
]
}

en plus complet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  X: ISuperObject;
  A: ISuperArray;
begin
  X := SO();
 
  X.S['b'] := 'valeur';
  X.S['a'] := 'code';
  A := X.A['translations'];
  with A.O[0] do
   O['fr'].S['title'] := 'fr';
  with A.O[1] do
   O['en'].S['title'] := 'en';
  with A.O[2] do
   O['de'].S['title'] := 'de';
 
  ShowMessage(X.AsJSON);
end;

17/07/2018, 15h21
lerorodu51

Merci pour votre réponse mais j'ai choisi une autre solution qui reprend ,sur le fond, le même algo que votre solution. :D