création d'objet avec index

Question

Hello,


J'ai un bl&#232;me sur mon aplli de chat multiclient.


Normallement,quand une requete de conexion est faite,l'appli serveur doit cr&#233;&#233; un nouveau socket et un nouveau listbox pour cette connexion.mais apparement je m'y prend mal (pourtant aid&#233; de MSDN).
A savoir:
txtData= listbox
sckServer = winsock
intMax = index attribu&#233; aux nouveaux winsock et listbox


ca bloque ici:
Private Sub txtData_Change(intMax As Integer)
sckServer(intMax).SendData txtData(intMax).Text
End Sub


Sinon voici une partie du reste du code (tr&#232;s MSDNien )


Private intMax As Long
Dim strData As String


Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strData As String
sckServer(intMax).GetData strData
txtData(intMax).Text = strData
End Sub


Private Sub Form_Load()
frmClient.Show
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub


Private Sub sckServer_ConnectionRequest _
   (Index As Integer, ByVal requestID As Long)
   On Error GoTo caca
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
   Exit Sub
caca:
   MsgBox Err.Description
End Sub


Merci de votre aide les copains.

zippro4012 · Answer

Quel est ton probl&#232;me exactement ? Soit plus explicite. Quel erreur y a t il exactement ?

cs_titounours · Answer

A la ligne que j'ai indiqu&#233; il y a cette erreure:
"&#233;tat de connexion ou de protocole &#233;rron&#233; pour la transaction ou la requ&#234;te requise"

Merci.

zippro4012 · Answer

je pense que :
   sckServer(intMax)
existe sinon &#231;a ferais une erreur du genre : l'objet n'existe pas

txtData(intMax).Text existe aussi

L'erreur arrive a l'appel de SendData, mais ne faut t il pas ouvrir le port avant d'envoyer des donn&#233;es ? Avec un truc du genre :
   sckServer(intMax).OpenPort

cs_titounours · Answer

non c'est pas &#231;a.
&#231;a marche toujours pas.
Aidez moi SVP!!!
J'y arrive pas!!!!

Création d'objet avec index

4 réponses

Discussions similaires