Discussion :

[Benji Le Magic]

Bonjour,

Je suis en train de développer une application en VB qui utilise le contrôle Winsock.
Cette application envoie successivement 5 requètes (avec récupération de données).

Tout se passe bien jusqu'à la 4e : les données reçues (_DataArrival) sont "coupées", et celà presque toujours au même endroit.

La variable utilisée est de format STRING, donc je ne crois pas qu'il s'agisse d'un soucis de taille ...

Quant à la requète envoyée, elle ne comporte aucune erreur, le problème ne vient donc pas non plus de là.

Merci d'avance,

Ben

[AlainTech]

Je n'ai jamais utilisé Winsock mais...

Dans ton flux entrant, tu n'as pas un caractère qui pourrait être interprété comme une fin de données?

[jmfmarques]

Je lis celà :

This event will not occur if you do not retrieve all the data in one GetData call. It is activated only when there is new data. Use the BytesReceived property to check how much data is available at any time.

et souhaiterais connaitre toutes les instructions que tu as insérées dans l'événement SataArrival de ton contrîle Winsock (de "private sub... jusqu'à End sub)

[Benji Le Magic]

Tout d'abord, merci pour ces réponses si rapides !

Voici une partie de ma source :

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
Private Sub wscHttp_DataArrival(ByVal bytesTotal As Long)
 
   Dim strData As String
 
   wscHttp.GetData strData
   m_strHttpResponse = ""
   m_strHttpResponse = m_strHttpResponse & strData
 
Select Case state
 
Case "cookies"
 
' Récupération valeur cookies
lsua = Entre(m_strHttpResponse, "nsa=", ";")
lsub = Entre(m_strHttpResponse, "nsb=", ";")
LBC = Entre(m_strHttpResponse, "nbc=", ";")
lsud = Entre(m_strHttpResponse, "nsud=", ";")
 
List1.AddItem "Connecting to ../lsu/login.php"
 
wscHttp.Close
state = "sendtochat"
wscHttp.Connect chathost, 80
 
Case "sendtochat"
 
' Récupération URL Parser_machin.aspx
url_parser_lycos = Entre(m_strHttpResponse, "Location:", "C")
url_parser_lycos = Replace(url_parser_lycos, " ", "")
url_parser_lycos = Replace(url_parser_lycos, vbCrLf, "")
 
List1.AddItem "Connecting to ../lsu/SendChat.aspx"
 
' Au suivant ^^
 
wscHttp.Close
state = "parserconnect"
wscHttp.Connect srvhost, 80
 
Case "parsertoto"
 
' Récupération URL Login.aspx
 
cn = Entre(m_strHttpResponse, "cn=", "&n=")
ss = Entre(m_strHttpResponse, "ss=", "&ref=")
ref = Entre(m_strHttpResponse, "ref=", "&h=")
h = Entre(m_strHttpResponse, "h=", "&hs=")
hs = Entre(m_strHttpResponse, "hs=", "&p=")
p = Entre(m_strHttpResponse, "p=", "&t=")
t = Entre(m_strHttpResponse, "t=", "&l=")
l = Entre(m_strHttpResponse, "l=", "&fp=")
 
url_login = "http://" & LCase$(Connection.host.text) & ".machintruc.com/login/Login.aspx?cn=" & cn & "&n=" & Connection.login.text & "&ss=" & ss & "&ref=" & ref & "&h=" & h & "&hs=" & hs & "&p=" & p & "&t=" & t & "&l=" & l & "&fp=0&b="
 
 
 
'MsgBox url_login
 
List1.AddItem "Connecting to ../login/Parser_truc.aspx"
 
DebugForm.DebugTXT = m_strHttpResponse
DebugForm.Show
 
' C'EST ICI QUE SE SITUE L'ERREUR : DebugFrom.DebugTXT ne m'affiche qu'une partie de ce que je devrais recevoir ...
 
wscHttp.Close
 
End Select
 
End Sub

J'ai volontairement modifié certaines parties, mais je pense qu'il s'agit là d'un bon apperçu malgré tout.

[jmfmarques]

Non ! Le prtoblème est à mon avis décelable beaucoup plus haut...

insères donc un simple msgbox m_strHttpResponse tout de suite après :

Code :

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

1
2
3
4
5
Dim strData As String 
 
   wscHttp.GetData strData 
   m_strHttpResponse = "" 
   m_strHttpResponse = m_strHttpResponse & strData

pour voir ce que contient à ce niveau déjà m_strHttpResponse

je ne comprends d'ailleurs pas pourquoi (çà ne changera rien mais...) tu n'as pas écrit directement :

Code :

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

m_strHttpResponse = strData

Y-a-t-il une bonne raison qui m'échappe ?

[AdHoc]

bonjour,
j'ai déjà constaté que le datarrival se déclenche avant la reception compléte du message (ou avec deux message "collés").
Pout test, ecrit une routine qui sur un timer scrute la propriété bytesreceived et recupere les chaines reçues en les concaténant .
Déjà tu pourras vérifier si le message arrive complétement.
si tu as possibilité, le mieux est d'encadrer les trames par une chaine (ou un caractere) de début et de fin.

[Benji Le Magic]

Non ! Le prtoblème est à mon avis décelable beaucoup plus haut...

insères donc un simple msgbox m_strHttpResponse tout de suite après :

Code :

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

1
2
3
4
5
Dim strData As String 
 
   wscHttp.GetData strData 
   m_strHttpResponse = "" 
   m_strHttpResponse = m_strHttpResponse & strData

pour voir ce que contient à ce niveau déjà m_strHttpResponse

je ne comprends d'ailleurs pas pourquoi (çà ne changera rien mais...) tu n'as pas écrit directement :

Code :

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

m_strHttpResponse = strData

Y-a-t-il une bonne raison qui m'échappe ?

Je voulais remettre m_strHttpResponse à zéro avant de lui attribuer une nouvelle valeur (au cas où je relancerais toute la connexion) :]

bonjour,
j'ai déjà constaté que le datarrival se déclenche avant la reception compléte du message (ou avec deux message "collés").
Pout test, ecrit une routine qui sur un timer scrute la propriété bytesreceived et recupere les chaines reçues en les concaténant .
Déjà tu pourras vérifier si le message arrive complétement.
si tu as possibilité, le mieux est d'encadrer les trames par une chaine (ou un caractere) de début et de fin.

Oui, en fait il m'arrive de recevoir deux messages successivement, lorsque je ne clos pas la connexion.