Главная страница
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.042 c
3-1156333652
Antoxa2005
2006-08-23 15:47
2006.10.22
Не получается прописать строку подключения к FB ч-з Gemini ODBC


15-1159338140
umbra
2006-09-27 10:22
2006.10.22
И снова миранда :)


15-1159615411
Furyz
2006-09-30 15:23
2006.10.22
Windows Script


15-1159461931
Kerk
2006-09-28 20:45
2006.10.22
C++ рулит


15-1159432183
Empleado
2006-09-28 12:29
2006.10.22
Интересная статья