Скачать: CL | DM;

Ping ПК   Найти похожие ветки 

← →
Scavenger ©   (2006-03-21 15:07) [0]

Уважаемые мастера, у меня возник такой вопрос. Для того, что бы узнать включен ПК в сеть, следует послать пакет этому ПК и дождаться когда придет ответный пакет, это осуществляется при помощи команды Ping. А как это сделать на Delphi, подскажите, где можно посмотреть плиз.

---

← →
Рамиль ©   (2006-03-21 15:20) [1]

http://delphiworld.narod.ru/base/little_ping_app.html

---

← →
Scavenger ©   (2006-03-21 15:54) [2]

Я попроще нашел. На вкладке Indy Clients, есть компонент ICMP. Можно использовать и имя ПК. Но работает как то через раз, и мне не нравиться то что эхо идет через метод onReply. Хотелось бы чтобы возращалось какое нибудь значение в самом Button1Click.
Спасибо за подсказку, но у тебя нет ничего по проще?

procedure TForm1.Button1Click(Sender: TObject);
var
REP:TReplyStatus;
begin
       IdIcmpClient1.Ping();
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
 const AReplyStatus: TReplyStatus);
begin

  if AReplyStatus.ReplyStatusType=rsEcho then
  Begin
           ShowMessage("ПК в сети");
 end;

---

← →
Сергей М. ©   (2006-03-21 15:57) [3]

> Scavenger ©   (21.03.06 15:54) [2]


Тебе - в "Начинающие".

---

← →
Сергей М. ©   (2006-03-21 15:59) [4]

> Scavenger


Впрочем ты и так уже здесь)..

---

← →
Scavenger ©   (2006-03-21 16:09) [5]

Ну так что. Есть еще идеи какие нибудь?

---

← →
Сергей М. ©   (2006-03-21 16:12) [6]

Есть.

Понять, что есть блокирующий и неблоркирующий режимы.

---

← →
Scavenger ©   (2006-03-21 17:04) [7]

В смысле.

---

← →
Zeqfreed ©   (2006-03-21 18:04) [8]

А ещё можно игнорировать ICMP-запросы O:-)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c