从 https 站点获取 TIdHttp.get 之后的 AV

Question

检查 HTTPS 站点后，我没有收到任何错误，并且可以返回 Internet 连接似乎正常工作，但是当我关闭程序时，我得到了一个 AV。

这是我之前关于检查 Internet 连接是否正常的帖子的后续内容。

我按照建议修改了我的函数，现在检查了几个站点，但是，如果我访问 HTTPS 站点，我的函数可以工作，但是当我关闭程序时，我得到了一个 AV。如果我只访问 HTTP 站点进行测试，则关闭时不会发生 AV。

这是函数的一个片段，我访问的第一个站点是 HTTPS，所以我不需要处理程序，这样更简单。如果我注释掉 HTTPS 并取消注释 HTTP，它可以工作，没有 AV。实际功能测试了几个站点，但这很容易产生错误。

访问 HTTPS 站点时我需要做一些额外的事情吗？

procedure TForm1.btnTestConnectionClick(Sender: TObject); 
var 
  http: TIdHttp; 
  bFound: boolean;
begin 
  bFound := True; 
  http := TIdHttp.Create(nil); 
  try 
    try 
      //http.Get('http://www.google.com'); 
      http.Get('https://www.wikipedia.org'); 
    except 
      bFound := False; 
    end; 
  finally 
    FreeAndNil(http); 
  end; 
  if not bFound then 
    ShowMessage('Internet not working')
  else 
    ShowMessage('Internet working'); 
end;

返回值符合预期，如果我尝试多个站点直到找到一个（表明 Internet 正在运行），它可以工作，但是如果我访问 HTTPS 站点，我会在程序关闭时获得 AV。

Answer 1

您的代码很好，AV 可能与其他内容有关。您需要调试代码并追查根本原因。

但是，也就是说，您根本不需要处理 HTTPS 来测试有效连接。事实上，你甚至根本不需要使用TIdHTTP，单独使用TIdTCPClient 就足够了。你所需要的只是连接到几个服务器上的给定端口，你不需要实际与它们通信（我在my answer 到your previous question 中告诉过你很多），例如：

procedure TForm1.btnTestConnectionClick(Sender: TObject); 
const
  Hosts: array[0..1] of string = ('www.google.com', 'www.wikipedia.org'{, ...});
var 
  tcp: TIdTCPClient; 
  host: string;
  bFound: boolean;
begin 
  bFound := False;
  try
    tcp := TIdTCPClient.Create(nil); 
    try 
      for host in Hosts do
      begin
        tcp.Host := host;
        tcp.Port := 80; // or 443...
        try
          tcp.Connect;
        except
          Continue;
        end;
        tcp.Disconnect;
        bFound := True;
        Break;
      end;
    finally 
      tcp.Free; 
    end; 
  except
  end;
  if not bFound then 
    ShowMessage('Internet not working')
  else 
    ShowMessage('Internet working'); 
end;