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]

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

Есть.

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

В смысле.

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

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