Форум: "Начинающим";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];
Вниз
Опрос конкретного порта во всей локальной сети ! Найти похожие ветки
← →
312kbps (2006-11-17 17:38) [0]Уважаемы профессионалы !
Подскажите как отправить сообщение на порт (на пример 3030) во все компы локальной сетки и получить от них ответ !?
← →
Сергей М. © (2006-11-18 12:20) [1]см. UDP broadcast
← →
312Kbps (2006-11-18 13:32) [2]Дааа, ты всега раскрытые ответы даешь !
Спасибо, профи !
← →
Anatoly Podgoretsky © (2006-11-18 14:04) [3]> 312Kbps (18.11.2006 13:32:02) [2]
Ты смеешься или плачешь?
← →
Вася (2006-11-18 17:20) [4]
> как отправить сообщение на порт (на пример 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;
...
← →
Rouse_ © (2006-11-18 23:24) [5]
> Дааа, ты всега раскрытые ответы даешь !
Кто тебе сказал что тебе дадут развеонутый ответ? Ты его что, оплатил? Форум тебе не школа, а возможность получить информацию... Постарайся хотя-бы поиском поискать материал, который обозначил тебе > Сергей М.
← →
312Kbps (2006-11-19 14:54) [6]
> Вася (18.11.06 17:20) [4]
Спасибо ))) !
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c
