Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.10;
Скачать: CL | DM;

Вниз

Опрос конкретного порта во всей локальной сети !   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.074 c
2-1163881777
Ingwar
2006-11-18 23:29
2006.12.10
Автоскролинг в ListBox e


2-1164478031
dreamse
2006-11-25 21:07
2006.12.10
Приветствую. Возникла проблема при создании компонента


1-1161684300
incms
2006-10-24 14:05
2006.12.10
Как загрузить *.bpl и получить с него классы через GetClass


15-1164018598
Tex
2006-11-20 13:29
2006.12.10
XPManifest


2-1163903847
Мальвина
2006-11-19 05:37
2006.12.10
Работа с микшером винды