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

Вниз

BROADCAST   Найти похожие ветки 

 
Kate   (2001-11-27 03:58) [0]

Как послать BROADCAST все компьютерам в сети и получить от все ответ?


 
Fellomena   (2001-11-27 12:43) [1]

мда... вопрос давольно туманный, но если я правильно поняла, то
надо пинговать какой-то квадрант сети на предмет обнаружения работающих
компов. Как это делать быстро - читай в Net-е, статей много.
Самый простой (но и долгий) способ:

{Определяешь класс TMyThread}
type
TMyThread = class(TThread)
private
{ Private declarations }
protected
procedure DoWork();
procedure Execute; override;
end;


В процедуре TMyThread.DoWork() пингуешь комп
Таким образом создаёшь сразу 20 thread-ов (к примеру, можно и больше),
последним параметром при использовании ShellExecute указываешь SW_HIDE,
что бы 20 окошек глаза не мозолили... результаты пинга сбрасываешь в один файл,
не забывая синхронизировать вывод. Ждёшь окончания выполнения N-ого thread-а
и запускаешь следующий. И всего у тебя будет 256 thread-ов 8)
(понятно, что при создании каждого нового thread-а передаёшь значение для
последнего значения ip-шника пингуемого компа, маска следующая (для локалки 8):
192.168.1.* хотя может и другой быть...)


 
erik ©   (2001-11-27 16:56) [2]

Через UDP по адресу 255.255.255.255



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
3-56984
vopros
2002-01-22 13:23
2002.02.18
Out of Date


14-57209
vector
2001-12-29 12:23
2002.02.18
Не могу нормально посмотреть форумы Delphi


1-57062
nikols
2002-02-01 16:34
2002.02.18
Какой тип у редактора свойства Expression компонента TQRExpr?


4-57262
neXt
2001-12-15 16:24
2002.02.18
Зачем нужен SafeArrayAcessData()?


14-57202
MJH
2001-12-28 12:59
2002.02.18
Scooter - Ramp