void AddFilterUnique(CFilterList &FilterList, IBaseFilter *pNew)
{
if (pNew == NULL) return;
POSITION pos = FilterList.GetHeadPosition();
while (pos)
{
IBaseFilter *pF = FilterList.GetNext(pos);
if (IsEqualObject(pF, pNew))
{
return;
}
}
pNew->AddRef(); // The caller must release everything in the list.
FilterList.AddTail(pNew);
}
void AudioRenderer::SetClock(IReferenceClock* pClock)
{
CAutoLock objectLock(this);
m_graphClock = pClock;
if (m_graphClock && !IsEqualObject(m_graphClock, m_myClock.GetOwner()))
{
if (!m_externalClock)
ClearDevice();
m_externalClock = true;
}
else
{
if (m_externalClock)
ClearDevice();
m_externalClock = false;
}
}
HRESULT LoadAppDomain(ICorRuntimeHostPtr pHost, std::wstring addInFullPath, bool createSandboxedAppDomain, bool shadowCopyFiles, _AssemblyPtr& pLoaderAssembly , _AppDomainPtr& pAppDomain, bool& unloadAppDomain)
{
HRESULT hr;
std::wstring xllDirectory = addInFullPath;
RemoveFileSpecFromPath(xllDirectory);
unloadAppDomain = false;
if (IsRunningOnCluster())
{
// Need to load into default AppDomain due to configuration issues of the cluster host.
IUnknown *pAppDomainUnk = NULL;
hr = pHost->CurrentDomain(&pAppDomainUnk);
if (FAILED(hr) || pAppDomainUnk == NULL)
{
ShowMessage(IDS_MSG_HEADER_APPDOMAIN,
IDS_MSG_BODY_APPDOMAIN,
IDS_MSG_FOOTER_UNEXPECTED,
hr);
return E_FAIL;
}
// Assignment does QueryInterface
pAppDomain = pAppDomainUnk;
hr = LoadLoaderIntoAppDomain(pAppDomain, pLoaderAssembly, /*forceFromBytes=*/ true);
if (FAILED(hr))
{
// Already showed error message there.
return E_FAIL;
}
// Since we loaded into the default domain, don't unload the AppDomain later.
unloadAppDomain = false;
return S_OK;
}
// End of RunningOnCluster path.
// Create and populate AppDomainSetup
IUnknownPtr pAppDomainSetupUnk;
hr = pHost->CreateDomainSetup(&pAppDomainSetupUnk);
if (FAILED(hr) || pAppDomainSetupUnk == NULL)
{
ShowMessage(IDS_MSG_HEADER_APPDOMAIN,
IDS_MSG_BODY_APPDOMAINSETUP,
IDS_MSG_FOOTER_UNEXPECTED,
hr);
return E_FAIL;
}
IAppDomainSetupPtr pAppDomainSetup = pAppDomainSetupUnk;
hr = pAppDomainSetup->put_ApplicationBase(_bstr_t(xllDirectory.c_str()));
if (FAILED(hr))
{
ShowMessage(IDS_MSG_HEADER_APPDOMAIN,
IDS_MSG_BODY_APPLICATIONBASE,
IDS_MSG_FOOTER_UNEXPECTED,
hr);
return E_FAIL;
}
hr = pAppDomainSetup->put_ShadowCopyFiles(_bstr_t(shadowCopyFiles ? L"true" : L"false"));
if (FAILED(hr))
{
ShowMessage(IDS_MSG_HEADER_APPDOMAIN,
IDS_MSG_BODY_SHADOWCOPYFILES,
IDS_MSG_FOOTER_UNEXPECTED,
hr);
return E_FAIL;
}
// AppDomainSetup.ApplicationName = "Excel-DNA: c:\MyAddins\MyAddIn.xll";
_bstr_t appDomainName((std::wstring(L"Excel-DNA: ") + addInFullPath).c_str());
pAppDomainSetup->put_ApplicationName(appDomainName);
// Check if a .config file exists next to the .xll as MyAddIn.xll.config. Use it if it exists.
std::wstring configFileName = addInFullPath + L".config";
if (FileExists(configFileName.c_str()))
{
pAppDomainSetup->put_ConfigurationFile(_bstr_t(configFileName.c_str()));
}
else
{
// Try to load .config file from resources, store into a temp file
HRSRC hResConfig = FindResource(hModuleCurrent, L"__MAIN__", L"CONFIG");
if (hResConfig != NULL)
{
HGLOBAL hConfig = LoadResource(hModuleCurrent, hResConfig);
void* pConfig = LockResource(hConfig);
DWORD sizeConfig = SizeofResource(hModuleCurrent, hResConfig);
std::wstring tempConfigFileName;
hr = CreateTempFile(pConfig, sizeConfig, tempConfigFileName);
if (SUCCEEDED(hr))
{
pAppDomainSetup->put_ConfigurationFile(_bstr_t(tempConfigFileName.c_str()));
}
// tempConfigFile will be deleted after the AppDomain has been unloaded.
}
else
{
// No config file - no problem.
}
}
IUnknown *pAppDomainUnk = NULL;
hr = pHost->CreateDomainEx(appDomainName, pAppDomainSetupUnk, 0, &pAppDomainUnk);
if (FAILED(hr) || pAppDomainUnk == NULL)
{
ShowMessage(IDS_MSG_HEADER_APPDOMAIN,
IDS_MSG_BODY_APPDOMAIN,
IDS_MSG_FOOTER_UNEXPECTED,
hr);
return E_FAIL;
}
pAppDomain = pAppDomainUnk;
hr = LoadLoaderIntoAppDomain(pAppDomain, pLoaderAssembly, /*forceLoadFromBytes=*/ false);
if (FAILED(hr))
{
// Already showed message.
return E_FAIL;
}
if (createSandboxedAppDomain)
{
_TypePtr pAppDomainHelperType;
hr = pLoaderAssembly->GetType_2(_bstr_t(L"ExcelDna.Loader.AppDomainHelper"), &pAppDomainHelperType);
if (FAILED(hr) || pAppDomainHelperType == NULL)
{
ShowMessage(IDS_MSG_HEADER_APPDOMAIN,
IDS_MSG_BODY_XLADDIN,
IDS_MSG_FOOTER_UNEXPECTED,
hr);
return E_FAIL;
}
_variant_t sbRetVal;
_variant_t sbTarget;
hr = pAppDomainHelperType->InvokeMember_3(_bstr_t("CreateFullTrustSandbox"), (BindingFlags)(BindingFlags_Static | BindingFlags_Public | BindingFlags_InvokeMethod), NULL, sbTarget, NULL, &sbRetVal);
if (FAILED(hr))
{
ShowMessage(IDS_MSG_HEADER_APPDOMAIN,
IDS_MSG_BODY_XLADDININIT,
IDS_MSG_FOOTER_UNEXPECTED,
hr);
return E_FAIL;
}
_AppDomainPtr pSandbox(sbRetVal.punkVal);
if (!IsEqualObject(pAppDomain, pSandbox))
{
// Unload the loader AppDomain.
pLoaderAssembly.Release();
pHost->UnloadDomain(pAppDomain);
pAppDomain.Release();
pAppDomain = pSandbox;
// Sort out the LoaderAssembly in the sandbox.
hr = LoadLoaderIntoAppDomain(pAppDomain, pLoaderAssembly, /*forceLoadFromBytes=*/ false);
if (FAILED(hr))
{
// Already showed message.
return E_FAIL;
}
}
}
unloadAppDomain = true;
return S_OK;
}
