在 Delphi 中检测互联网访问
Detect internet access in Delphi
我的网络共享应用程序有时无法访问互联网。在这些情况下 Windows 不会询问该应用程序是否有权使用互联网。我的应用程序没有产生任何错误,但当然不会系绳。
如何测试我的 Delphi 应用程序是否可以访问足以进行网络共享的互联网?
以下代码应该适用于所有平台:
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;
找到用于检查移动设备上互联网连接的库
我的网络共享应用程序有时无法访问互联网。在这些情况下 Windows 不会询问该应用程序是否有权使用互联网。我的应用程序没有产生任何错误,但当然不会系绳。
如何测试我的 Delphi 应用程序是否可以访问足以进行网络共享的互联网?
以下代码应该适用于所有平台:
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;
找到用于检查移动设备上互联网连接的库