Delphi -> С
Jeck © (2002-04-30 10:58:00)
Есть асы в обоих языках? Помогите на Builder С переложить.
Q: Как средствами дельфи послать широковещательный UDP пакет?
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;
Rouse (2002-05-03 13:48:00) [1]
Смотри компоненты с Broadcast
Наверх 
ЧАТ |
Орешник |
|
