| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отсылка широковещательных сообщение по локальной сети.

Сергей Нечепуренко ©   (2002-08-06 11:46:00) 

Подскажите пожалуйста как отправить широковещательное сообщение по локальной сети.
Для всех компьютеров. И как его принять.
Я слышал нужно использовать протокол UDP.
Но какие использовать компоненты не разобрался. Если можно с примером кода.
Заранее благодарю, Сергей.

---

Malder   (2002-08-06 18:17:00) [1]

Ну. Пример выше - это с использованием чистого API. Я ж тебе лучше порекомендую пользоваться компонентом готовым. TNMUDP в дельфи 5. Или пакетом Indy в дельфи 6.

---

Сергей Нечепуренко   (2002-08-06 13:34:00) [2]

Спасибо за ответ.
Вроде получилось отправить.
Подскажите пожалуйста, как принимать это сообщение.

---

Alexsey   (2002-08-06 11:48:00) [3]

procedure TMainForm.FormCreate(Sender: TObject);
var Init:TWSAData;
SockOpt:BOOL;
Sock:TSocket;
Target:TSockAddrIn;
begin
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(8167);//номер порта
Target.sin_addr.S_addr:=INADDR_BROADCAST;
Target.sa_family:=AF_INET;
SendTo(Sock,Data,DataBytes,0,Target,SizeOf(Target));
WSACleanup;
end;

---

Наверх