本文整理自网络,侵删。
利用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.freeend;
相关阅读 >>
Delphi stringgrid 实例2:1、获取 stringgrid 的行数、列数; 2、给单元赋值
更多相关阅读请进入《Delphi》频道 >>