| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Есть ли машина в сети [D6, Win95/98, NT4, Win2k]
AlexBeliy © (2002-09-04 15:41:00)Как проверить, есть ли машина в сети (по IP)? Вот и весь вопрос.
Mischka (2002-09-21 09:01:00) [1]// 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", а затем прочитать получившийся файл и узнать, пришел ли ответ :)
delpher_gray (2002-09-06 11:18:00) [2]Пингануться надо...
| |
