当然可以！用TIdHTTP搭配TIdSSLIOHandlerSocketOpenSSL来判断HTTPS资源是否存在是完全可行的，而且比你之前用TIdTCPClient手动模拟协议要简洁、可靠得多。下面给你详细的实现思路和代码示例：

核心思路 #

1. 组件搭配：TIdHTTP负责处理HTTP协议逻辑，TIdSSLIOHandlerSocketOpenSSL提供HTTPS所需的SSL/TLS加密支持，两者关联后就能处理HTTPS请求。
2. 高效请求方法：优先使用HEAD请求——这种请求只返回响应头，不会下载资源内容，能大幅节省带宽和请求时间。如果服务器不支持HEAD，再考虑用带Range头的GET请求（仅请求资源的第一个字节）。
3. 状态码判断：通过HTTP响应状态码来判断资源状态：
   • 200 OK：资源存在且可访问
   • 404 Not Found：资源不存在
   • 403 Forbidden：资源存在但无访问权限（可根据业务需求决定是否视为“存在”）
   • 3xx系列：重定向，TIdHTTP默认会自动跟随，无需手动处理

完整代码示例 #

function IsHttpsResourceExists(const AUrl: string): Boolean;
var
  IdHTTP: TIdHTTP;
  IdSSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := False;
  // 创建组件实例
  IdHTTP := TIdHTTP.Create(nil);
  IdSSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    // 关联SSL处理器到HTTP组件
    IdHTTP.IOHandler := IdSSLHandler;
    
    // 配置SSL/TLS版本（根据目标服务器支持情况调整，比如sslvTLSv1_3）
    IdSSLHandler.SSLOptions.Method := sslvTLSv1_2;
    
    // 允许自动跟随重定向（处理3xx状态码）
    IdHTTP.HandleRedirects := True;
    
    try
      // 发送HEAD请求
      IdHTTP.Head(AUrl);
      
      // 根据响应码判断资源状态
      // 这里默认仅把200视为存在，若需要把403也算存在，可修改条件
      Result := (IdHTTP.ResponseCode = 200);
    except
      on E: EIdHTTPProtocolException do
      begin
        // 捕获HTTP协议异常，处理明确的错误码
        if E.ErrorCode = 404 then
          Result := False
        else
          // 其他协议错误（如500服务器错误），按需处理，这里默认返回不存在
          Result := False;
      end;
      on E: Exception do
      begin
        // 处理网络错误、SSL握手失败等非协议异常
        Result := False;
      end;
    end;
  finally
    // 释放组件
    IdSSLHandler.Free;
    IdHTTP.Free;
  end;
end;

注意事项 #

• OpenSSL DLL兼容性：确保你使用的OpenSSL DLL文件（如libcrypto-1_1.dll、libssl-1_1.dll）与你的Indy版本兼容。这些DLL需要放在程序运行目录或系统可搜索路径中。
• SSL证书验证：如果目标服务器使用的是自签名证书或未受信任的证书，可能会触发SSL错误。如果只是临时测试，可以通过设置IdSSLHandler.SSLOptions.VerifyMode := []跳过验证，但生产环境建议配置正确的根证书以保证安全性。
• HEAD请求不支持的情况：若服务器拦截HEAD请求，可改用带Range头的GET请求替代：

  // 替换HEAD请求部分的代码
  IdHTTP.Request.Range := 'bytes=0-0';
  IdHTTP.Get(AUrl);
  // 206 Partial Content也说明资源存在
  Result := (IdHTTP.ResponseCode = 200) or (IdHTTP.ResponseCode = 206);
  

内容的提问来源于stack exchange，提问作者Ross