Опять Winsock!!! Chat

[JohnK]

Проблема в следуюшем: написан сервер, есть клиенты - участники чата. Все хорошо, но приналичии более двух клиентов сообщения рассылаются не всем. В чем ошибка? Заранее спасибо!

Вот процы из сервака:

Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long)

Call AddLog("Connection request id " & requestID & " from " & WS(Index).RemoteHostIP)

If Index = 0 Then
If PR.count < 512 Then

Load WS(requestID)
WS(requestID).LocalPort = Port
WS(requestID).Accept requestID


User(PR.count).ID = requestID
PR.count = PR.count + 1
End If
End If

End Sub
--------------
Private Sub SendToAll(sss As String)
Dim i As Integer
For i = 0 To 511
If User(i).ID > 0 Then
If WS(User(i).ID).State = sckConnected Then
Call SendTo(sss, User(i).ID)

'Call Sleep(5000) - не помогает!
Call AddLog("Sending to " & Str(User(i).ID))

End If
End If
Next i
End Sub

[JohnK]

При отладке все ОК, а при нормальной работе глюк - только два клиента получабют сообщения!

[SSecurity]

Меня очень беспокоят эти строки... может быть стоит завести переменную, вместо requestID. т.е. ты конечно соглашаешься на коннект но в другом процессе. requestID бывает разный и не обязательно он у тебя по порядку пройдет от 0 до N.

Load WS(requestID)
WS(requestID).LocalPort = Port
WS(requestID).Accept requestID

Может я не до конца разобрался .... но у меня два запроса следавшие подряд выдали такой результат:
requestID первого запроса - 411
requestID второго запроса - 374
Но я могу ошибаться.

[Amed]

Меня тоже очень смущают эти строчки...

Действительно, RequestID не всегда (всегда не) идёт по порядку от 0 к какому-то n (n - Long)