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;

uses IdTCPClient;

function CheckInternet(AHost:string='baidu.com';Aport:integer=80):Boolean;

var

CIdtcpclient:TIdtcpclient;

begin

Result:=False;

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;

finally

CIdtcpclient.DisposeOf;

CIdtcpclient:=nil;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

if CheckInternet then

showmessage('网络已连接')

else

showmessage('网络未连接');

end;

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

功能

环境

主要代码

2019年唐山市中小学教师中级评审结果公示

Delphi使用ADO读写Excel文件

参与评论

快速导航

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

功能

环境

主要代码

分享本文封面

相关文章

参与评论

登录

快速导航