none
CONSERVER L'ENCODAGE DU FLUX JSON TELECHARGER RRS feed

  • Question

  • Bonjour a vous 

    je développe une application qui recupère un flux json  pour l'affiche  l'utilisateur dans une winform.

    le problème c'est que le texte téléchargé est deformé

    voici mon code pour télécharger le flux

    Dim url = " http://monsite-ci.apps.com/api/1/alerts"
                Dim jsonString As String = New WebClient().DownloadString(url)

     TextBox1.Text = jsonString

    quand j'affiche j'ai le texte sivant

    "CÉRÉMONIE SOLENNELLE D’OUVERTURE DE LA 3EME CONFÉRENCE DES AMBASSADEURS CE 23 AVRIL, A 16H00 A L’AMPHITHÉÂTRE DU MINISTÈRE D’ÉTAT, MINISTÈRE DES AFFAIRES ÉTRANGÈRES

    alors que dans le navigateur c'est plutot

    CÉRÉMONIE SOLENNELLE D’OUVERTURE DE LA 3EME CONFÉRENCE DES AMBASSADEURS CE 23 AVRIL, A 16H00 A L’AMPHITHÉÂTRE DU MINISTÈRE D’ÉTAT, MINISTÈRE DES AFFAIRES ÉTRANGÈRES

    comment puis je corriger cela ?

    merci a vous

    samedi 9 mai 2015 10:48

Réponses

  • BONSOIR MERCI POUR VOTRE PROMPTITUDE

    oui j'ai essayé votre proposition mais il me retourne un message d'erreur:

    Une exception non gérée du type 'System.InvalidCastException' s'est produite dans Démarches Administratives.exe
    
    Informations supplémentaires : Impossible d'effectuer un cast d'un objet de type 'System.Text.UTF8Encoding' en type 'System.IFormatProvider'.
    MAIS j'ai trouvé la solution la voici sa peut aider quelqu'un
    Public Class Form1
     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Dim url = " http://monsite-ci.apps.com/api/1/alerts"
    Dim sclient As WebClient = New WebClient()
                sclient.Encoding = System.Text.Encoding.UTF8
    Dim jsonString As String
                jsonString = sclient.DownloadString(url)
    			RichTextBox1.Text = jsonString
    end sub 
    end class 
    

    merci a vous !

    samedi 9 mai 2015 20:33

Toutes les réponses

  • Bonjour,

    avez -vous essayer encoding :

    exemple :

    Imports System.Net
    
    Public Class Form1
    
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Dim url = " http://monsite-ci.apps.com/api/1/alerts"
            Dim jsonString As String = New WebClient().DownloadString(url)
    
            RichTextBox1.Text = jsonString.ToString(System.Text.ASCIIEncoding.UTF8)'à vous de choissir le format
        End Sub
    End Class

    cordialement,

    samedi 9 mai 2015 13:03
  • BONSOIR MERCI POUR VOTRE PROMPTITUDE

    oui j'ai essayé votre proposition mais il me retourne un message d'erreur:

    Une exception non gérée du type 'System.InvalidCastException' s'est produite dans Démarches Administratives.exe
    
    Informations supplémentaires : Impossible d'effectuer un cast d'un objet de type 'System.Text.UTF8Encoding' en type 'System.IFormatProvider'.
    MAIS j'ai trouvé la solution la voici sa peut aider quelqu'un
    Public Class Form1
     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Dim url = " http://monsite-ci.apps.com/api/1/alerts"
    Dim sclient As WebClient = New WebClient()
                sclient.Encoding = System.Text.Encoding.UTF8
    Dim jsonString As String
                jsonString = sclient.DownloadString(url)
    			RichTextBox1.Text = jsonString
    end sub 
    end class 
    

    merci a vous !

    samedi 9 mai 2015 20:33