Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Pb communication chat winsock (Serveur/Client) (VB)

 

Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Pb communication chat winsock (Serveur/Client) (VB)

Prévenir les modérateurs en cas d'abus 
flexounet
flexounet
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 31/12/2005 à 18:23:16  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour

 Alors voila, mes profs nous ont donnés un petit chat a faire en VB avec winsock (alors qu'on a jamais fait de VB) et donc voici mon prob:

 La connection se fait comme il faut, le client arrive a envoyé des messages au serveur mais le serveur n'arrive pas a envoyer de message au client. Pourtant lors de l'acceptation de la connection par le serveur, celui-ci arrive a envoyer le pseudo.

 Lors de l'envoie du message l'erreur d'exectution 40006 s'affiche me disant que l'état de connection ou de protocole erroné pour la transaction ou la requete requise.
 La ligne remise en cause est : SrvSock(0).SendData "SNDMSG " & "Serveur> " & Txt2Send.Text

 Apparement le sock se remet en status 2 au lieu de rester sur 7.
 Si quelqu'un pouvait me dire pourquoi ca bloque lors de l'envoie du message et non pas pendant l'envoie du pseudo.




 Voici la source coté serveur :


 Private Sub Command2_Click()
 SrvSock(0).SendData "SNDMSG " & "Serveur> " & Txt2Send.Text  Listdial.AddItem "Serveur> " & Txt2Send.Text
 Txt2Send.Text = ""
 End Sub

 Private Sub Form_Load()
 SrvSock(0).Close
 SrvSock(0).LocalPort = "1337"
 SrvSock(0).Listen
 MsgBox "Serveur en écoute"
 End Sub

 Private Sub SrvSock_ConnectionRequest(Inde​x As Integer, ByVal requestID As Long)
 Index = Index + 1
 Load SrvSock(Index)
 SrvSock(Index).Accept requestID
 SrvSock(Index).SendData "SNDNICK Serveur"
 ListUsers.AddItem "Serveur"
 End Sub

 Private Sub SrvSock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
 SrvSock(Index).GetData recievedData, vbString
 If Mid(recievedData, 1, 7) = "SNDNICK" Then
 ListUsers.AddItem Mid(recievedData, 9, 8)
 Exit Sub
 End If
 If Mid(recievedData, 1, 6) = "SNDMSG" Then
 Listdial.AddItem Mid(recievedData, 8, 50)
 End If
 End Sub

 Page :
1

Aller à :
 

Sujets relatifs
Pb demarrage unité centrale acer aspire m3100 Pb vista + virus ?
Pb fond d'écran ( Résolu) Product Key PB résolu Merci
PB Pc bureau avec windows xp pro [Windows XP] Pb à la fermeture explore.exe
pb entre out loock express er zone alarm. compte limité pb
Windows Xp Pro VS Windows Serveur 2003  
Plus de sujets relatifs à : Pb communication chat winsock (Serveur/Client) (VB)

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
aide! apprendre la progra quoi faire ?par quoi commencer?... 13
URL 3
formulaire complet a la reception par mail 5
les librairies en c++ 3
Forum svp 10