Как послать широковещательный UDP пакет

Delphi , Интернет и Сети , Сокеты

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;

Here is the translation of the text into Russian:

Код написан на Delphi и используется для отправки пакета UDP-размножения.

Разбивка кода:

1. WSAStartup($101, Init); - эта строка инициализирует библиотеку Winsock. Первый аргумент - номер версии, второй аргумент - указатель на структуру WSADATA, которая будет заполнена информацией о реализации Winsock.
2. Sock := Socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP); - эта строка создает UDP-сокет с помощью адресной семьи PF_INET (IPv4), типа SOCK_DGRAM (датаграмма) и протокола IPPROTO_UDP (User Datagram Protocol).
3. SockOpt := TRUE; SetSockOpt(Sock, SOL_SOCKET, SO_BROADCAST, PChar(@SockOpt), SizeOf(SockOpt)); - этот блок кода настраивает опцию сокета для разрешения отправки пакетов-размножений.
4. Target.sin_port := htons(8167); Target.sin_addr.S_addr := INADDR_BROADCAST; Target.sa_family := AF_INET; - эти строки заполняют адрес и порт назначения для пакета. Target.sin_port устанавливается в 8167, который является общим портом для размножений UDP. Target.sin_addr.S_addr устанавливается в INADDR_BROADCAST, которое представляет собой IP-адрес, представляющий все доступные интерфейсы на локальном компьютере.
5. SendTo(Sock, Data, DataBytes, 0, Target, SizeOf(Target)); - эта строка отправляет пакет на назначение, указанное в структуре Target. Параметры Data и DataBytes не используются в этом примере, но они обычно заполняются данными для отправки.
6. WSACleanup(); - эта строка очищает библиотеку Winsock после того, как она больше не нужна.

Комментарий о том, что кто-то смотрит папку "Доступ к сети на расстоянии", кажется, что кто-то добавил комментарий, не связанный с кодом, возможно, в виде шутки или способа выразить разочарование по поводу удаленного доступа к сети.

В статье описывается процедура отправки широковещательного UDP-пакета в сеть с помощью Delphi и функций WinSock API.

Комментарии и вопросы

:: Главная :: Сокеты ::