关于IdIcmpClient的错误提示

关于IdIcmpClient的错误提示 [问题点数：0分]

• 
  

本版专家分：20
• 红花 2006年2月 Windows专区大版内专家分月排行榜第一
  2006年1月 Windows专区大版内专家分月排行榜第一
  2005年12月 Windows专区大版内专家分月排行榜第一
  2005年11月 Windows专区大版内专家分月排行榜第一
• 黄花 2006年3月 Windows专区大版内专家分月排行榜第二
• 蓝花 2006年10月 Windows专区大版内专家分月排行榜第三
  2006年5月 Windows专区大版内专家分月排行榜第三
结帖率 100%
• 在定时器里写了以下一段代码,让它一秒钟ping 一次目标IP地址,通的时候都正常,一旦目标ping不通,程序每秒钟跳出一个错误提示:
  
  "socket error 10065
  No route to host"
  
  很是讨厌,能不能让这个提示不出现!
  
  定时器代码如下:
  procedure TForm1.Timer1Timer(Sender: TObject);
  var
    i : integer;
  begin
    IdIcmpClient1.ReceiveTimeout := 1000;
    try
    for i:=0 to listbox1.items.count-1 do
    begin
      IdIcmpClient1.Host := listbox1.items[i] ;
      IdIcmpClient1.Ping ;
      //Application.ProcessMessages ;
    end;
    finally
    end;
  end;
  

本版专家分：2269
• procedure TForm1.Timer1Timer(Sender: TObject);
  var
    i : integer;
  begin
    IdIcmpClient1.ReceiveTimeout := 1000;
    try
    for i:=0 to listbox1.items.count-1 do
    begin
      IdIcmpClient1.Host := listbox1.items[i] ;
      try
         IdIcmpClient1.Ping ;
      except
       // showmessage('连接超时或未知主机！');
        // exit;
      end;
      //Application.ProcessMessages ;
    end;
    finally
    end;
  end;