Главная страница
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.046 c
15-1159269184
Knight
2006-09-26 15:13
2006.10.22
Программы направления "Домашняя бухгалтерия"


2-1159945345
pavel_guzhanov
2006-10-04 11:02
2006.10.22
Кто-нибудь пользовался IBBackupService?


8-1142488910
mobila
2006-03-16 09:01
2006.10.22
Прямоугольник как в Photoshopе


4-1148422772
LiveSoft
2006-05-24 02:19
2006.10.22
Обратботка своего пункта меню


4-1149187418
serko
2006-06-01 22:43
2006.10.22
Трафик Инспектор и Delphi