| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2016/8/24 17:50:43 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | function InternetConnected: Boolean; var AHost:string; begin AHost := 'www.bing.com'; // 修改 AHost := fun_dos('ping '+AHost+' -n 1 1>nul 2>nul &&( echo 1) || (echo 0)'); Result := (AHost = '1'); end; 用ping语法.. ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2016/8/24 18:38:33 | ||||
| 1楼： | fun_dos？？？？？？ ---------------------------------------------- - |
|||||
| 作者： |
|
2016/8/24 18:45:54 | ||||
| 2楼： | 如果 pins 是最好的办法。 那么我们连一下我们自己的 服务器 更好。 你能上网，不表示就能连我的服务器。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2016/8/25 9:33:38 | ||||
| 3楼： | @wang_80919 原理是一样的, 但ping的方法速度快. 基本上一ping就显示了. ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2016/8/25 10:11:18 | ||||
| 5楼： | ...这个方法，好不专业。。。。。。调用dos命令来取结果，你觉得是最好的？ ---------------------------------------------- - |
|||||
| 作者： |
|
2016/8/25 10:38:57 | ||||
| 6楼： | windows有专门的函数api，不过如果你是检测网址是否有效，可参考下面： http://www.cnblogs.com/chonghai/p/5581402.html ---------------------------------------------- 喜欢Delphi，关注Delphi，愿和广大爱好者交朋友。 |
|||||
| 作者： |
|
2016/8/25 13:44:33 | ||||
| 7楼： | @crystalmoon 方法很多, ping方法的确在断网时, 会立即报错, 也是最直接的... 速度也快. 你有什么更快的? ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2016/8/25 13:45:07 | ||||
| 8楼： | @chonghai 这个方法我也试过, 但返回值不准... ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2016/8/25 18:00:06 | ||||
| 9楼： | ZMap ---------------------------------------------- 相信自己，若自己都不相信，那还有谁可信。 |
|||||
| 作者： |
|
2016/8/26 8:26:49 | ||||
| 10楼： | @tuesdays (Tuesday) fun_dos（）；怎么写的 ---------------------------------------------- - |
|||||
| 作者： |
|
2016/8/26 16:20:31 | ||||
| 11楼： | @tuesdays 服务器在禁止ping的情况下怎么办呢? ---------------------------------------------- 山外青山楼外楼,能人背后有能人弄.. |
|||||
| 作者： |
|
2016/8/26 20:15:06 | ||||
| 12楼： | @zyp1984 能给个网站吗, 我试试. 禁止ping, 跟无网应该是区分开的. 禁止ping, 也是有返回值了., 成功. ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 信息 |
| 登陆以后才能回复 |
