DELPHI实现网络PING的功能

PING这个功能在网络中经常使用，在系统中我们可以直接使用CMD的ping功能，那么在DELPHI中如何实现检测一台电脑是否能联通呢？

第一步：加载IdIcmpClient控件

第二步：实现PING功能
IdIcmpClient1.Host:=‘192.168.1.1’;
IdIcmpClient1.Ping();

第三步：获取PING的结果
if IdIcmpClient1.ReplyStatus.FromIpAddress <> ‘0.0.0.0’) then
begin
showmessage(‘成功’);
end else
begin
showmessage(‘失败’);
end;