「アクセスが拒否されました」。私は次のサンプルコードをコピーしましたが、これでもうまく動作せず、EOLEExceptionエラーでエラーが発生しました。メソッドを呼び出すと、 'アクセスが拒否されました。XMLHTTPと私はMS XMLHTTP COMとHTTP文書のコンテンツを取得しようとしているエラー
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;
私は本当に私が間違っているのかわからない:(
をsend'が本当に空に許可された '場合もチェック文字列パラメータの代わりに正規の 'null' – OnTheFly