Lỗi XMLHTTP và "Truy cập bị từ chối"

Question

Tôi đang cố truy xuất nội dung của tài liệu HTTP bằng MS XMLHTTP COM. Tôi đã sao chép mã mẫu sau đây nhưng ngay cả điều này không hoạt động và không thành công với Lỗi EOLEException 'Truy cập bị từ chối' theo phương thức gửi.

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; 

Tôi thực sự không biết những gì tôi làm sai :(

Answer 1

Google không chuyển hướng dựa trên địa điểm, và đôi khi điều đó liên quan đến việc chuyển hướng đến tên miền khác. XMLHTTP không như thế. Ngoài ra, có vẻ như XMLHTTP không cho phép truy cập đến các máy chủ từ xa khi chạy từ một kịch bản địa phương (chẳng hạn như từ VB, Delphi, vv) bên ngoài của một trình duyệt. Xem this discussion, this discussion, và this documentation.