Wisock et erreur 40006 ( oui encore )Résolu

Question

Salut, je débute en VB et je voudrai faire un logiciel Client / Serveur ( une 10aines de clients ) où je voudrait que le client charge des frames au démarrage ( c'est un moteur de recherche lié a une base de données ).

Je débute donc, et je voudrai apprendre a me servir de winsock, donc je teste l'exemple de MSDN, et ça ne MARCHE PAS !!!

Code serveur :
Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show
End Sub

Private Sub tcpServer_ConnectionRequest _
If tcpServer.State <> sckClosed Then _
tcpServer.Close
tcpServer.Accept requestID
End Sub

Private Sub txtSendData_Change()
tcpServer.SendData txtSendData.Text
MsgBox (txtSendData.Text)
End Sub

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub


Côté Client : 
Private Sub Form_Load()
tcpClient.RemoteHost = "xxx.xxx.xxx.xxx"
tcpClient.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
tcpClient.Connect
End Sub

Private Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub




ça marche pas et je comprends pas pourquoi... 
Je clieque sur le bouton connexion et quand je tape le texte dans le client ça n'apparait pas dans le serveur et me sort l'erreur 40006

Merci de m'aider.

cs_Jack · Accepted Answer

Si ton client et ton serveur sont sur la m&#234;me machine, tu mets bien
tcpClient.RemoteHost = "127.0.0.1"    ?

cs_Jack · Answer

Salut
Pour faire du multi-client, il faudra indexer un Winsock --> Charge n'importe quelle source de chat multi-client et tu sauras comment faire.
Erreur 40006 : texte de l'erreur ?
C'est bien dans le txtSendData que tu saisis ton texte ?

Cette syntaxe n'est pas correcte, il manque des param&#232;tres :
Private Sub tcpServer_ConnectionRequest (?????)
If tcpServer.State <> sckClosed Then _
tcpServer.Close

Ne modifie jamais les param&#232;tres d'un &#233;v&#232;nement de composant.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

TheFatrix · Answer

Merci le problème venait que je mettait le nom réseau de la machine ou son IP et pas 127.0.0.1 => merci encore et désolé pour le doublon du post mais la première fois mon navigateur avait planté :( du coup je savais pas si le message était bien passé.

Wisock et erreur 40006 ( oui encore )

3 réponses

Discussions similaires