Bonjour à tous,
Je suis en train d'essayer de récupérer le code html d'une page par winsock (j'ai fait ce choix parce que je ne voulais pas utiliser le controle inet).
Donc tout par de là, connection winsock au site par le port 80, j'envoie mes requetes HTTP (GET blablabla) , j'envoie et je reçoi.
Le problème c'est que sur mon événement DataArrival, je ne récupère pas le code HTML en entier, je reçoit que les 1492 premiers caractères (et il en manque donc beaucoup beaucoup ).
J'ai bien essayé de faire ça en analogie avec la manipulation des sockets sous C++:
    
   While wck_http_get.BytesReceived < 5000
        Me.wck_http_get.GetData strArrive, vbString
   Wend

Mais il semblerai qu'après la première reception je ne reçoit plus rien et ça me rend fou.

Est-ce que quelqu'un à une solution à mon problème. Parce que si je ne réussi pas à récuperer tout le code html, mon projet tombe à l'eau.

note: je ne désire pas utiliser d'autres controles tel que inet ou le webbrosser

Merci d'avance
lkm

Salut ;O)

Vois un exemple sur ce même site :
http://www.vbfrance.com/code.aspx?id=7676

Peut-être cela t'aidera-t-il ?

Bonne chance.

Guy

Salut
Comme expliqué très très longuement dans les messages du forum, ce que tu reçois est le contenu du buffer, et ce buffer prend des tailles diverses selon la charge CPU de ta machine (dès qu'elle a le temps de signaler l'évènement DataArrival).
Donc, il faut accumuler les données qui arrivent et attendre que toutes les données soient reçues.
Pour le HTML, la fin des données se repère avec un double cvCrLf

Pour cumuler les données (il y a plusieurs techniques) :
- Tu dimensionnes (dans un module) Public DonnéesReçues As String
- Dans DataArrival :
Dim Temp As String
Winsock1.GetData Temp
DonnéesReçues = DonnéesReçues & Temp
- Dans un Timer, il te suffit de regarder le contenu de DonnéesReçues et de détecter le double vbCrLf avec
If Instr(DonnéesReçues, vbCrLf & vbCrLf) > 0 Then
   ... Traite tes données
End If

Il y a des centaines de sources sur ce site qui utilisent des Winsock (ce problème revient aussi avec les appli de type Chats) : Charges-en une ou deux et regarde comment c'est fait.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Merci jack,
Grace à ta solution j'ai reussi à récupérer une plus grande partie du code html que je voulais dont la partie intéressante pour moi. Mais je n'ai pas réussi à récupérer l'intégralité du code html et je trouve ça bizarre.
J'ai essayé avec ça :
If Instr(DonnéesReçues, "</html>) > 0 Then
   ... Traite tes données
End If

en verifiant avant que html est bien en minuscule.

Je te remercie parce que grace à toi j'ai pu avancer. Si tu sais pourquoi le code html n'est pas récupéré en entier, ça m'interesse.

lkm