Jeans & Development コンピューターのことなどを綴ったメモ (旧：目から鱗 w/SQLite)

Set T = CreateObject("App.ObjectType")

の際に行われること。

１）レジストリ：HKEY_CLASSES_ROOT\App.ObjectType\CLSIDよりCLSIDを取得
２）レジストリ：HKEY_CLASSES_ROOT\CLSID\{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}\InprocServer32より、DLLファイル名を取得
３）DLLのロード
４）DllGetClassObjectの呼び出し。CLSIDには上記の物、iidにはIID_IClassFactoryを指定。ppvにIClassFactoryが得られる。
５）IClassFactory::QueryInterfaceの呼び出し。riidにはIID_IClassFactoryを指定。ppvObjectにはIClassFactoryを指定。
６）IClassFactory::Releaseの呼び出し。
７）IClassFactory::CreateInstanceの呼び出し。pUnkOuterにはNULL、riidにはIID_IUnknown 、ppvObjectにIDispatchが得られる。
８）IClassFactory::Releaseの呼び出し。
９）IDispatch::QueryInterfaceの呼び出し。riidにはIID_IDispatchを指定。ppvObjectにはIDispatchを指定。
１０）IDispatch::Releaseの呼び出し。

コード例（CLSIDの取得とDLLのロードは省略）

IClassFactory* ppv;
IDispatch* ppvObject;
DllGetClassObject(CLSID_COM,IID_IClassFactory,(LPVOID*)&ppv);
ppv->QueryInterface(IID_IClassFactory, (void**) &ppv);
ppv->Release();
ppv->CreateInstance(NULL,IID_IUnknown,(void**)&ppvObject);
ppv->Release();
ppvObject->QueryInterface(IID_IDispatch,(void**)&ppvObject);
ppvObject->Release();

参考１　参考２　参考３