В кадре отказано в разрешении

Question

В кадре отказано в разрешении

У меня есть окно, основанное на CAxWindow. В этом окне я создаю элемент управления WebBrowser. Когда происходит DISPID_DOCUMENTCOMPLETE, я делаю:

void __stdcall document_complete( LPDISPATCH pBrowser, VARIANT* )
{
CComQIPtr< IWebBrowser2 > wb( pBrowser );

CComPtr< IDispatch > doc;

if( SUCCEEDED( wb->get_Document( &doc ) ) )
{
_docs.push_back( doc );
}

...
}

Когда страница загружена, я вызываю каждый документ в _docs скрипте (IActiveScript и IActiveScriptSite):

function main( doc )
{
try
{
return doc.URL;
}
catch( e )
{
return "Error: " + e.description;
}
}

На некоторых документах я получаю сообщение об ошибке: «Отказано в доступе».
С нативным кодом у меня нет проблем:

for( auto disp : _docs )
{
CComQIPtr< IHTMLDocument2 > doc( disp );

_bstr_t url;

ATLVERIFY( SUCCEEDED( doc->get_URL( url.GetAddress() ) ) );
}

Как я могу избежать ошибки?

Оказалось, что сценарии не были причиной:

for( auto disp : _docs )
{
CComQIPtr< IDispatchEx > doc( disp );

DISPID id = 0;
auto hr = doc->GetDispID( _bstr_t( L"URL" ), 0, &id );

// hr == E_ACCESSDENIED
}

2

activex atl c++com webbrowser-control

Решение

Другие решения

Других решений пока нет …

Источник

Accepted Answer

Насколько я понимаю, у вас есть собственный хостинг сценариев, размещающий JavaScript через интерфейсы Active Scripting. Движок JavaScript использует IDispatchEx :: Invoke вызывать COM-объекты (всякий раз, когда IDispatchEx доступно, как с MSHTML doc объект) и передает свой IServiceProvider на звонок. Я полагаю, вот как doc Реализация осознает, что он вызывается из среды сценариев, отличной от своих собственных сценариев, и ограничивает свои методы по соображениям безопасности (в отличие от вызовов собственного кода).

Я не знаю о документированном способе выключения этого поведения, но вы можете попробовать следующие варианты:

Воплощать в жизнь IServiceProvider на ваше IActiveScriptSite Объект и направить все запросы на обслуживание IServiceProvider вы получите от IHTMLDocument2 объект (doc). Это может или не может работать.
Заворачивать doc с собственным объектом C ++, который реализует только IDispatch и переадресовать все свои звонки на IHTMLDocument2, Передайте объект-оболочку в ваш скрипт вместо оригинального doc, Скорее всего, это должно работать.

Дайте нам знать, если вам повезет с вышеуказанным.

[EDITED] Попробуй это:

class CDispatchWrapper:
public CComObjectRoot,
public IDispatch
{
// http://stackoverflow.com/questions/18718366/permission-denied-on-frame/
protected:
CDispatchWrapper() {}

struct MEMBER
{
CComPtr<IUnknown> unk;
CComPtr<ITypeInfo> ti;
};

CComPtr<ITypeLib> m_typeLib;
CComPtr<IDispatch> m_dispatch;
CSimpleMap<CComBSTR, DISPID> m_dispids;
CSimpleMap<DISPID, MEMBER> m_members;

public:
BEGIN_COM_MAP(CDispatchWrapper)
COM_INTERFACE_ENTRY(IDispatch)
END_COM_MAP()

// create and initialize
static HRESULT Create(IDispatch* dispatch, const GUID& libid, CDispatchWrapper** pp)
{
CComObject<CDispatchWrapper>* pThis = NULL;
CComObject<CDispatchWrapper>::CreateInstance(&pThis);
if (!pThis)
return E_OUTOFMEMORY;

if ( FAILED(LoadRegTypeLib(libid, 0xFFFF, 0xFFFF, 0, &pThis->m_typeLib)) )
return E_FAIL;

pThis->m_dispatch = dispatch;

(*pp = pThis)->AddRef();
return S_OK;
}

// IDispatch
STDMETHODIMP GetTypeInfoCount(UINT* pctinfo)
{
return E_NOTIMPL;
}

STDMETHODIMP GetTypeInfo(UINT itinfo, LCID lcid, ITypeInfo** pptinfo)
{
return E_NOTIMPL;
}

STDMETHODIMP GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames, UINT cNames, LCID lcid, DISPID* rgdispid)
{
if ( cNames != 1 || !rgszNames || !rgszNames[0] || !*rgszNames[0] || !rgdispid )
return E_INVALIDARG;

CComBSTR name(rgszNames[0]);
if ( !name )
return E_OUTOFMEMORY;

int n = m_dispids.FindKey(name);
if ( n >= 0 )
{
DISPID dispid = m_dispids.GetValueAt(n);
if ( dispid == DISPID_UNKNOWN )
return DISP_E_UNKNOWNNAME;
rgdispid[0] = dispid;
return S_OK;
}

// find the name(s) in the typelib
UINT cMax = m_typeLib->GetTypeInfoCount();
ITypeInfo** ppTypeInfo = (ITypeInfo**)_alloca(sizeof(ITypeInfo*) * cMax);
MEMBERID* pMemberid = (MEMBERID*)_alloca(sizeof(MEMBERID*) * cMax);
USHORT cTypes = cMax;
if ( FAILED(m_typeLib->FindName(name, 0, ppTypeInfo, pMemberid, &cTypes)) || !cTypes )
return DISP_E_UNKNOWNNAME;

bool found = false;
MEMBER member;
DISPID dispid = DISPID_UNKNOWN;

for ( int i = 0; i < cTypes && !found; i++ )
{
TYPEATTR* pTypeAttr = NULL;
member.ti.Release();
member.unk.Release();

member.ti = ppTypeInfo[i];
member.ti->GetTypeAttr(&pTypeAttr);
if (pTypeAttr)
{
// check to see if m_dispatch object also implements pTypeAttr->guid interface
m_dispatch->QueryInterface(pTypeAttr->guid, (void**)&member.unk);
if (member.unk)
{
// could use pMemberid[i], but let's make sure
dispid = DISPID_UNKNOWN;
if ( SUCCEEDED(member.ti->GetIDsOfNames(rgszNames, 1, &dispid)) )
found = true;
}
member.ti->ReleaseTypeAttr(pTypeAttr);
}
}

for ( int i = 0; i < cTypes; i++ )
ppTypeInfo[i]->Release();

if (found)
{
if ( !m_dispids.Add(name, dispid) )
return E_OUTOFMEMORY;
if ( !m_members.Add(dispid, member) )
return E_OUTOFMEMORY;

rgdispid[0] = dispid;
return S_OK;
}

if ( !m_dispids.Add(name, DISPID_UNKNOWN) )
return E_OUTOFMEMORY;

return DISP_E_UNKNOWNNAME;
}

STDMETHODIMP Invoke(DISPID dispidMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS* pdispparams, VARIANT* pvarResult, EXCEPINFO* pexcepinfo, UINT* puArgErr)
{
int n = m_members.FindKey(dispidMember);
if ( n >= 0 )
{
const MEMBER& member = m_members.GetValueAt(n);
return member.ti->Invoke(member.unk, dispidMember, wFlags, pdispparams, pvarResult, pexcepinfo, puArgErr);
}

return DISP_E_MEMBERNOTFOUND;
}
};

Использование:

CComPtr<IHTMLDocument2> doc;
// ...
// once doc != NULL, wrap it
CComPtr<CDispatchWrapper> wrapper;
CDispatchWrapper::Create(doc, LIBID_MSHTML, &wrapper);
// now pass the wrapper to the script, instead of doc

1