| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
UDP и широковещательные пакеты [D7, WinXP]
denkop © (2004-10-03 18:09:00)Как правильно обработать ответы от юзеров которым был отослан широковещательный пакет. Когда отправляется обычная дэйтаграмма типа UDPClient.Send(...), ответ могу получить с помощью UDPClient.RecieveString(). А как быть когда после одной отправки приходит много ответов?? Как определить сколько пользователей откликнится, чтобы обработать ответы от них?
denkop (2004-10-03 23:07:00) [1]Вот кусок из Indy примеров отправки:
procedure TUDPMainForm.SendButtonClick(Sender: TObject);
var
MessageID: Integer;
ThisMessage: String;
ReceivedString: String;
begin
MessageID := Random(MAXINT);
ThisMessage := 'Message: ' + IntToStr(MessageID);
UDPMemo.Lines.Add('Sending ' + ThisMessage);
UDPClient.Send(ThisMessage);
ReceivedString := UDPClient.ReceiveString();
и здесь я никак не могу отличить чей ответ я получаю с ReceiveString. На сервере там передаётся ИП подключенного клиента (procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle)),а на клиенте к сожалению ABinding нет. Или может я ошибаюсь??
if ReceivedString = '' then
UDPMemo.Lines.Add('No response received from the server after ' + IntToStr(UDPClient.ReceiveTimeout) + ' millseconds.')
else
UDPMemo.Lines.Add('Received: ' + ReceivedString)
end;
Piter (2004-10-03 21:18:00) [2]Ну и вопрос... да никак не определить - откуда ты знаешь сколько машин откликнутся?
И вообще непонятно.. ведь когда тебе будут отвечать - ты же видишь их IP адреса - вот так и различай разных клиентов. Каждый уникальный IP адрес - уникальный клиент.
В чем вопрос то? :)
| |
