Delphi跨平台检测网络连接状态
功能
环境
- Delphi 10.3.3
- Win10 64位
主要代码
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
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; |
除特别注明外，本站所有文章均为阿明工作室原创，转载请注明出处来自https://www.amingstudio.com/delphi/657.html
