Discussion :

[BrunetteCP]

Bonjour,

J'utilise delphi 2010 et je dois lire un paquet JSON. Voici ce que je reçois '{ "email":"caro-ch", "password":"123456", "codeEMS":"eros-ch" }'

Selon mes recherche, il faut utiliser l'unité DBXJSON.


Comment faire pour lire une valeur en particulier, par exemple juste la valeur de la string 'password'. Merci de m'aider.

Le lien ci-dessous m'a un peu aidé, mais moi je veux pas tout lire le paquet, juste une valeur en particulier.

https://stackoverflow.com/questions/...-fails-with-ex

vJson.Get('password').JsonValue.Value

Code :

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

1
2
3
4
5
 
vJson: TJSONObject;
AJsonText := '{ "email":"caro-ch", "password":"123456", "codeEMS":"eros-ch" }'
 
vJson := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(AJsonText), 0) as TJSONObject;

[Papy214]

Je ne sais pas si c'est possible mais superobject devrait faciliter la vie

https://youtu.be/G6WuIQTm7hE

https://github.com/hgourvest/superobject

[gbegreg]

Bonsoir,

J'utilise TJsonTextReader fourni en standard mais je ne sais plus depuis quelle version. En tout cas, avec Berlin et (évidemment) Tokyo c'est disponible.

[Hermite]

Sous Delphi 2010 il ne semble pas possible d'accéder à un élément JSON par son nom.

Sans passer par une bibliothèque tiers, il faut parcourir les éléments :

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
 
    AJsonText :string ;
    myPwd : string;
    myJson : TJSonObject;
    myElement:TJSONPair;
 
 
 
 
  AJsonText := '{"email":"caro-ch","password":"123456","codeEMS":"eros-ch"}';
  myJSon := TJsonObject(TJSonOBject.ParseJSONValue(TEncoding.ASCII.GetBytes(AJsonText), 0));
 
  for i := 0 to TJSONArray(myJson).Size - 1 do
  begin
    myElement := TJSONPair(myJson.Get(i));
    if myElement.JsonString.Value = 'password' then
      myPwd := myElement.JsonValue.Value;
  end;