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

Previous  Top  Next

    
 

 

 

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

Code:

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

 

©Drkb::04630

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