Winsock Mutli connexion

Question

Bonjour , 

Comment faire une mutli connexion avec winsock vue que l'on est obligé de fermé winsock d'est qu'il y a une personne qui ce connect  : 

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Impossible de remete winsock en écoute.

J'ai bien regardé sur le site mais je ne comprend aucune sources qui gére la multi connexion 

Bonne soirée a tous

cs_ghuysmans99 · Answer

vas voir là 

Guillaume

cs_Jack · Answer

Salut
Il te suffit de charger une appli ou deux de type 'chat' et tu sauras comment faire.
En gros, il faut avoir un Winsock pour répondre en tant que serveur et quand tu as une demande de connexion, il te faut charger dynamiquement un autre winsock et accepter la connexion sur ce nouveau winsock, le serveur restant en écoute.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro

JB76000 · Answer

Le principe : utiliser winsock en groupes de controles sur ton serveur. Tu charges un nouveau winsock pour chaque nouvelle connexion.







Jer

Guillamue06 · Answer

Merci pour vos réponces 

Je pence avoir compri car moi j'utilisé un seul winsock

Guillamue06 · Answer

Bonjour , je suis encore avec mon winsock 

Alors voila j'en suis rendu ou que le server accepte un nombre limité de connexion.

Mais le probleme c'est que seul le dernier connecté peut envoyer des données.
Les autres connecté Erreur.... quand t'il éssey d'envoyer une donnée

Voici la source du server : 

Private Sub Form_Load()
Winsock1.LocalPort = 52
Winsock1.Listen
End Sub


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Winsock2.Accept requestID
End Sub


Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Win 1 server erreur"
End Sub


Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim recu As String
Winsock2.GetData recu
Text1.Text = Text1.Text & vbCrLf & recu


End Sub


Private Sub Winsock2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Win 2 server erreur"
End Sub

Voici la source du clien :  

Private Sub Command1_Click()
Winsock1.SendData (Text1.Text)
End Sub


Private Sub Form_Load()
Winsock1.Connect "127.0.0.1", 52
End Sub


Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "erreur"
End Sub

cs_ghuysmans99 · Answer

vas voir un de mes programmes, RPCAdmin(Remote PC Admin)

lui il gère plusieurs connexions !

Winsock Mutli connexion

6 réponses

Votre réponse

Discussions similaires