Есть ли машина в сети

← →
AlexBeliy © (2002-09-04 15:41) [0]

Как проверить, есть ли машина в сети (по IP)? Вот и весь вопрос.

← →
delpher_gray © (2002-09-06 11:18) [1]

Пингануться надо...

← →
Mischka (2002-09-21 09:01) [2]

// Pinger - стандартный Indy компонент TIdIcmpClient
procedure TForm1.Button1Click(Sender: TObject);
begin
IP:="192.168.2.22";
Pinger.Host:=IP;
try
Pinger.Ping;
Application.ProcessMessages
except
on E: Exception do Memo1.Lines.Add(IP+" - ошибка: ""+E.message+""")
end
end
end;

procedure TForm1.PingerReply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
if AReplyStatus.BytesReceived=0 then Memo1.Lines.Add(IP+" не отвечает.")
end;
// Узлы соседних подсетей почему-то присылают ошибку, а шлюзы - нормально.

или можно через задницу: создать новый процесс "cmd.exe" (на платформе NT) и через него вызвать "ping 192.168.2.22 > txt.txt", а затем прочитать получившийся файл и узнать, пришел ли ответ :)

Есть ли машина в сети Найти похожие ветки