Erreurs?

Question

Bonjour à tous!

Le code:
========
Private Sub Command1_Click()
    wsData.Close
    wsData.Connect "0.0.0.0", 0
End Sub

Private Sub wsData_Connect()
    wsData.SendData _

        "GET /test.html" HTTP/1.1" & vbNewLine & _

        "Host: justeuntest.com" & vbNewLine & _

        "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; fr;
rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6" & vbNewLine & _

        "Accept:
text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"
& vbNewLine & _

        "Accept-Language: fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3" & vbNewLine & _

        "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbNewLine & _

        "Keep-Alive: 300" & vbNewLine & _

        "Connection: Close" & vbNewLine & vbNewLine
End sub

Private Sub wsData_DataArrival(ByVal bytesTotal As Long)
    wsData.GetData dat
    buffer = buffer & dat
    Text1.Text = buffer
End Sub
========

Le problème:
========
Des chaines de charactères comme "a58", "b50", "1bfd" viennent s'inscruster dans le texte de Text1 et je n'ai aucune idée pourquoi.

Note: 0.0.0.0, /test.html et justeuntest.com sont des exemples.
========

Renfield · Answer

wsData.GetData dat
    buffer = buffer & dat
    Text1.Text = buffer

ou sont declarées ces variables ?

Zappam · Answer

Elles sont déclarées, erreur de copier/coller.

cs_Jack · Answer

Salut
Il y a un " en trop ici, déjà
   "GET /test.html" HTTP/1.1" & vbNewLine & _

La question de Renfield n'est pas innocente : Comment sont dimensionnées tes variables "dat" et "buffer", de quel type ?
Winsock.GetData possède des attributs facultatifs : regarde les de plus près

Voir cet utilitaire pour t'aider dans la mise au point http://logiciel.codes-sources.com/logiciels/Fiddler2-59.aspx
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Zappam · Answer

Dim buffer as String
Dim dat as String

Pour la ligne contenant un " de trop, ceci est actuellement une autre erreur de copier/coller. Désolé.

cs_Jack · Answer

Re
J'y pense maintenant.
Analyse personnelle, pas forcément très "pro" : 
La réponse aux requètes GET ou POST peut être renvoyée de deux façons :
- Directement le code de la page et se termine par   vbCrLf & vbCrLf & "O" & vbCrLf & vbCrLf
- Soit elle envoie, sur la première ligne, la taille des données qui vont suivre (le code de la page)
Il est possible que la donnée que tu récupères corresponde à la taille en hexa du texte qui compose la réponse.
Fait des comparaisons avec les infos que tu reccueilleras avec Fiddler proposé en lien ci-dessus.

Erreurs?

5 réponses

Votre réponse

Discussions similaires