用delphi 实现 ping

dorry 11月前 1531

由于需要需要在建立连接前进行ping 操作,以快速判断是否主机可用,实现了如下ping 单元,核心代码网上搜集,进行了简单的封装,使用会方便些。希望对大家有用。

就一个接口函数,自创建,自销毁。直接调用即可。function ZytCMDping:IZytPing;

上传的附件:
最新回复 (6)
  • chinacodegear 11月前
    0 引用 2
    感谢分享,支持 跨平台么?
  • HUIANG 11月前
    0 引用 3
    下来看了看,用的是icmp.dll
  • x200516 11月前
    0 引用 4
    收藏了
  • zsdentist 11月前
    0 引用 5
    如何调用?例如,ping www.baidu.com  
  • zsdentist 11月前
    0 引用 6
       if ZytCMDping.ping(EdUrl.Text) then
        Memo1.Lines.Add('Ping Ok ')
       else
        Memo1.Lines.Add('ping Error');

    对吗?好像 Ping www.baidu.com 之类不是IP地址的不行

返回