不好意思，还有问题PING相关

Question

已经调用好PING。EXE
怎么判断是否PING通
也就是如何取出MS-DOS窗口内的响应信息
加以判断
谢谢

Answer 1

ping xxx.xxx.xxx.xxx > 1.txt

Answer 2

大哥，我是想根据返回信息进行判断
给个好的办法吧
help

Answer 3

用TidICMP组件或者调用Winsock直接进行ping操作,具体实现细节很复杂,并且很容易出错或者影响其他使用Winsock,FTP或者数据库的程序（奇怪！好像影响TNS）。
  目前本人也没有找到更精简、安全、使用的ping函数，你要找到发给我吧：
[email protected]
  我有ping函数，不过有bug，影响其他程序，如上所述。

Answer 4

//我刚做了个程序，看来还不错，发给你吧。
                   {-----------------------------------------}
                   {功能：用indy组件进行Windows Ping操作     }
                   {作者：铁桩,[email protected]                }
                   {最后修改日期：2002-12-23日，祝圣诞快乐:) }
                   {状态：免费代码,Free                      }
                   {说明：也许有必要改TTL                    }
                   {-----------------------------------------}
unit u_Ping;interfaceuses IdIcmpClient;function ping(HostName: string): boolean;var
  IdIcmpClient1: TIdIcmpClient;implementation//功能：进行Windows Ping操作
function ping(HostName: string): boolean;
begin
  Result:= False;
  with IdIcmpClient1 do
  begin
    Host:= HostName;
    try
      Ping;
      Result:= true;
    except
    end;
  end;
end;initialization
  IdIcmpClient1:= TIdIcmpClient.Create(nil);finalization
  IdIcmpClient1.Free;
end.