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

Вниз

Delphi -> С   Найти похожие ветки 

 
Jeck   (2002-04-30 10:58) [0]

Есть асы в обоих языках? Помогите на 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) [1]

Смотри компоненты с Broadcast



Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-47439
Dinara
2002-06-30 14:07
2002.07.15
Как в ShellTreeView раскрыть дерево нужной папки?


1-47474
ricks
2002-07-03 17:43
2002.07.15
Изображение Parent а


8-47606
Alexandr_
2002-03-05 13:53
2002.07.15
Как нарисовать элипс на канвасе, но....


7-47857
Linx
2002-04-16 21:59
2002.07.15
Блокирование системных комбинаций клавиш.


14-47776
Malder
2002-06-13 17:49
2002.07.15
Быстроприготовляемые супы (типа Роллтона)