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

Вниз

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

 
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", а затем прочитать получившийся файл и узнать, пришел ли ответ :)



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
6-59297
White_1
2002-09-19 15:15
2002.11.18
Вопрос по использованию компонента NMUDP


1-59122
marconi
2002-11-07 16:00
2002.11.18
Wipe


14-59393
Georg
2002-10-27 20:15
2002.11.18
Shell не подоshеll


6-59296
Aleksandr
2002-09-20 14:32
2002.11.18
Как подойти к работе с Прокси-серверами?


1-59153
pag77
2002-11-08 19:32
2002.11.18
кто знает как MessageDlg вывести поверх всех окон?