shlinstobj.c File Reference

#include <stdarg.h>
#include "windef.h"
#include "winbase.h"
#include "winreg.h"
#include "objbase.h"
#include "oleauto.h"
#include "shdocvw.h"
#include "wine/debug.h"

Include dependency graph for shlinstobj.c:

Go to the source code of this file.

Classes
struct	_RegistryPropertyBag
struct	_InstanceObjectFactory

Macros
#define	COBJMACROS
#define	CHARS_IN_GUID   39

Typedefs
typedef struct _RegistryPropertyBag	RegistryPropertyBag
typedef struct _InstanceObjectFactory	InstanceObjectFactory

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (shdocvw)
static RegistryPropertyBag *	impl_from_IPropertyBag (IPropertyBag *iface)
static HRESULT WINAPI	RegistryPropertyBag_IPropertyBag_QueryInterface (IPropertyBag *iface, REFIID riid, void **ppv)
static ULONG WINAPI	RegistryPropertyBag_IPropertyBag_AddRef (IPropertyBag *iface)
static ULONG WINAPI	RegistryPropertyBag_IPropertyBag_Release (IPropertyBag *iface)
static HRESULT WINAPI	RegistryPropertyBag_IPropertyBag_Read (IPropertyBag *iface, LPCOLESTR pwszPropName, VARIANT *pVar, IErrorLog *pErrorLog)
static HRESULT WINAPI	RegistryPropertyBag_IPropertyBag_Write (IPropertyBag *iface, LPCOLESTR pwszPropName, VARIANT *pVar)
static HRESULT	RegistryPropertyBag_Constructor (HKEY hInitPropertyBagKey, REFIID riid, LPVOID *ppvObject)
static InstanceObjectFactory *	impl_from_IClassFactory (IClassFactory *iface)
static HRESULT WINAPI	InstanceObjectFactory_IClassFactory_QueryInterface (IClassFactory *iface, REFIID riid, void **ppv)
static ULONG WINAPI	InstanceObjectFactory_IClassFactory_AddRef (IClassFactory *iface)
static ULONG WINAPI	InstanceObjectFactory_IClassFactory_Release (IClassFactory *iface)
static HRESULT WINAPI	InstanceObjectFactory_IClassFactory_CreateInstance (IClassFactory *iface, IUnknown *pUnkOuter, REFIID riid, LPVOID *ppvObj)
static HRESULT WINAPI	InstanceObjectFactory_IClassFactory_LockServer (IClassFactory *iface, BOOL fLock)
static HRESULT	InstanceObjectFactory_Constructor (REFCLSID rclsid, IPropertyBag *pPropertyBag, REFIID riid, LPVOID *ppvObject)
HRESULT	SHDOCVW_GetShellInstanceObjectClassObject (REFCLSID rclsid, REFIID riid, LPVOID *ppvClassObj)

Variables
static const IPropertyBagVtbl	RegistryPropertyBag_IPropertyBagVtbl
static const IClassFactoryVtbl	InstanceObjectFactory_IClassFactoryVtbl

Macro Definition Documentation

CHARS_IN_GUID

#define CHARS_IN_GUID   39

Definition at line 42 of file shlinstobj.c.

COBJMACROS

#define COBJMACROS

Definition at line 28 of file shlinstobj.c.

Typedef Documentation

InstanceObjectFactory

typedef struct _InstanceObjectFactory InstanceObjectFactory

RegistryPropertyBag

typedef struct _RegistryPropertyBag RegistryPropertyBag

Function Documentation

impl_from_IClassFactory()

static InstanceObjectFactory * impl_from_IClassFactory ( IClassFactory *  iface )

inlinestatic

Definition at line 210 of file shlinstobj.c.

{
    return CONTAINING_RECORD(iface, InstanceObjectFactory, IClassFactory_iface);
}

Referenced by InstanceObjectFactory_IClassFactory_AddRef(), InstanceObjectFactory_IClassFactory_CreateInstance(), InstanceObjectFactory_IClassFactory_QueryInterface(), and InstanceObjectFactory_IClassFactory_Release().

impl_from_IPropertyBag()

static RegistryPropertyBag * impl_from_IPropertyBag ( IPropertyBag *  iface )

inlinestatic

Definition at line 55 of file shlinstobj.c.

{
    return CONTAINING_RECORD(iface, RegistryPropertyBag, IPropertyBag_iface);
}

Referenced by RegistryPropertyBag_IPropertyBag_AddRef(), RegistryPropertyBag_IPropertyBag_QueryInterface(), RegistryPropertyBag_IPropertyBag_Read(), and RegistryPropertyBag_IPropertyBag_Release().

InstanceObjectFactory_Constructor()

static HRESULT InstanceObjectFactory_Constructor ( REFCLSID  rclsid, IPropertyBag *  pPropertyBag, REFIID  riid, LPVOID *  ppvObject  )

static

Definition at line 324 of file shlinstobj.c.

{
    InstanceObjectFactory *pInstanceObjectFactory;
    HRESULT hr = E_FAIL;
 
    TRACE("(RegistryPropertyBag=%p, riid=%s, ppvObject=%p)\n", pPropertyBag,
        debugstr_guid(riid), ppvObject);
 
    pInstanceObjectFactory = heap_alloc(sizeof(InstanceObjectFactory));
    if (pInstanceObjectFactory) {
        pInstanceObjectFactory->IClassFactory_iface.lpVtbl = &InstanceObjectFactory_IClassFactoryVtbl;
        pInstanceObjectFactory->m_cRef = 0;
        pInstanceObjectFactory->m_clsidInstance = *rclsid;
        pInstanceObjectFactory->m_pPropertyBag = pPropertyBag;
        IPropertyBag_AddRef(pPropertyBag);
 
        IClassFactory_AddRef(&pInstanceObjectFactory->IClassFactory_iface);
        hr = IClassFactory_QueryInterface(&pInstanceObjectFactory->IClassFactory_iface,
                                          riid, ppvObject);
        IClassFactory_Release(&pInstanceObjectFactory->IClassFactory_iface);
    }
 
    return hr;
}

Referenced by SHDOCVW_GetShellInstanceObjectClassObject().

InstanceObjectFactory_IClassFactory_AddRef()

static ULONG WINAPI InstanceObjectFactory_IClassFactory_AddRef ( IClassFactory *  iface )

static

Definition at line 236 of file shlinstobj.c.

{
    InstanceObjectFactory *This = impl_from_IClassFactory(iface);
    ULONG cRef;
 
    TRACE("(iface=%p)\n", iface);
 
    cRef = InterlockedIncrement(&This->m_cRef);
 
    if (cRef == 1)
        IClassFactory_LockServer(iface, TRUE);
 
    return cRef;
}

InstanceObjectFactory_IClassFactory_CreateInstance()

static HRESULT WINAPI InstanceObjectFactory_IClassFactory_CreateInstance ( IClassFactory *  iface, IUnknown *  pUnkOuter, REFIID  riid, LPVOID *  ppvObj  )

static

Definition at line 269 of file shlinstobj.c.

{
    InstanceObjectFactory *This = impl_from_IClassFactory(iface);
    IPersistPropertyBag *pPersistPropertyBag;
    HRESULT hr;
 
    TRACE("(pUnkOuter=%p, riid=%s, ppvObj=%p)\n", pUnkOuter, debugstr_guid(riid), ppvObj);
 
    hr = CoCreateInstance(&This->m_clsidInstance, NULL, CLSCTX_INPROC_SERVER,
                          &IID_IPersistPropertyBag, (LPVOID*)&pPersistPropertyBag);
    if (FAILED(hr)) {
        TRACE("Failed to create instance of %s. hr = %08x\n",
              debugstr_guid(&This->m_clsidInstance), hr);
        return hr;
    }
 
    hr = IPersistPropertyBag_Load(pPersistPropertyBag, This->m_pPropertyBag, NULL);
    if (FAILED(hr)) {
        TRACE("Failed to initialize object from PropertyBag: hr = %08x\n", hr);
        IPersistPropertyBag_Release(pPersistPropertyBag);
        return hr;
    }
 
    hr = IPersistPropertyBag_QueryInterface(pPersistPropertyBag, riid, ppvObj);
    IPersistPropertyBag_Release(pPersistPropertyBag);
 
    return hr;
}

InstanceObjectFactory_IClassFactory_LockServer()

static HRESULT WINAPI InstanceObjectFactory_IClassFactory_LockServer ( IClassFactory *  iface, BOOL  fLock  )

static

Definition at line 299 of file shlinstobj.c.

{
    TRACE("(iface=%p, fLock=%d) stub\n", iface, fLock);
 
    if (fLock)
        SHDOCVW_LockModule();
    else
        SHDOCVW_UnlockModule();
 
    return S_OK;        
}

InstanceObjectFactory_IClassFactory_QueryInterface()

static HRESULT WINAPI InstanceObjectFactory_IClassFactory_QueryInterface ( IClassFactory *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 215 of file shlinstobj.c.

{
    InstanceObjectFactory *This = impl_from_IClassFactory(iface);
 
    TRACE("iface=%p, riid=%s, ppv=%p)\n", iface, debugstr_guid(riid), ppv);
 
    if (!ppv)
        return E_INVALIDARG;
 
    if (IsEqualIID(&IID_IUnknown, riid) || IsEqualIID(&IID_IClassFactory, riid)) {
        *ppv = &This->IClassFactory_iface;
    } else {
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

InstanceObjectFactory_IClassFactory_Release()

static ULONG WINAPI InstanceObjectFactory_IClassFactory_Release ( IClassFactory *  iface )

static

Definition at line 251 of file shlinstobj.c.

{
    InstanceObjectFactory *This = impl_from_IClassFactory(iface);
    ULONG cRef;
 
    TRACE("(iface=%p)\n", iface);
 
    cRef = InterlockedDecrement(&This->m_cRef);
 
    if (cRef == 0) {
        IClassFactory_LockServer(iface, FALSE);
        IPropertyBag_Release(This->m_pPropertyBag);
        heap_free(This);
    }
 
    return cRef;
}

RegistryPropertyBag_Constructor()

static HRESULT RegistryPropertyBag_Constructor ( HKEY  hInitPropertyBagKey, REFIID  riid, LPVOID *  ppvObject  )

static

Definition at line 175 of file shlinstobj.c.

                                                                                                         {
    HRESULT hr = E_FAIL;
    RegistryPropertyBag *pRegistryPropertyBag;
 
    TRACE("(hInitPropertyBagKey=%p, riid=%s, ppvObject=%p)\n", hInitPropertyBagKey, 
        debugstr_guid(riid), ppvObject);
    
    pRegistryPropertyBag = heap_alloc(sizeof(RegistryPropertyBag));
    if (pRegistryPropertyBag) {
        pRegistryPropertyBag->IPropertyBag_iface.lpVtbl = &RegistryPropertyBag_IPropertyBagVtbl;
        pRegistryPropertyBag->m_cRef = 0;
        pRegistryPropertyBag->m_hInitPropertyBagKey = hInitPropertyBagKey;
 
        /* The clasping AddRef/Release is for the case that QueryInterface fails, which will result
         * in a reference count of 0 in the Release call, which will result in object destruction.*/
        IPropertyBag_AddRef(&pRegistryPropertyBag->IPropertyBag_iface);
        hr = IPropertyBag_QueryInterface(&pRegistryPropertyBag->IPropertyBag_iface, riid, ppvObject);
        IPropertyBag_Release(&pRegistryPropertyBag->IPropertyBag_iface);
    }
 
    return hr;
}

Referenced by SHDOCVW_GetShellInstanceObjectClassObject().

RegistryPropertyBag_IPropertyBag_AddRef()

static ULONG WINAPI RegistryPropertyBag_IPropertyBag_AddRef ( IPropertyBag *  iface )

static

Definition at line 81 of file shlinstobj.c.

{
    RegistryPropertyBag *This = impl_from_IPropertyBag(iface);
    ULONG cRef;
 
    TRACE("(iface=%p)\n", iface);
 
    cRef = InterlockedIncrement(&This->m_cRef);
 
    if (cRef == 1)
        SHDOCVW_LockModule();
 
    return cRef;
}

RegistryPropertyBag_IPropertyBag_QueryInterface()

static HRESULT WINAPI RegistryPropertyBag_IPropertyBag_QueryInterface ( IPropertyBag *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 60 of file shlinstobj.c.

{
    RegistryPropertyBag *This = impl_from_IPropertyBag(iface);
 
    TRACE("(iface=%p, riid=%s, ppv=%p)\n", iface, debugstr_guid(riid), ppv);
 
    if (!ppv)
        return E_INVALIDARG;
 
    if (IsEqualIID(&IID_IUnknown, riid) || IsEqualIID(&IID_IPropertyBag, riid)) {
        *ppv = &This->IPropertyBag_iface;
    } else {
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

RegistryPropertyBag_IPropertyBag_Read()

static HRESULT WINAPI RegistryPropertyBag_IPropertyBag_Read ( IPropertyBag *  iface, LPCOLESTR  pwszPropName, VARIANT *  pVar, IErrorLog *  pErrorLog  )

static

Definition at line 115 of file shlinstobj.c.

{
    RegistryPropertyBag *This = impl_from_IPropertyBag(iface);
    WCHAR *pwszValue;
    DWORD dwType, cbData;
    LONG res;
    VARTYPE vtDst = V_VT(pVar);
    HRESULT hr = S_OK;
 
    TRACE("(iface=%p, pwszPropName=%s, pVar=%p, pErrorLog=%p)\n", iface, debugstr_w(pwszPropName), 
          pVar, pErrorLog);
 
    res = RegQueryValueExW(This->m_hInitPropertyBagKey, pwszPropName, NULL, &dwType, NULL, &cbData);
    if (res != ERROR_SUCCESS) 
        return E_INVALIDARG;
 
    pwszValue = heap_alloc(cbData);
    if (!pwszValue)
        return E_OUTOFMEMORY;
 
    res = RegQueryValueExW(This->m_hInitPropertyBagKey, pwszPropName, NULL, &dwType, 
                           (LPBYTE)pwszValue, &cbData);
    if (res != ERROR_SUCCESS) {
        heap_free(pwszValue);
        return E_INVALIDARG;
    }
 
    V_VT(pVar) = VT_BSTR;
    V_BSTR(pVar) = SysAllocString(pwszValue);
    heap_free(pwszValue);
 
    if (vtDst != VT_BSTR) {
        hr = VariantChangeTypeEx(pVar, pVar, LOCALE_SYSTEM_DEFAULT, 0, vtDst);
        if (FAILED(hr))
            SysFreeString(V_BSTR(pVar));
    }
 
    return hr;    
}

RegistryPropertyBag_IPropertyBag_Release()

static ULONG WINAPI RegistryPropertyBag_IPropertyBag_Release ( IPropertyBag *  iface )

static

Definition at line 96 of file shlinstobj.c.

{
    RegistryPropertyBag *This = impl_from_IPropertyBag(iface);
    ULONG cRef;
 
    TRACE("(iface=%p)\n", iface);
 
    cRef = InterlockedDecrement(&This->m_cRef);
 
    if (cRef == 0) {
        TRACE("Destroying This=%p)\n", This);
        RegCloseKey(This->m_hInitPropertyBagKey);
        heap_free(This);
        SHDOCVW_UnlockModule();
    }
 
    return cRef;
}

RegistryPropertyBag_IPropertyBag_Write()

static HRESULT WINAPI RegistryPropertyBag_IPropertyBag_Write ( IPropertyBag *  iface, LPCOLESTR  pwszPropName, VARIANT *  pVar  )

static

Definition at line 156 of file shlinstobj.c.

{
    FIXME("(iface=%p, pwszPropName=%s, pVar=%p) stub\n", iface, debugstr_w(pwszPropName), pVar);
    return E_NOTIMPL;
}

SHDOCVW_GetShellInstanceObjectClassObject()

HRESULT SHDOCVW_GetShellInstanceObjectClassObject	(	REFCLSID	rclsid,
		REFIID	riid,
		LPVOID *	ppvClassObj
	)

Definition at line 365 of file shlinstobj.c.

{
    WCHAR wszInstanceKey[] = { 'C','L','S','I','D','\\','{','0','0','0','0','0','0','0','0','-',
        '0','0','0','0','-','0','0','0','0','-','0','0','0','0','-','0','0','0','0','0','0','0','0',
        '0','0','0','0','}','\\','I','n','s','t','a','n','c','e', 0 };
    static const WCHAR wszCLSID[] = { 'C','L','S','I','D',0 };
    static const WCHAR wszInitPropertyBag[] =
        { 'I','n','i','t','P','r','o','p','e','r','t','y','B','a','g',0 };
    WCHAR wszCLSIDInstance[CHARS_IN_GUID];
    CLSID clsidInstance;
    HKEY hInstanceKey, hInitPropertyBagKey;
    DWORD dwType, cbBytes = sizeof(wszCLSIDInstance);
    IPropertyBag *pInitPropertyBag;
    HRESULT hr;
    LONG res;
        
    TRACE("(rclsid=%s, riid=%s, ppvClassObject=%p)\n", debugstr_guid(rclsid), debugstr_guid(riid), 
          ppvClassObj);
 
    /* Figure if there is an 'Instance' subkey for the given CLSID and acquire a handle. */
    if (!StringFromGUID2(rclsid, wszInstanceKey + 6, CHARS_IN_GUID))
        return CLASS_E_CLASSNOTAVAILABLE;
    wszInstanceKey[5+CHARS_IN_GUID] = '\\'; /* Repair the null-termination. */
    if (ERROR_SUCCESS != RegOpenKeyExW(HKEY_CLASSES_ROOT, wszInstanceKey, 0, KEY_READ, &hInstanceKey))
        /* If there is no 'Instance' subkey, then it's not a Shell Instance Object. */
        return CLASS_E_CLASSNOTAVAILABLE;
 
    if (ERROR_SUCCESS != RegQueryValueExW(hInstanceKey, wszCLSID, NULL, &dwType, (LPBYTE)wszCLSIDInstance, &cbBytes) ||
        FAILED(CLSIDFromString(wszCLSIDInstance, &clsidInstance)))
    {
        /* 'Instance' should have a 'CLSID' value with a well-formed clsid-string. */
        FIXME("Failed to infer instance CLSID! %s\n", debugstr_w(wszCLSIDInstance));
        RegCloseKey(hInstanceKey);
        return CLASS_E_CLASSNOTAVAILABLE;
    }
 
    /* Try to open the 'InitPropertyBag' subkey. */
    res = RegOpenKeyExW(hInstanceKey, wszInitPropertyBag, 0, KEY_READ, &hInitPropertyBagKey);
    RegCloseKey(hInstanceKey);
    if (res != ERROR_SUCCESS) {
        /* Besides 'InitPropertyBag's, shell instance objects might be initialized by streams.
         * So this case might not be an error. */
        TRACE("No InitPropertyBag key found!\n");
        return CLASS_E_CLASSNOTAVAILABLE;
    }
 
    /* If the construction succeeds, the new RegistryPropertyBag is responsible for closing
     * hInitPropertyBagKey. */
    hr = RegistryPropertyBag_Constructor(hInitPropertyBagKey, &IID_IPropertyBag,
                                         (LPVOID*)&pInitPropertyBag);
    if (FAILED(hr)) {
        RegCloseKey(hInitPropertyBagKey);
        return hr;
    }
 
    /* Construct an Instance Object Factory, which creates objects of class 'clsidInstance'
     * and asks them to initialize themselves with the help of the 'pInitiPropertyBag' */
    hr = InstanceObjectFactory_Constructor(&clsidInstance, pInitPropertyBag, riid, ppvClassObj);
    IPropertyBag_Release(pInitPropertyBag); /* The factory will hold a reference the bag. */
        
    return hr;
}

Referenced by DllGetClassObject().

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

shdocvw

)

Variable Documentation

InstanceObjectFactory_IClassFactoryVtbl

const IClassFactoryVtbl InstanceObjectFactory_IClassFactoryVtbl

static

Initial value:

= {
 
    InstanceObjectFactory_IClassFactory_QueryInterface,
    InstanceObjectFactory_IClassFactory_AddRef,
    InstanceObjectFactory_IClassFactory_Release,
    InstanceObjectFactory_IClassFactory_CreateInstance,
    InstanceObjectFactory_IClassFactory_LockServer
}

Definition at line 315 of file shlinstobj.c.

Referenced by InstanceObjectFactory_Constructor().

RegistryPropertyBag_IPropertyBagVtbl

const IPropertyBagVtbl RegistryPropertyBag_IPropertyBagVtbl

static

Initial value:

= {
 
    RegistryPropertyBag_IPropertyBag_QueryInterface,
    RegistryPropertyBag_IPropertyBag_AddRef,
    RegistryPropertyBag_IPropertyBag_Release,
    RegistryPropertyBag_IPropertyBag_Read,
    RegistryPropertyBag_IPropertyBag_Write
}

Definition at line 166 of file shlinstobj.c.

Referenced by RegistryPropertyBag_Constructor().