» Прием UDP-пакета в Delphi

Посылаю широковещательный UDP пакет таким образом:

[s]
WSAStartup( $101,Init );
Sock := Socket( PF_INET, SOCK_DGRAM, IPPROTO_UDP );
SockOpt := TRUE;
SetSockOpt(Sock, SOL_SOCKET, SO_BROADCAST, PChar(@SockOpt), SizeOf(SockOpt) );
Target.sin_port := htons(6767);//номер порта
Target.sin_addr.S_addr := INADDR_BROADCAST;
Target.sa_family := AF_INET;
stData := Trim('DATA');
DataBytes := Length(stData);
for i:= 1 to DataBytes do
begin
stArr[ i ] := stData[ i ];
end;
SendTo( Sock, stArr, DataBytes, 0, Target, SizeOf(Target) );
WSACleanup;
[\s]

Отправляется широковещательный пакет. А как организовать его получение? Перерыл кучу документации и не нашел! Помогите пожалуйста!

Версия Delphi 7.0

открыть UDP на нужном порту и ждать...

Юзай TIdUDPServer

Цитата:

Юзай TIdUDPServer

Только так и заработало! Что-то я забыл про Indy-компоненты. А через UDPSocket так и не смог заставить принимать шароковещательные пакеты.

А нет глюка - типа невыключение компа?
Т.е. говоришь - пуск>выключить... а он снова готов к работе?!
Написал чат небольшой. Все чудно работает. Но все компы в сети у кого этот чат был, сами выключаться не хотели.