Winsock, probleme à 2 balles.....

Question

salut tout le monde, j'arrive pas a débugger mon 1er essai sur winsock! :S

Serveur ===================

Private Sub Command1_Click()
    'si l'utilisateur appuie sur OK
    Winsock1.LocalPort = Port.Text  'défini un port pour la connection winsock
    Winsock1.Listen                 'écoute le port défini
    MsgBox "Prêt pour une connection sur le Port " & Port.Text, vbOKOnly, "Serveur"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    'si une requete de connection est envoyé du client au serveur
    MsgBox "Demande de connection reçue", vbOKOnly, "Serveur"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    'si des données arrivent au serveur
    Dim Data As String                  'on défini une var Data
    Winsock1.GetData Data               'on stock les données qui arrivent dans la variable Data
    MsgBox Data, vbOKOnly, "Serveur"    'on affiche les données reçues
End Sub

Client =========================

Private Sub Command1_Click()
    'si l'utilisateur clique sur "connection"
    Winsock1.Close                      'on femre une connection établie au cas où (evite le plantage)
    Winsock1.Connect IP.Text, Port.Text 'on se connecte au winsock serveur par l'ip et le port définis
End Sub

Private Sub Command2_Click()
    'si l'utilisateur clique sur "deconnection"
    Winsock1.Close  'on ferme la connection Winsock en cours
End Sub

Private Sub Winsock1_Connect()
    'si la conection est établie
    Winsock1.SendData Msg.Text  'on envoi directement le message en cours dans la boite Msg
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    'si des données arrivent (on c jamais)
    Dim Data As String      'on crée une variable Data
    Winsock1.GetData Data   'on stock ces données dans cette variable
End Sub

===============================

je pense que les données n'arrivent pas car elles sont envoyées par le client si la connection est établie. Je pense que la demande de connection est reçue par le serveur vu que la msgbox s'active mais elle n'est pas accepté, ce qui exliquerai tout......

Merci d'avance du coup de main! A +

PS: ce site est génial! ^_^

cs_epoc · Answer

dans ton connectionrequest :

If serveur.State <> sckClosed Then
serveur.Close
End If
serveur.Accept requestID

Winsock, probleme à 2 balles.....

1 réponse

Discussions similaires