Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ping ПК [D7, XP]

Scavenger © (2006-03-21 15:07:00)
Уважаемые мастера, у меня возник такой вопрос. Для того, что бы узнать включен ПК в сеть, следует послать пакет этому ПК и дождаться когда придет ответный пакет, это осуществляется при помощи команды Ping. А как это сделать на Delphi, подскажите, где можно посмотреть плиз.

Zeqfreed (2006-03-21 18:04:00) [1]
А ещё можно игнорировать ICMP-запросы O:-)

Scavenger (2006-03-21 17:04:00) [2]
В смысле.

Сергей М. (2006-03-21 16:12:00) [3]
Есть.

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

Scavenger (2006-03-21 16:09:00) [4]
Ну так что. Есть еще идеи какие нибудь?

Сергей М. (2006-03-21 15:59:00) [5]

> Scavenger

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

Сергей М. (2006-03-21 15:57:00) [6]

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

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

Scavenger (2006-03-21 15:54:00) [7]
Я попроще нашел. На вкладке 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:20:00) [8]
http://delphiworld.narod.ru/base/little_ping_app.html

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »