Discussion :

[mattmax]

Bonjour,

je travaille avec un fichier json est c'est la 1ere fois que je travaille avec ce genre fichier et j'ai quelques soucis en ce qui concerne la methode post. Je dois ajouter une nouvelle occurence dans mon fichier json mais je en sais ps rop comment faire .

J'ai commencer deja a ecrire ce petit bout de 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
 
   Dim request As System.Net.WebRequest
        Dim postData As String = "This is a test that posts this string to a Web server."
        Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(postData)
 
        vlurl_string = ""
        vlurl_statuscode = 0
        vlurl_statusdescription = ""
 
        request = System.Net.WebRequest.Create(vvURL)
        request.Credentials = New System.Net.NetworkCredential(vlurl_user, "")
        request.Method = "POST"
 
        Dim response As System.Net.WebResponse
 
        Dim dataStream As System.IO.Stream = response.GetResponseStream()
        Dim reader As New System.IO.StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()

mais je ne sais pas trop comment faire pour envoyer ma nouvelle occurence dans mon fichier.Si vous pouviez me donner quelques pistes sur les fonctions vb.net a utiliser je vous en serait reconnaissant

Merci d'avance

[Pol63]

il faut récupérer le stream du request, mettre le json dedans je crois, et seulement après faire le getresponse (et fermer le stream du request avant)

[Invité]

N'est-il pas plus simple de passer par la classe HttpClient ?

[Pol63]

peut etre parce que tout le monde n'est pas encore passé sur le fx 4.5

[Invité]

Heu... Comment ça ? Regarde ici.

Supported Platforms:

- .NET Framework 4

- .NET for Windows Store apps

- Windows Phone 7.5 and 8

- Silverlight 4 and 5

- Portable Class Libraries

Et je viens de tester sur une application ciblant la version 4.0 du framework.

[Pol63]

c'est un package
et ca a dut être intégré au framework car msdn en parle avec supported platforms 4.5

[mattmax]

Deja merci de vos conseils , j'ai reussi a le faire fonctionner une fois mon code mais depuis je n'y arrive plus

voici mon 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
 
 Dim request As WebRequest
        Dim postData As String = "id=51&name=Test%20Post%2019H15"
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(vvurl & "?" & postData)
 
 
        vlurl_string = ""
        vlurl_statuscode = 0
        vlurl_statusdescription = ""
 
        request = System.Net.WebRequest.Create(vvurl & "?" & postData)
        request.Credentials = New System.Net.NetworkCredential(vlurl_user, "")
        request.Method = "POST"
 
        ' Get the response.
 
        Try
 
            Dim dataStream As Stream = request.GetRequestStream
            '
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
            Dim response As Stream = request.GetRequestStream()
            Dim reader As New StreamReader(response)
 
            Dim res = reader.ReadToEnd()
 
            reader.Close()

J'ai une exception quand j'arrive sur le reader , mais je vais essayer avec le http client

[Pol63]

Dim response As Stream = request.GetRequestStream()

ca sent le bricolage empirique à coup de copier coller
=>

Dim reponse = request.GetResponse
dim reponseStream = reponse.getstream


et si tu veux de l'aide il faut préciser les messages d'erreur et toute info intéressante, ici par exemple il y a reponse.status (200 = ok)

[mattmax]

J'ai reussi voici le code qui marche

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
 
 
 Dim request As WebRequest
        Dim postData As String = "id=51&name=Test%20Post%2019H15"
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(vvurl & "?" & postData)
 
 
        vlurl_string = ""
        vlurl_statuscode = 0
        vlurl_statusdescription = ""
 
        request = System.Net.WebRequest.Create(vvurl & "?" & postData)
        request.Credentials = New System.Net.NetworkCredential(vlurl_user, "")
        request.Method = "POST"
 
        ' Get the response.
 
        Try
 
            Dim dataStream As Stream = request.GetRequestStream()
            '
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
            Dim response = request.GetResponse().GetResponseStream