| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Опрос конкретного порта во всей локальной сети ! [D7, WinXP]
312kbps © (2006-11-17 17:38:00)Уважаемы профессионалы !
Подскажите как отправить сообщение на порт (на пример 3030) во все компы локальной сетки и получить от них ответ !?
312Kbps (2006-11-19 14:54:00) [1]
> Вася (18.11.06 17:20) [4]
Спасибо ))) !
Rouse_ (2006-11-18 23:24:00) [2]
> Дааа, ты всега раскрытые ответы даешь !
Кто тебе сказал что тебе дадут развеонутый ответ? Ты его что, оплатил? Форум тебе не школа, а возможность получить информацию... Постарайся хотя-бы поиском поискать материал, который обозначил тебе > Сергей М.
Вася (2006-11-18 17:20:00) [3]
> как отправить сообщение на порт (на пример 3030) во все
> компы локальной сетки
uses Windows, WinSock;
...
var
sock : integer;
i : integer;
address : TSockAddrIn;
begin
Result := 0;
i := 1;
flag := 1;
// создаем UDP socket
sock := socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP);
if sock = -1 then Exit;
// настраиваем socket посылать и принимать broadcast
setsockopt(sock, SOL_SOCKET, SO_BROADCAST, PChar(@i), SizeOf(i));
// прикрепляем socket к порту
address.sin_addr.S_addr := INADDR_ANY;
address.sin_port := htons(3030);
address.sin_family := AF_INET;
if bind(sock, address, sizeof(address)) = -1 then begin
CloseSocket(sock);
Exit;
end;
...
Anatoly Podgoretsky (2006-11-18 14:04:00) [4]> 312Kbps (18.11.2006 13:32:02) [2]
Ты смеешься или плачешь?
312Kbps (2006-11-18 13:32:00) [5]Дааа, ты всега раскрытые ответы даешь !
Спасибо, профи !
Сергей М. (2006-11-18 12:20:00) [6]см. UDP broadcast
| |
