Winsock Mutli connexion

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

vas voir là 

Guillaume

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

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

Jer

Merci pour vos réponces

Je pence avoir compri car moi j'utilisé un seul winsock

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

vas voir un de mes programmes, RPCAdmin(Remote PC Admin)

lui il gère plusieurs connexions !