Delphi跨平台检测网络连接状态

本文整理自网络，侵删。

 
功能
跨平台检测网络

环境
Delphi 10.3.3
Win10 64位
主要代码

uses IdTCPClient;
function CheckInternet(AHost:string='baidu.com';Aport:integer=80):Boolean;
var
 CIdtcpclient:TIdtcpclient;
begin
 Result:=False;
 try
   try
     CIdtcpclient:= TIdtcpclient.Create(nil);
     CIdtcpclient.ReadTimeout :=2000;
     CIdtcpclient.ConnectTimeout :=2000;
     CIdtcpclient.Port := Aport;
     CIdtcpclient.Host := AHost;
     CIdtcpclient.Connect;
     CIdtcpclient.Disconnect;
     Result:=True;
   except
      on e:Exception do
      begin
        Result:=False;
      end;
   end;
 finally
    CIdtcpclient.DisposeOf;
    CIdtcpclient:=nil;
 end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  if CheckInternet then
    showmessage('网络已连接')
  else
  showmessage('网络未连接');
end;

 

相关阅读 >>

Delphi 一行关键代码阻止360云查杀

Delphi 加载大文件显示进度条

Delphi窗体置顶

Delphi 禁止用键盘左右箭头，去切换pagecontrol页签

Delphi 获得指定进程的id号

Delphi 用idhttp得到本机外网ip

Delphi执行cmd命令

Delphi设计循环播放声音文件程序

Delphi richedit控件的用法

Delphi setformfullscreen()窗体全屏显示

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi跨平台检测网络连接状态