Ошибка XMLHTTP и ошибки «Access denied»

Question

Я пытаюсь получить содержимое HTTP-документа с помощью MS XMLHTTP COM. Я скопировал следующий пример кода, но даже это не работает и не работает с Ошибка 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.