Probleme avec winsock(senddata)

Question

Bonjour,
J'essai de faire une mini appli avec winsock et j'ai probleme avec SendData j'ai ecrit ça:
Winsock1.SendData "phpman"
et il me dit: erreur 4006 .....
Donc si vous avez une solution....
Merci d'avance.

BasicInstinct · Answer

verifie l'etat de ta connection avant:
winsock1.State. A mon avis tu n'est pas connecté.
 :clown)  BasicInstinct  :clown)

cs_phpman · Answer

Bonjou,Oui  c'est bien la connection et quand je regarde winsock1.State et il m'indique 8 ce qui veut dire: connexion en cours de fermeture pas l'homologue 
peut être que c'est le code du serveur qui ne va pas?
je suis debutant alors pour l'instant ça m'est difficile...
Si quelqu'un peut m'aider...
Merci.

BasicInstinct · Answer

voila 1 pseudo chat multi user reduit au strict minimum
t'as besoin de 2 commandbutton:
command1 pour lancer le client
command2 pour le serveur

1textbox txtPhrase pour ecrire les messages a envoyer
1 listbox lstChat qui sert de zone de reception

Si tu as des questions....


Public NickName As String
Public intmax As Integer
Public IsServeur As Boolean

Private Sub Command1_Click()
IsServeur = False
NickName = "Client"
Winsock1(0).Close
Winsock1(0).Connect "127.0.0.1", 30002
End Sub

Private Sub Command2_Click()
IsServeur = True
NickName = "Serveur"
Winsock1(0).LocalPort = 30002
Winsock1(0).Listen
lstChat.AddItem "Serveur online"
End Sub

Private Sub txtPhrase_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 And Trim(txtPhrase) <> "" Then
    If IsServeur Then
        For I = 1 To intmax
            If Winsock1(I).State = sckConnected Then
                Winsock1(I).SendData NickName & " : " & txtPhrase
            End If
        Next
        lstChat.AddItem txtPhrase
    Else
        Winsock1(0).SendData NickName & " : " & txtPhrase
    End If

    txtPhrase = ""
End If
End Sub

Private Sub Winsock1_Connect(Index As Integer)
lstChat.AddItem "Connection etablie"
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
      intmax = intmax + 1
       Load Winsock1(intmax)
        Winsock1(intmax).LocalPort = 30002
        Winsock1(intmax).Accept requestID
        lstChat.AddItem "Client" & intmax & " connecté"

End If
   
End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim tmp As String

Winsock1(Index).GetData tmp
If IsServeur Then
    For I = 1 To intmax
        If Winsock1(I).State = sckConnected Then
            Winsock1(I).SendData tmp
        End If
    Next
End If
lstChat.AddItem tmp
End Sub


 :clown)  BasicInstinct  :clown)

cs_phpman · Answer

Je te remerci beaucoup pour cette source !!
mais je voudrai savoir a quoi sert:

Winsock1(I)
Winsock1(Index)
Winsock1(0)

Encore une foi merci...

BasicInstinct · Answer

en fait, ca indexe tes winsock (utilisation multi clients)

par exemple (dans le code que je t'ai filé)

winsock(0) c'est le winsock de demande de connection
winsock(1) correspond au premier client
winsock(2) correspond au deuxieme client
.....

 :clown)  BasicInstinct

brenault · Answer

Bonjour, 

j'ai moi aussi le même problème, je n'arrive pas à utiliser les Winsock, car ils sont vide.

Merci d'avance

buzydoudou · Answer

Je ne connaissais pas les "Winsock vides" !! Que veux-tu dire par l&#224; ?!

Probleme avec winsock(senddata)

7 réponses

Discussions similaires