Bonjour tout le monde,
J'ai un petit problème avec le contrôle winsock du VB6, j'ai créé deux projets : un serveur et un client et ils communiquent entre eux à l'aide de deux sockets en chaque coté.
Pour la connexion ça marche sans aucun problème et aussi c pareil pour la deconnexion. Donc jusque la c'est bon.
Mais quand je veux établir un nouvelle connexion (une reconnexion) rien ne se passe.
Aidez moi svp c urgent !
ci-dessous le code du client :
Code :
- Dim rh As String
- Private Sub Command1_Click()
- Tcpclient1.Close
- Tcpclient1.LocalPort = 0
- Tcpclient1.Connect rh, 1200
- Tcpclient2.Close
- Tcpclient2.LocalPort = 0
- Tcpclient2.Connect rh, 1007
- MsgBox ("il arrive jusque la" )
- End Sub
- Private Sub Command2_Click()
- Tcpclient1.Close
- Tcpclient2.Close
- Label1.Caption = Tcpclient1.State
- Label2.Caption = Tcpclient2.State
- End Sub
- Private Sub Form_Load()
- Tcpclient1.RemotePort = 1200
- Tcpclient2.RemotePort = 1007
- End Sub
- Private Sub Tcpclient1_DataArrival(ByVal bytesTotal As Long)
- Dim msg1 As String
- Tcpclient1.GetData msg1
- If msg1 = "connexion 1 etablie" Then
- MsgBox (msg1)
- End If
- End Sub
- Private Sub Tcpclient2_DataArrival(ByVal bytesTotal As Long)
- Dim msg2 As String
- Tcpclient2.GetData msg2
- If msg2 = "connexion 2 etablie" Then
- MsgBox (msg2)
- End If
- End Sub
- Private Sub Text1_Change()
- rh = Text1.Text
- Tcpclient1.RemoteHost = rh
- Tcpclient2.RemoteHost = rh
- End Sub
|
Ci-dessous le code du serveur :
Code :
- Private Sub Form_Load()
- Tcpserveur1.LocalPort = 1200
- Tcpserveur1.Listen
- Tcpserveur2.LocalPort = 1007
- Tcpserveur2.Listen
- End Sub
- Private Sub Tcpserveur1_Close()
- Label1.Caption = ""
- End Sub
- Private Sub Tcpserveur1_ConnectionRequest(ByVal requestID As Long)
- Dim msg1 As String
- msg1 = "connexion 1 etablie"
- If Tcpserveur1.State <> sckClosed Then Tcpserveur1.Close
- Tcpserveur1.Accept requestID
- Label1.Caption = "connexion 1 établie"
- Tcpserveur1.SendData msg1
- End Sub
- Private Sub Tcpserveur2_Close()
- Label2.Caption = ""
- End Sub
- Private Sub Tcpserveur2_ConnectionRequest(ByVal requestID As Long)
- Dim msg2 As String
- msg2 = "connexion 2 etablie"
- If Tcpserveur2.State <> sckClosed Then Tcpserveur2.Close
- Tcpserveur2.Accept requestID
- Label2.Caption = "Connexion 2 établie"
- Tcpserveur2.SendData msg2
- End Sub
|
Shaeks