Как сделать 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)