Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.02;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.04 c
2-1142362154
Призрак
2006-03-14 21:49
2006.04.02
Application.OnActivate


2-1142943475
WestBronx
2006-03-21 15:17
2006.04.02
Как запустить с невидимой формой? И по поводу GetFileAttributes.


2-1142619841
CAHEK
2006-03-17 21:24
2006.04.02
Как можно визуально изобразить динамический список?


4-1137407158
$Инъектор
2006-01-16 13:25
2006.04.02
Как понять что произошла ошибка DOS приложения ?


15-1141749259
ArtemESC
2006-03-07 19:34
2006.04.02
JavaScript - как напечатать в данном месте стр. строку?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский