[serpico]

Здраствуйте!
вот такой вопрос, есть локальная сеть, мне нужно пропинговать заданый IP . Т.е. Ввожу Ip-Адресс если отвечает компьютер, то все нормально, если нет то ну к примеру писал что комп с таким то адресом не отвечает.
Помогите пожалуйста!

[M.A.D.M.A.N.]

команда ping в консоли.

[Admin]

Сообщение от serpico

Здраствуйте!
вот такой вопрос, есть локальная сеть, мне нужно пропинговать заданый IP . Т.е. Ввожу Ip-Адресс если отвечает компьютер, то все нормально, если нет то ну к примеру писал что комп с таким то адресом не отвечает.
Помогите пожалуйста!

В ICS есть компонент TPing. Его и используй.

[serpico]

В ICS есть компонент TPing. Его и используй.

Нет мне бы по нормальному без всяких левых компонентов, Но именно в Delphi!

[lmikle]

Ну тогда бери Indy. Тебе нужен ICMP протокол (TIdICMPClient). Можно написать свою реализацию на сокетах, а оно нужно???

[serpico]

Я по сетям не очень разбираюсь, а можно запустить через нее командную строку например ping 192.168.10.1 позже то что он выдаст выдавал в Делфи и там уже обрабатать, ну типо если есть строка:

Ответ от 127.0.0.1: число байт=32 время<1мс TTL=48

То типо все нормально, если же выдаст строку:

Превышен интервал ожидания для запроса.

То типо тревога и все плохо ??

[Gribok]

IdIcmpClient1.Host:='Твой Ип'//Берем строчку X из memo1 и вставляем её в HOST
IdIcmpClient1.Ping; //Пингуем

-----------------------------------------------------------------------

if IdIcmpClient1.ReplyStatus.ReplyStatusType=rsEcho
then
ListBox1.Items.Add(Memo1.Lines.Strings[x]);
end;