Discussion :

[shaftJackson]

Bonjour, mon problème :
1)je lance un serveur en initialisant un port
2)je l'arrête
3)je le relance (sur le même port)
Lors du premier lancement 1), une application se connecte sur à mon serveur sans problème.
Problème :
Lors du second lancement 2), la connection est refusé. En me mettant en debug, jme rend compte que le local port n'est pas vide, donc il considère que c'est toujours en écoute. j'ai lu sur quelque site qu'il fallait un time out de 60s pour que le local port perde l'ancienne, valeur. Après 7 min, la connexion m'est toujours refusé....
Si quelqu'un sait pourquoi, ca m'aiderait
Mon code d'initialisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If (WinsockRep(0).LocalPort <> 0) And (WinsockRep(0).LocalPort <> VPort%) Then
'        MSGBOX "Attention, port TCP/IP déjà ouvert", 16, "FSOCKET"
    ElseIf (WinsockRep(0).LocalPort <> VPort%) Then
        'Mise à l'écoute
        WinsockRep(0).LocalPort = VPort%
        WinsockRep(0).RemotePort = 0
        WinsockRep(0).Listen
        SOCKETTrace "=== Ouverture écoute Socket 0 port" + Str(VPort%) + RcLf()
    End If

Mon code de fermeture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WinsockRep(Canal%).Close
    Unload WinsockRep(Canal%)

[AdHoc]

Bonjour,
C'est lié (je crois) au protocole Tcp/ip, à l'origine pour l'armée américaine et prévu pour garder les communication en cas de guerre nucléaire. La dessus, il y a l'implémentation Microsoft qui n'est pas parfaite (bien prendre le winsock du dernier service pack).

=> le résultat il y a une rémanence de la socket longtemps, longtemps après le déchargement.

Solutions: charger des instances de sockets comme pour le multi client.
Extrait de l'aide Vb:

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
 
Private intMax As Long
 
Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub
 
Private Sub sckServer_ConnectionRequest _
   (Index As Integer, ByVal requestID As Long)
   ' On écoute sur 0
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      'on accepte sur la suivante
      sckServer(intMax).Accept requestID
   End If
End Sub