代码之家 › 专栏 › 技术社区 › Mike at Bookup

在Delphi中检测internet访问

tethering delphi-10.2-tokyo firemonkey delphi

2

Mike at Bookup · 技术社区 · 6 年前

如何测试我的Delphi应用程序是否能够访问互联网,以满足栓系的需要?

1 回复 | 直到 6 年前

1

5

Olaf Hess 6 年前

以下代码应适用于所有平台:

uses IdTCPClient;

function CheckInternet : Boolean;

var TCPClient : TIdTCPClient;

begin
  TCPClient := TIdTCPClient.Create (NIL);

  try
    try
      TCPClient.ReadTimeout := 2000;
      TCPClient.ConnectTimeout := 2000;
      TCPClient.Port := 80;
      TCPClient.Host := 'google.com';
      TCPClient.Connect;
      TCPClient.Disconnect;
      Result := true;

      except
        Result := false;
      end; { try / except }

    finally
      TCPClient.Free;
    end; { try / finally }
end;

资料来源: www.fmxexpress.com

可以在以下位置找到用于检查移动设备上的互联网连接的库: www.delphiworlds.com