[VB] Multiple clients Chat server probleem

[Verwijderd]

Als ik mijn server start, en er met 1 client op connect, dan kan ik heen en weer chatten.

Zodra ik met de 2e client connect, en daarmee iets send, dan zie ik het op de server en op client 1.

Maar... als ik dan met client 1 iets zeg, dan ziet de server het, maar stuurt het niet door.

Ik heb daarvoor dit stukje code:

code:

Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim ontvangdata As String
For p = 1 To IntMax
tcpServer(p).GetData ontvangdata
txtOutput.Text = txtOutput.Text & ontvangdata
Next p
For x = 1 To IntMax
tcpServer(x).SendData ontvangdata & vbCrLf
Next x
End If
Exit Sub
End Sub

IntMax is het nr van winsocks die open staan. (index dus)

[glashio]

tcpServer(index).Getdata ontvangdata

code:

Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim ontvangdata As String
tcpServer(index).GetData ontvangdata

For x = 1 To IntMax
if tcpServer(x).State = vbConnected then
    tcpServer(x).SendData ontvangdata & vbCrLf
End if
Next x
End Sub

Exit Sub, End if en een For,Next teveel dus

[ Voor 72% gewijzigd door glashio op 23-05-2003 23:35 ]

[Verwijderd]

Nu werkt hij helemaal niet, wat clients sturen ziet server niet

(oude code)Met 3 clients, ziet iedereen de text van client 3 alleen, wat client 1 en 2 sturen ziet niemand, behalve de server.

Het zit hem in het RE-senden dus maar wat...


even later:

het vage is dat als ik dit heb in de server bij data arrival:

txtOutput.Text = txtOutput.Text & ontvangdata Komt ontvang data van client 1 wel

maar als ik een nieuwe text box aan maak en dit doe:

text1.text = ontvangdata

Ziet de server het niet van client 1, wel van client 2 :\

[ Voor 99% gewijzigd door Verwijderd op 24-05-2003 01:24 ]