Winsock, probleme à 2 balles.....

Signaler
Messages postés
34
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
25 août 2003
-
Messages postés
87
Date d'inscription
mardi 28 mai 2002
Statut
Membre
Dernière intervention
25 octobre 2006
-
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! ^_^

1 réponse

Messages postés
87
Date d'inscription
mardi 28 mai 2002
Statut
Membre
Dernière intervention
25 octobre 2006

dans ton connectionrequest :

If serveur.State <> sckClosed Then
serveur.Close
End If
serveur.Accept requestID
0