Форум: "Сети";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
ВнизПоиск компьютеров Найти похожие ветки
← →
Ralf (2004-10-09 23:21) [0]Каким образом можно найти в локалной сети все компьютеры, которые в данный момент включены.
← →
P@$l-l0l-( (2004-10-10 02:33) [1]Вот это интересный вопрос, хотел бы тоже узнать ответ на него.
← →
Colonel (2004-10-10 02:40) [2]Способов вообще много. Можно использовать TPowerSock, TNMEcho.
Делаешь цикл, в котором создаешь диапозон IP и коннектишься к ним, если коннект есть - значит комп в сети.
что-то типа:
type
Tmain = class(TForm)
Powersock1: TPowersock;
....
var
ip:array [0..255] of byte;
...
implementation
далее, если знаешь диапозон первых 3 байт, то просто делаешь так
procedure ...
var
i:byte;
begin
for i:=0 to ip[255] do begin
powersock1.Host:="192.168.8."+ip[i];
try
powersock1.Connect;
finally
if powersock1.Connected
then begin
.....
ps.Disconnect;
end
else begin
.....
abort;
end;
end;
end;
end;
end;
Ну и в таком же духе.
P.S: Код не проверял, написал из головы.
← →
Дмитрий Ботвин (2004-10-11 15:29) [3]Вот так более универсально: http://delphimaster.net/view/6-1094570963/
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c