Problème avec JSON

Version imprimable

1 pièce(s) jointe(s)

Problème avec JSON

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:
Pièce jointe 214671

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

Le code:
Code:

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

04/07/2016, 18h27
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)
04/07/2016, 19h26
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 ?
04/07/2016, 23h22
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)
04/07/2016, 23h26
noam00

C'est que je n'arrive pas a créer la "sous classe"
04/07/2016, 23h36
Pol63

tu as réussi à écrire public class query_result
tu dois bien pouvoir écrire un peu plus loin public class players ^^
06/07/2016, 11h58
noam00

Enfaite j'ai regarder un tuto sur youtube pour écrire sa, je connais juste les bases en vb

Cordialement
06/07/2016, 12h04
ebastien

Bonjour,
Tu vas sur le site jsonutils.com, tu choisis ton langage, tu copie-colle ton json et il te génère tes classes. Ca ne devrait pas poser de problème.

Oui, mais sa donne les class en c# (Je crois) et pas en vb

Mon code actuel est:

Code:

1
2
3
4
5
6
7
 
obj = JsonConvert.DeserializeObject(Of Query_result)(MakePingResult)
 
 
Public Class Query_result
        Public players As String
End Class

Comment mettre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
public class Players
    {
        public int max { get; set; }
        public int online { get; set; }
    }
 
    public class Version
    {
        public string name { get; set; }
        public int protocol { get; set; }
    }
 
    public class Example
    {
        public string description { get; set; }
        public Players players { get; set; }
        public Version version { get; set; }
    }

Cordialement

06/07/2016, 19h00
Pol63

convertisseur c# / vb.net :

http://converter.telerik.com/

j'ai chercher le même site sur google avant d'envoyer mon dernier POST,

j'ai donc mis ce code:

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
    Private Sub MaterialFlatButton1_Click(sender As Object, e As EventArgs) Handles MaterialFlatButton1.Click
        FlatStatusBar1.Text = "Status: Connexion in progress.."
        FlatAlertBox1.Text = "Connexion in progress.."
        FlatAlertBox1.kind = FlatAlertBox._Kind.Info
 
        If MakeConnection(MaterialSingleLineTextField1.Text, MaterialSingleLineTextField2.Text) Then
            FlatStatusBar1.Text = "Status: Connected"
            FlatAlertBox1.Text = "You are now connected to " & MaterialSingleLineTextField1.Text & ":" & MaterialSingleLineTextField2.Text & " !"
            FlatAlertBox1.kind = FlatAlertBox._Kind.Success
            MaterialTabControl1.SelectedTab = MaterialTabControl1.TabPages.Item(1)
            Dim MakePingResult As String = MakePing()
            TextBox1.Text = MakePingResult
            Dim obj As Players
            obj = JsonConvert.DeserializeObject(Of Players)(MakePingResult)
            MsgBox(obj.max)
            Return
        Else
            FlatAlertBox1.Text = "Unable to connect to server: The server is Offline"
            FlatAlertBox1.kind = FlatAlertBox._Kind.Error
            FlatStatusBar1.Text = "Status: Not connected"
        End If
    End Sub
    Public Class Players
        Public Property max() As Integer
            Get
                Return m_max
            End Get
            Set
                m_max = Value
            End Set
        End Property
        Private m_max As Integer
        Public Property online() As Integer
            Get
                Return m_online
            End Get
            Set
                m_online = Value
            End Set
        End Property
        Private m_online As Integer
    End Class
 
    Public Class Version
        Public Property name() As String
            Get
                Return m_name
            End Get
            Set
                m_name = Value
            End Set
        End Property
        Private m_name As String
        Public Property protocol() As Integer
            Get
                Return m_protocol
            End Get
            Set
                m_protocol = Value
            End Set
        End Property
        Private m_protocol As Integer
    End Class
 
    Public Class Example
        Public Property description() As String
            Get
                Return m_description
            End Get
            Set
                m_description = Value
            End Set
        End Property
        Private m_description As String
        Public Property players() As Players
            Get
                Return m_players
            End Get
            Set
                m_players = Value
            End Set
        End Property
        Private m_players As Players
        Public Property version() As Version
            Get
                Return m_version
            End Get
            Set
                m_version = Value
            End Set
        End Property
        Private m_version As Version
    End Class

Mais MsgBox(obj.max) r'envoie 0 alors qu'il devrais r'envoyer 1000 pour la chaine JSON:

Code:

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

J'ai trouvé,
Je vous remercie pour vos réponse qui m'ont était beaucoup utiles:

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
Public Class Players
        Public Property max() As Integer
            Get
                Return m_max
            End Get
            Set
                m_max = Value
            End Set
        End Property
        Private m_max As Integer
        Public Property online() As Integer
            Get
                Return m_online
            End Get
            Set
                m_online = Value
            End Set
        End Property
        Private m_online As Integer
    End Class
 
    Public Class Version
        Public Property name() As String
            Get
                Return m_name
            End Get
            Set
                m_name = Value
            End Set
        End Property
        Private m_name As String
        Public Property protocol() As Integer
            Get
                Return m_protocol
            End Get
            Set
                m_protocol = Value
            End Set
        End Property
        Private m_protocol As Integer
    End Class
 
    Public Class Json_Query
        Public Property description() As String
            Get
                Return m_description
            End Get
            Set
                m_description = Value
            End Set
        End Property
        Private m_description As String
 
        Public Property players() As Players
            Get
                Return m_players
            End Get
            Set
                m_players = Value
            End Set
        End Property
        Private m_players As Players
 
        Public Property version() As Version
            Get
                Return m_version
            End Get
            Set
                m_version = Value
            End Set
        End Property
        Private m_version As Version
 
        ' obj.players.max
        ' obj.players.online
        ' obj.players.description
        ' obj.version.name
        ' obj.version.protocol
    End Class