BOOL IXArrayDB::CreateDispatch(REFCLSID clsid, COleException* pError )
{
ASSERT(m_lpDispatch == NULL);
m_bAutoRelease = TRUE; // good default is to auto-release
// create an instance of the object
LPUNKNOWN lpUnknown = NULL;
HRESULT sc = CreateInstanceLic( this->GetCLSID(), NULL,
CLSCTX_ALL | CLSCTX_REMOTE_SERVER,
IID_IUnknown, (zPVOID*)&lpUnknown);
if (sc == E_INVALIDARG)
{
// may not support CLSCTX_REMOTE_SERVER, so try without
sc = CreateInstanceLic(this->GetCLSID(), NULL, CLSCTX_ALL & ~CLSCTX_REMOTE_SERVER,
IID_IUnknown, (zPVOID*)&lpUnknown);
}
if (FAILED(sc))
goto Failed;
// make sure it is running
sc = OleRun(lpUnknown);
if (FAILED(sc))
goto Failed;
// query for IDispatch interface
sc = lpUnknown->QueryInterface( IID_IDispatch, (zPVOID*) &m_lpDispatch);
if (m_lpDispatch == NULL)
goto Failed;
lpUnknown->Release();
ASSERT(m_lpDispatch != NULL);
return TRUE;
Failed:
lpUnknown->Release();
if (pError != NULL)
pError->m_sc = sc;
TRACE1("Warning: CreateDispatch returning scode = %s.\n",
AfxGetFullScodeString(sc));
return FALSE;
}
HRESULT CComClassFactoryImpl::CreateInstance(LPUNKNOWN pUnkOuter, REFIID riid, void** ppvObj) {
return CreateInstanceLic(pUnkOuter, 0, riid, 0, ppvObj);
}
