Discussion :

[haffouff]

salut a tous,
j'ai crée un petit programme qui ouvre un port et attend des connexions.
Le problème est que mon programme n'accepte qu'une seule connexion.
J'ai essayé de me connecter en utilisant telnet : la première fois je me connecte mais la deuxième fois ce n'est plus possible
Je doit alors arreter et redemarrer l'application.
Comment faire pou eviter cela ??
Merci pour votre aide

[haffouff]

désolé j'ai oublié de vous donner le code

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
 
Private Sub Form_Load()
 
    Winsock1.Close
    Winsock1.LocalPort = 1311
    Winsock1.Listen
 
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
 
    Winsock1.Close
    Winsock1.Accept requestID
 
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Dim classe As String
    Dim propriete As String
    Dim classeName As String
 
    Winsock1.GetData strData
 
    Msgbox strData
End Sub

[avigeilpro]

Le plus simple c'est de travailler avec deux sockets :
Tu met le premier socket en écoute sur un port. Lors d'une demande de connection, tu fait une instance du deuxième (donc à la base tu lui met l'index 0 et tu fait un Load pour faire une instance) et tu fait accept de ce nouveau socket avec le RequestID du socket d'écoute. Ainsi tu pourra avoir de multiple connections en simultané, à toi de les gérer après

Si tu veux je te ferais passer un programme d'exemple (un chat) que j'ai fait. Il n'est pas commenté mais je le simplifirait pour que ce soit plus facile à décoder

[haffouff]

oui oui ca sera vraiment gentil si tu me donne un exemple

[avigeilpro]

Ce que je t'ai donné fonctionne-t-il bien ??? si oui alors je met le code sur une page et tu met sinon tu dis ce qui ne va pas
Merci d'avance.