Discussion :

[Wil14]

Bonjour,

Je cherche à initialiser un TObjectList à l'aide du Json suivant :

Code :

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

'[{"tac_id":"2","tac_lib":"Analyse"},{"tac_id":"1","tac_lib":"Autre"},{"tac_id":"7","tac_lib":"Production"}]'

Avez-vous un exemple ?
Merci

[ShaiLeTroll]

Je pense que l'article JSON de l'aide en ligne devrait t'intéresser et particulièrement à TJSONObject.Parse

[Wil14]

Je bloque toujours, j'ai tenté :

Code :

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

1
2
3
 
json := TJSONObject.Create;
json.ParseJSONValue(ChaineJSon);

ainsi que

Code :

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

1
2
3
4
5
 
SetLength(buf,Length(ChaineJSon)*SizeOf(Char));
Move(ChaineJSon[1],buf[0],Length(buf));
json := TJSONObject.Create;
json.parse(buf,0);

json.Size -> Donne toujours 0

[ShaiLeTroll]

Lit cet autre article Sérialisation des objets utilisateur
Tu dois pouvoir utiliser un TJSONUnMarshal, cela semble nécessiter des RTTI !
C'est plutôt orienté DataSnap tout ça ! Je ne sais pas si c'est dédié à une utilisation manuelle !

Dans la doc ParseJSONValue est une méthode de classe, essaye plutôt ceci !

Code :

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

json := TJSONObject.ParseJSONValue(ChaineJSon);

Je ne sais pas si le Parse en mode binaire supporte une chaine Unicode ! Il semble plutôt prévu pour l'UTF8 !

[GoustiFruit]

Et avec SuperObject ?
[ame="http://www.youtube.com/watch?v=G6WuIQTm7hE"]Delphi 2010 RTTI & JSON - YouTube[/ame]

PS: oh excellent, je ne savais pas que ce forum intégrait directement les vidéos Youtube !

[Wil14]

Pas de SuperObject, je voulais juste utiliser ce qui est livré avec XE2.
En regardant le code exemple qui est fourni dans "RAD Studio\9.0\Samples\Delphi\DataSnap\JSONViewer\...", j'ai pu trouvé jsondoc.pas et jsontreeview.pas.
Voici comment lire mon Json

Code :

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

1
2
3
4
5
6
7
8
9
 
s := StripNonJson(ChaineJSon); // Vient de jsondoc
JSONvalue := TJSONvalue.Create;
JSONvalue := TJSONObject.ParseJSONValue(BytesOf(s),0);
for i := 0 to TJSONArray(JSONvalue).Size - 1 do
begin
  JSONObject:=TJSONObject(TJSONArray(JSONvalue).Get(I));
  MonObjectList.Add(TMonObj.Create(StrToInt(JSONObject.Get(0).JsonValue.Value),JSONObject.Get(1).JsonValue.Value));
end;

Merci pour votre aide