delphi xe5 indy 10环境 icmpclent组件 ping的问题

Question

 xe5 indy  icmp

Answer 1

补充 ICMP: TIdIcmpClient;   用的是 indy 10 的 组件 相关代码 来源于 indy9 的版本
目的是判断 服务器是不是 在线。。上述方法不稳定 有没有其他解决办法？

Answer 2

我现在也遇到这个问题，找到了很多解决方案，但不太好用。
在google上搜索说可以通过这个办法解决：
var
  ABuffer:String;
begin
  try
    with IdIcmpClient1 do
    begin
      ReceiveTimeout := 1000;
      Host := Edit1.Text;
      ABuffer := Host + StringOfChar(' ', 255);
      Ping(ABuffer);
    end;
  except
  end;
end;

Answer 3

indy的icmp本来就渣，你还是用SOCKET封装吧