频道分类

DELPHI 检测服务器地址是否有效

作者:admin 来源: 日期:2020/3/28 23:09:11 人气: 标签:

 
利用DELPH 的ICMP控件检测服务器地址

function CheckNetServer():Boolean;
begin
  IdIcmpClient1.Host := '192.168.1.230';  //服务器地址
  IdIcmpClient1.Ping;
  if IdIcmpClient1.ReplyStatus.BytesReceived <= 0 then
    result:=False
  else
  begin
    result:=True;
    exit;
  end;
  IdIcmpClient1.free
end;

上一篇:Delphi 让窗体自适应屏幕显示下一篇:没有资料