Chat server

[extHack]

Народ, нужна помощь. Пытаюсь создать chat-сервер.
Принцип такой. Сервер принимает сообщение от какого-либо
клиента, и отсылает его ВСЕМ клиентам. Использую tcp протокол

Так вот только это не всем доходит, хз.
Заранее благодарен

[Twister]

Так вот только это не всем доходит, хз.

Сложно что либо сказать - нужно посмотреть на код, на саму сеть...
Вообщем, телепаты сейчас заняты...

[extHack]

Короче надо, чтобы сервер отослал сообщение всем подключенным клиентам. Я имел ввиду, что не все клиенты получают данные от сервера

[vvs_adm]

Инфы конечно немеряно... Ну хотя бы он не отправляет сообщения одним и тем же клиентам или все время разным? Если одним и тем же - смотри сеть и возможно это фаерволы на тех машинах, что не получают. Если все время разным - возможно кривой код при отсылке сообщений. Попробуй послать сообщения не всем, а поочередно по одному ... Вариантов тьма, но неплохо бы кусок кода, посылающий всем сообщения.

[JohnK]

У меня была аналогичная ситуация, поборол так:

Код: Выделить всё

Private Sub SendToAll(sss As String, NotToSend As Integer)
Dim i As Integer
   ......
   Call SendTo(sss, User(i).Sock)
   ......   
   User(i).Send = False
   While User(i).Send = False
    DoEvents
   Wend
   
End Sub

.....

Private Sub WS_SendComplete(Index As Integer)
   User(Index).Send = True
End Sub


Может кто лучший вариант предложит....

[extHack]

Спасиб, заработало. Пришлось еще немного подкорректировать

[JohnK]

А что корректировал? покажи!

[extHack]

Корректировал я SendToAll, парсить надо было
Все путем! Thanks!

[EvilCoder]

DELETED

[JohnK]

Тю! Так я ж парсинг свой убрал для твоего лучшего понимания!!!

[extHack]

udp? Зачем? Если на tcp все рабоает

[EvilCoder]

DELETED

[extHack]

Я замутил для интернета, так что tcp наверно выгодней