pb de test de socket avec un seul pc - je galère

Question

salut

j'ai ouvert deux projets sous VB6 et je souhaite tester la communication entre les 2 via un protocole UDP

à l'un je met un bouton derrière lequel il y a :
With form1.Wsmess
    .RemoteHost = "127.0.0.1"
    .RemotePort = 2001   
End With

et à l'autre un bouton avec derrière :
With Wmess
    .RemoteHost = "127.0.0.1"
    .RemotePort = 2002
End With

ensuite sur l'un j'ai mis un autre bouton avec:
Wmess.SendData "essai"

wmess est bien sur le nom du winsock

l'autre appli à ceci pour receptionner les données:
Dim cel As String
Dim mess As String

Wsmess.GetData cel

mess = InputBox(cel & vbNewLine & "réponse :", "message du serveur")

If mess <> "" Then

    Wsmess.SendData mess

End If


et enfin pour receptionner la reponse il y a:
Dim cel As String
Dim ms1 As String

Wmess.GetData cel

ms1 = MsgBox("réponse : " + cel, vbOKOnly, "Message")



maintenant le problème c'est que ça marche pas avez vous une idée de la cause?

merci d'avance

PCPT · Answer

salut,
oui une id&#233;e.... commencer par &#233;tablir une connection entre tes applis (relation client serveur).
ps : attention au protocole UDP qui ne comprend pas de v&#233;rification des paquets envoy&#233;s (donc perte de data possible)

cs_Jack · Answer

Salut
"&#231;a marche pas" ne veut rien dire.
As-tu des erreurs ? comment les g&#232;res-tu ?
En UDP, il n'y a pas de ".Connect"
Par contre, il y a des ".Listen" &#224; utiliser pour &#233;couter, c'est un minimum

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

PCPT · Answer

salut Jack,
sous r&#233;serve mais je dirai listen en tcp, pour bind en udp...

Pb de test de socket avec un seul pc - je galère

3 réponses

Discussions similaires