Discussion :

[Anselme45]

Bonjour à tous,

J'ai un fichier JSON sous forme de string dans lequel j'ai des tableaux et je cherche à connaitre le nombre d'éléments d'un tableau: Simple JsonArray.count... Certes mais je n'arrive pas à convertir une partie de mon JSON en Array

Avec le code suivant, je peux récupérer la valeur de "location_id" qui se trouve dans le premier élément du tableau "locations_aggregated" qui se trouve dans le 1er élément du tableau "results"

Code :

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

1
2
3
4
5
 
 
JsonValue := TJSonObject.ParseJSONValue(JSONresponse);
 
str:=JsonValue.GetValue<string>('results[0].locations_aggregated[0].location_id');

Mais comment faire pour connaître le nombre d'éléments dans le tableau "locations_aggregated"?

J'ai essayé plusieurs approches

Code :

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

1
2
3
 
myJsonARRAY:=JsonValue.GetValue('results[0].locations_aggregated') as TJSONARRAY;
count:=myJsonARRAY.count;

ou encore

Code :

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

1
2
 
myJsonARRAY:=JsonValue.GetValue<Array>('results[0].locations_aggregated');

Les 2 approches sont refusées à la compilation avec une erreur "La méthode Getvalue nécessite des arguments type explicites"

Est-ce que qqn a la solution,,,,

[pprem]

essaie avec un TryGetValue<>() ou tout simplement en descendant les niveaux un par un.

[Anselme45]

Je me réponds à moi-même... Des fois que cela puisse servir à quelqu'un.

La réponse est...

Code :

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

1
2
3
 
JsonArray:=JsonValue.GetValue<TJSONArray>('results[0].locations_aggregated');
count:=JsonArray.count;

<TJSONArray> et pas <Array>! On a donc <string>, mais pas <Array>... Allez chercher une logique dans cette usine à gaz!!!!


On peut vraiment pas dire que la gestion du JSON soit une force de Delphi! Pas logique, compliqué, pas de doc et pas d'exemples

[pprem]

Je me réponds à moi-même... Des fois que cela puisse servir à quelqu'un.

La réponse est...

Code :

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

1
2
3
 
JsonArray:=JsonValue.GetValue<TJSONArray>('results[0].locations_aggregated');
count:=JsonArray.count;

<TJSONArray> et pas <Array>! On a donc <string>, mais pas <Array>... Allez chercher une logique dans cette usine à gaz!!!!


On peut vraiment pas dire que la gestion du JSON soit une force de Delphi! Pas logique, compliqué, pas de doc et pas d'exemples

bin, c'est normal : c'est un TJSONArray, pas un array (j'avais pas fait gaffe que tu l'avais tenté avec le mauvais type, sorry)

[Anselme45]

bin, c'est normal : c'est un TJSONArray, pas un array (j'avais pas fait gaffe que tu l'avais tenté avec le mauvais type, sorry)

A oui? Et un <string> dans ce cas n'est pas un string mais un JSONstring?????

Désolé pprem, mais je t'ai connu plus pertinent dans tes interventions!

[pprem]

A oui? Et un <string> dans ce cas n'est pas un string mais un JSONstring?????

Désolé pprem, mais je t'ai connu plus pertinent dans tes interventions!

c'est le type dans lequel tu veux la récupérer, TJSONString se converti en string sans problème, les tableaux ne le font pas

[Gouyon]

Attention avec JSON il faut bien distinguer ce qui est coté JSON et ce qui est coté Pascal.
Quand on récupère des éléments d'un JSON il faut utiliser les JSONArray et JSONobject

Pour récupérer les valeurs je recommande fortement l'utilisation de TryGetValue
Exemple:

Code :

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

1
2
3
4
5
6
7
 
 if elem.TryGetValue<integer>('partie', refpartie) and elem.TryGetValue<String>('titre', titre) then
    begin
      lbPartiesDispo.items.AddObject(titre, TReference.Create(refpartie));
    end
else
 gereErreur;

Cela permet d'éviter le plantage du programme quand le JSON n'est pas exactement comme il le devrait.