Delphi Ping
2021-03-06 13:28
标签：pcl receive try time integer exce res func cli Delphi Ping 标签：pcl receive try time integer exce res func cli 原文地址：https://www.cnblogs.com/CipherLab/p/12862720.htmlfunction PingServer(HostIP: string;LinkTimeOut: integer): boolean;
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;
上一篇：C#正则表达式基础