XMLHTTP 和“拒绝访问”错误

Question

我正在尝试使用 MS XMLHTTP COM 检索 HTTP 文档的内容。我确实复制了以下示例代码，但即使这样也不起作用，并且在发送方法调用时因 EOLEException 错误“访问被拒绝”而失败。

uses
  MSXML, ComObj, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
  httpDoc: XMLHTTP;  // IXMLHTTPRequest
begin
    httpDoc := CreateOleObject('MSXML2.XMLHTTP') as XMLHTTP;
  try
    httpDoc.open('GET', 'http://www.google.com/index.html', False, EmptyParam, EmptyParam);
    httpDoc.send('');  // <-- EOLEException 'Access is denied'
    if (httpDoc.readyState = 4) and (httpDoc.status = 200) then
      ShowMessage(httpDoc.responseText);
  finally
    httpDoc := nil;
  end;
end;

我真的不知道我做错了什么:(

Answer 1

Google 会进行基于位置的重定向，有时这涉及重定向到另一个域。 XMLHTTP 不喜欢那样。此外，似乎XMLHTTP 在从浏览器外部的本地脚本（例如从 VB、Delphi 等）运行时不允许访问远程服务器。请参阅this discussion、this discussion 和 this documentation。