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 ^^

[noam00]

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

Cordialement

[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.

[noam00]

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

Mon code actuel est:

Code :

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

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 :

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
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

[Pol63]

convertisseur c# / vb.net :

http://converter.telerik.com/

[noam00]

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


j'ai donc mis ce code:

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
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 :

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

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

[noam00]

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

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
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