Winsock, UDP, несколько клиентов

[Traktarist]

Возможно ли сделать с протоколом UDP так, чтобы все клиенты получали сообщение от серевера? Если да, то как? Получается так, что только один клиент, получает сообщения от сервера, тот, который был первым запущен.

Сервер:

Форма Form1, на форме контрол Winsock с именем Ws1 и два текстовых поля Text1 и Text2, вводимое в Text1 отсылается клиенту, в Text2 отображается полученое от клиента (практически это не нужно).

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

Private Sub Form_Load()
    Ws1.Protocol = sckUDPProtocol
    Ws1.LocalPort = 1001
    Ws1.Bind
End Sub

Private Sub Text1_Change()
    Ws1.SendData Text1
End Sub

Private Sub Ws1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Ws1.GetData strData
    Text2 = strData
End Sub


Клиент:

Форма Form1, на форме контрол Winsock с именем Ws1 и два текстовых поля Text1 и Text2, вводимое в Text1 отсылается на сервер, в Text2 отображается полученое от сервера.

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

Private Sub Form_Load()
    Ws1.Protocol = sckUDPProtocol
    Ws1.RemoteHost = "127.0.0.1"
    Ws1.RemotePort = 1001
    Ws1.Connect
End Sub

Private Sub Text1_Change()
    Ws1.SendData Text1
End Sub

Private Sub Ws1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Ws1.GetData strData
    Text2 = strData
End Sub



Исходники во вложении.

[Денис]

У тебя обрабатывается событие Change? Это просто ужас какой-то! И клиент и сервер, будут засирать (извиняюсь) сеть после каждой введенной буковки. Может из-за этого у тебя и блочится всё? Сделай отправку в событии KeyPress что ли..

[Traktarist]

У тебя обрабатывается событие Change? Это просто ужас какой-то! И клиент и сервер, будут засирать (извиняюсь) сеть после каждой введенной буковки. Может из-за этого у тебя и блочится всё? Сделай отправку в событии KeyPress что ли..

Это пробный, экспериментальный вариант, практически конечно такого не будет. Дело не в этом, больше одной буквы я и не вводил.

[Traktarist]

Вот вариант с кнопками для отправки, результат тот же.

[JohnK]

Ну насколько я понимаю, если ты хочешь чтобы все "услышали" тебя по UDP, нужно послать широковещательный пакет.
Но сам протокол не гарантирует 100% доставку данных.
Какая цель твоей программы?

[Traktarist]

Ну насколько я понимаю, если ты хочешь чтобы все "услышали" тебя по UDP, нужно послать широковещательный пакет.
Но сам протокол не гарантирует 100% доставку данных.
Какая цель твоей программы?

Цель программы - уведомить клиентов, что на сервере обновлены данные и их можно забирать (по http или ftp). То что нет гарантии доставки знаю, это не страшно, после обрыва соединения клиент будет загружать все данные (или список обновленных данных) или в кранем случае вручную нажмет кнопочку "обновить", изыскиваю способ сэконмить трэфик, как c TCP сделать знаю.

Как послать широковещательный пакет? Пока не встречал примеров, может есть где статься или пример?

[JohnK]

Скажем для подсети 192.168.0.0/24 широковещательный будет 192.168.0.255.
А что непонятного с TCP ?

[Traktarist]

С TCP все понятно, получается, но хочу попробовать вариант с UDP. Честно говоря про

Скажем для подсети 192.168.0.0/24 широковещательный будет 192.168.0.255.

не понял, попробовал у сервера поставить .RemoteHost = "255.255.255.255" - не помогает. Ладно, пока почитаю интернет на эту тему.

[JohnK]

Обычно "клиенты" при запуске или в процессе работы сами "лезут" на сервер за обновлениями. Банальная ситуация: во время оповещения сервером половины клиентом не было в сети. В таком случае серверу нужно "засорять" сеть частыми рассылками, чтобы застать всех клиентов... ИМХО, предпочтительнее придерживаться классической схемы (см. выше)