Как сделать Ping?

В коде используется функция ExecCmdine из статьи: Как запустить консольное приложение и перехватить вывод?

Function Ping(host:string):boolean;

 var params, CommandLine:string;

  t:TStringList;

  i:integer;

begin

 Params := Format('-s%d ', [32]);

 Params := Params+Format('-c%d ', [1]);

 CommandLine := Format('ping %s%s', [Params, host]);

 t:=TStringList.Create;

 ExecCmdine(CommandLine, t);

 Result:=pos('1 received, 0% packet loss', t.text)>0;

 t.free;

end;

Примечание - под отладчиком Kylix код может не работать. Надо запускать приложение не под Kylix для того чтобы удостовериться что код работает.
Более подробную информацию можно получить запустив в консоле:
man ping

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
Проверка
Антиспам проверка
Image CAPTCHA
...