Discussion :

[joc02]

Bonjour,

J'aurais voulu savoir s'il y existait une structure permettant de faire des requêtes sur un JSON, sans parcourir tout l'arbre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
{
"nhits":10568084,
"temp":18084,
"metrics":1084,
"dataset":[
"Nom",
"Prenom"
]
}

Dans l'exemple ci-dessus je voudrais travailler directement sur "dataset".
Pouvez-vous me donner la meilleur démarche pour le faire ?

[Invité]

Code javascript :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var data = {
    "nhits":10568084,
    "temp":18084,
    "metrics":1084,
    "dataset":[
        "Nom",
        "Prenom"
    ]
};
 
alert(data.dataset);

[Papy214]

on est dans le forum Delphi ici

[Papy214]

Bonjour,

J'aurais voulu savoir s'il y existait une structure permettant de faire des requêtes sur un JSON, sans parcourir tout l'arbre.

Dans l'exemple ci-dessus je voudrais travailler directement sur "dataset".
Pouvez-vous me donner la meilleur démarche pour le faire ?

Sans indiquer la version de Delphi, difficile de répondre

[Papy214]

avec XE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
uses System.Json;
 
var
 T: string =
    '{' +
    '  "nhits": 10568084,' +
    '  "temp": 18084,' +
    '  "metrics": 1084,' +
    '  "dataset": [' +
    '    "Nom",' +
    '    "Prenom"' +
    '  ]' +
    '}';
 
procedure TForm20.Button1Click(Sender: TObject);
var
  Js, Ds: TJSONValue;
  V: TJSONArray;
  S: TJSONValue;
  I: Integer;
begin
  Js := TJSONValue.Create;
  Js := TJSONObject.ParseJSONValue(T);
  ShowMessage(Js.ToJSON);
  V := Js.GetValue<TJSONArray>('dataset');
  ShowMessage(V.ToJSON);
  for I := 0 to V.Count - 1 do
    ShowMessage(V.Items[I].Value);
 
  // en condensé
  with TJSONObject.ParseJSONValue(T).GetValue<TJSONArray>('dataset') do
    for I := 0 to Count - 1 do
      ShowMessage(Items[I].Value);
 
end;

[joc02]

Merci Papy214.
Je suis en Delphi Berlin donc pas de souci avec ta méthode.

[evasof]

Bonjour,

je sais que cette discussion est "résolue", mais j'aimerais ajouter une question : avec Delphi 7, il ne semble pas possible d'utiliser System.JSON. Y a-t-il une autre solution similaire pour une vieille version Delphi ?

Merci vraiment de m'aiguiller.

[Papy214]

https://github.com/hgourvest/superobject

je pense que ça doit fonctionner avec un vieux delphi

[GoustiFruit]

Un petit coup de TDocVariant de chez mORMot ?
http://blog.synopse.info/post/2014/0...m-variant-type
https://synopse.info/files/html/Syno...8.html#TITL_80

[ShaiLeTroll]

GoustiFruit, tu évoques mORMot !
Me dirigeant vers un WS REST, ce Framework m'intéresse fortement, un avis ?

[GoustiFruit]

Hélas je n'ai pas les connaissances ni le niveau nécessaires pour comprendre le fonctionnement de tous les outils de ce framework, tout ce que je sais c'est que c'est du code très pointu, très optimisé, très efficace, très costaud.
Même quand on a un bon niveau, j'imagine qu'il faut prendre le temps de lire la documentation pour assimiler les concepts, et le temps d'analyser les exemples.