Discussion :

[noam00]

Bonjour,
J'ai un problème quand je décode une chaine JSON,
j'ai une valeur qui me donne une chaine JSON, mais mon logiciel affiche une érreur:


MakePingResult est égale à: {"description":"A Minecraft Server","players":{"max":1000,"online":0},"version":{"name":"Spigot 1.8","protocol":47}}

Le code:

Code :

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

1
2
3
4
5
6
7
 
            Dim MakePingResult As String = MakePing()
            TextBox1.Text = MakePingResult
            Dim obj As Query_result
            obj = JsonConvert.DeserializeObject(Of Query_result)(MakePingResult)
 
            MsgBox(obj.version)

Quand la chaine ressemble à ("test1":"testtest1", "test2":"testtest2"} il n'y a aucun problème pourtant..

Je vous remercie d'avance pour votre aide.

Cordialement

[ebastien]

Du peu que je vois, la définition de Query_result.Players est de type String alors que dans ton Json, Players contient max et online (je ne vois pas comment est défini version dans ta classe). Redéfinis ta classe correctement en fonction du Json reçu (je t'avais indiqué un outils qui faisait ça dans un post précédent je crois)

[noam00]

Oui, j'utilise la librairie Newtonsoft.Json comme tu me la dis obj = JsonConvert.DeserializeObject(Of Query_result)(MakePingResult) donc j'ai du mal car je débute en vb

Comment je dois faire pour adapter mon code ?

[Pol63]

il te l'a dit

dans le json players 2 propriétés, donc il faut que créé une sous classe avec ces 2 propriétés et que players soit de ce type plutot que as string

de plus je crois que je jsonserializer fonctionne avec des propriétés, pas des variables (à vérifier)

[noam00]

C'est que je n'arrive pas a créer la "sous classe"

[Pol63]

tu as réussi à écrire public class query_result
tu dois bien pouvoir écrire un peu plus loin public class players ^^