Winsock-problem ?

[Ger]

On this moment I am trying to construct a client/server chat.
(Part of) The following code resides on the server:

If strCommand$ = "[JOIN]" Then
Call sckConnect(Index).SendData("[OPERATOR] " & txtNick.Text)

DoEvents
For lngIndex& = 1 To sckConnect().Count - 1
If sckConnect(lngIndex&).State = sckConnected Then
Call sckConnect(lngIndex&).SendData("[USERLIST] " & strBuf1$)
endif
DoEvents
Next lngIndex&

For lngIndex& = 1 To sckConnect().Count - 1
If sckConnect(lngIndex&).State = sckConnected Then
Call sckConnect(lngIndex&).SendData("[SYSMSG] " & "*** " & strArgument$ & " has joined the chat.")

End If
DoEvents
Next lngIndex&

End If

On the client-site I receive:
[OPERATOR] and so on and that is OK.

Than I receive on the client-site:
[USERLIST]XXXXX[SYSMSG]XXXXXXX

So the second "senddata" bind the two strings (which should be send separately) to one ????

Can someone help me ??

When you use 2 SendDatas closely together and they are sending large amounts of data, the first SendData might not have completed sending when the second SendData is called. Winsock gets around this by sticking the two strings together, so you might end up with truncated strings, multiple strings or no strings at all. To solve this make use of the SendComplete event:


Dim Complete As Boolean

Private Sub YourSub()

If strCommand$ = "[JOIN]" Then
Complete = False
sckConnect(Index).SendData("[OPERATOR] " & txtNick.Text)
Call WaitComplete
'DoEvents No need for this

For lngIndex& = 1 To sckConnect().Count - 1
If sckConnect(lngIndex&).State = sckConnected Then
Complete = False
sckConnect(lngIndex&).SendData("[USERLIST] " & strBuf1$)
Call WaitComplete
End If
'DoEvents No need for this
Next lngIndex&

For lngIndex& = 1 To sckConnect().Count - 1
If sckConnect(lngIndex&).State = sckConnected Then
Complete = False
sckConnect(lngIndex&).SendData("[SYSMSG] " & "*** " & strArgument$ & " has joined the chat.")
Call WaitComplete
End If
'DoEvents No need for this
Next lngIndex&

End If
End Sub

Private Sub sckConnect_SendComplete(Index As Integer)
Complete = True
End Sub

Private Sub WaitComplete()
Do Until Complete = True
DoEvents
Loop
End Sub


The added code will make sure that a SendData completes sending before the code moves on. You seem to have the idea that DoEvents gives time for Winsock to send, but it really doesn't