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限制edit编辑框的输入

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

Delphi twebbrowser静音

Delphi 监控文件系统

Delphi 在tunimemo中复制和粘贴选定的文本

Delphi webbrowser 表单赋值模拟点击

Delphi 在桌面中嵌入窗体

Delphi控件升级

Delphi 启动程序隐藏主窗体

Delphi 在程序运行时改变控件大小

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

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