Delphi检测网页是否能打开

Question

如题所述

Answer 1

可以尝试以下代码：

uses WinInet;

返回值：
0：网络正常且能正常URL；
1：网络正常不能访问URL；
2：网络不正常。
function CheckOffline(URL: string): Integer;
var
  dwFlag: DWORD;
begin
  Result := 0;
  if InternetGetConnectedState(@dwFlag, 0) then
  begin
    if not InternetCheckConnection(PChar(URL), 1, 0) then Result := 1;
  end
  else
    Result := 2;
end;