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

[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;

[K@M]

Ладно, а как его получить? %)
и еще можно поинтересоваться, как мне указать, какой файл надо отправить?
З.ы. Спасибо добрые админы, за то, что гости могут создавать и постить в темах

[volvo]

По-моему, это то, что тебе нужно:
http://www.delphirus.net.ru/delphi-sovetid-1696.html

[AlaRic]

PS. Добрые админы за слово "срочно" тебя прибить хотели!

[K@M]

Это все хорошо, но только мне надо отравить его широковещательно,
а это просто отправка (мне надо отправить картинку jpg весом около 250 кб)


З.ы. ну уж сорри, просто мне надо делать конференцию срочно, а у меня уже всего 4 дня осталось, мне осталось токо пакет отравить всем компам и получить..