Широковещание файла Опции

[K@M]

Люди добрые, помогите, надо отправить любым протоколом широковещательный пакет с файлом (на дельфях), не знаю, как это зделать, но мне надо это срочно в течение недели!, помогите плиз!

Всем зарание спасибо!


З.ы. kam@forpost.ru

Сообщение отредактировано: AlaRic - 9.01.2005 16:53

[volvo]

Читаем DRKB (Дельфи FAQ):

Код

{Как послать широковещательный 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;