Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.22;
Скачать: CL | DM;

Вниз

TIdUDPServer. Как узнать адрес на какой интерфейс пришел пакет.   Найти похожие ветки 

 
CLX   (2006-05-23 14:48) [0]

Имею такую проблему.
Delphi 7, стандартный Indy 9. Есть обычный TIdUDPSevrer.
На машине может быть установлено несколько сетевых интерфейсов. Которые могут быть подключены или отключены во время работы программы.
При получении пакета (UDPServerRead)  мне необходиммо узнать на какой сетевой адрес пришел пакет (т.е. адрес сетевого интерфейса).
Я так думал, что это ABinding.IP . Однако он всегда = 0.0.0.0.
Добавлять на TIdUDPServer.Bindings сетевые сегменты не получается...
Что я делаю нетак? Помогите плиз. Уже целый день себе голову этим вопросом забиваю.


 
MaN|Ac   (2006-05-24 04:48) [1]


>  Однако он всегда = 0.0.0.0.

это ты как раз забиндил что слушать на всех

слушай только ан том интерфейсе на котором тебе надо
а если у тебя 0.0.0.0 а рассылка идет на БроадКаст

то соответственно логичный вывод что какждый интерфейс получит пакет


 
CLX   (2006-05-24 08:25) [2]


> это ты как раз забиндил что слушать на всех


Я ничего не биндил. TIdUDPServer.Bindings = []
Но это неважно. Понятно, что слушает всех. Вопрос в том, как мне указать чтобы он слушал только те интерфейсы, которые я хочу. Причём задавать  и менять нужно в процессе выполнения программы.
Т.е. как мне управлять TIdUDPServer.Bindings ?

пытался делать так:
 
 sh:=UDPServer.Bindings.Add;
 sh.IP:=NetInterface[0].IP;
 sh.Port:=8765;
 sh.AllocateSocket;

В итоге получаю Exception при получении пакета либо при закрытии приложения.


 
umbra ©   (2006-05-24 11:00) [3]

а какой эксепшен, если не секрет?


 
CLX   (2006-05-24 12:12) [4]

Всё.
Всем спасибо!
Вроде разобрался.
Я просто забывал UDPServer.Active:=false делать.
Совсем запутался :)

Правильно делать так (может кому еще пригодится):

 sh:TIdSocketHandle;
...
 UDPServer.Active:=false;
 UDPServer.Bindings.Clear;
 sh:=UDPServer.Bindings.Add;
 sh.IP:="192.168.1.1";
 sh.AllocateSocket;
 UDPServer.Active:=true;

Bindings.Clear делать обязательно, т.к. по умолчанию там уже висит один интерфейс (0.0.0.0)
Порт указывать не обязательно, он при Allocated берётся из TIdUDPServer.DefaultPort.



Страницы: 1 вся ветка

Текущий архив: 2006.10.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
2-1160387648
Steep[on work]
2006-10-09 13:54
2006.10.22
Ссылка


4-1148999843
Kolan
2006-05-30 18:37
2006.10.22
Событие чтения из Com порта происходит когда в порте ничего нет


1-1158251780
Calibr
2006-09-14 20:36
2006.10.22
Handle Edita на Web-странице


6-1148771339
Ezorcist
2006-05-28 03:08
2006.10.22
По написанию нового компонета от TServerSocket и TClientSocket.


15-1159780948
Чапаев
2006-10-02 13:22
2006.10.22
NetBIOS-имя домена