Delphi Ping检测联网状态
2020-12-13 14:56
标签：io os ar sp on cti bs as res Delphi Ping检测联网状态 uses IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient; function PingServer(HostIP: string;LinkTimeOut: integer): boolean; 调用： if PingServer(‘www.baidu.com‘, 5000) then xxx Delphi Ping检测联网状态 标签：io os ar sp on cti bs as res 原文地址：http://www.cnblogs.com/huavsheng/p/4067648.html
var
RRemoteC: TIdIcmpClient;
AReplyStatus: TReplyStatus;
begin
try
result := true;
RRemoteC := TIdIcmpClient.Create(nil);
RRemoteC.Host := HostIP;
RRemoteC.ReceiveTimeout := LinkTimeOut;
try
RRemoteC.Ping;
AReplyStatus := RRemoteC.ReplyStatus;
if (AReplyStatus.ReplyStatusType = rsTimeOut) then
begin
result := false;
end;
except
result := false;
end;
finally
RRemoteC.Free;
end;
end;