如何实现ping 程序(10分)

  • 主题发起人 主题发起人 misdelphi
  • 开始时间 开始时间
M

misdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
知道一台pc 的名字,如何用delphi 写程序ping它
 
你不用写了!
[delphi6目录]/Demos/Indy/PingGUI
有源程序!
 
对了,indy构件中有
 
但怎样判断是否ping通否?
 
对。使用indy中的TIdIcmpClient控件实现。
 
indy/PingGUI是把的ping结果显示在listbox中,我是想得到一个提示,如果ping通了提示ping通。反之不通.怎么做呢?
 
在控件的OnReply事件中检测参数TreplyStatus类对象的BytesReceived值,如果该值为零说明通讯中断,否则表示通讯正常。注意要设置控件的ReceiveTimeout属性值。
 
to cwf555:
如果我想ping一组ip,为了提高效率,我会连续ping而不等待回应,请问在哦OnReply事件中的SequenceId有何用,能否和ping序对应?
 
后退
顶部