Win32のタイプライブラリーでインターフェイスのスーパークラスを求めたい

Question

こんにちは。まずはこちらをご覧下さい。

TLB2IDL
https://github.com/katahiromz/tlb2idl

これは現在作成中のWin32のタイプライブラリファイル(*.tlb)をMIDLファイルに変換するプログラムです。開発環境はWindows10とMSYS2とMSVCです。言語はC++/Win32です。

主な処理は、
https://github.com/katahiromz/tlb2idl/blob/main/CTypeLib.hpp
https://github.com/katahiromz/tlb2idl/blob/main/CTypeLib.cpp
の２つで行っていますが、システムにあるstdole2.tlbを処理したところ、

    [
      uuid(7BF80980-BF32-101A-8BBB-00AA00300CAB),
      helpstring("Picture Object"),
      hidden
    ]
    interface IPicture : ... {
        [id(0x60010000), propget, {{1,0,0}}]
        HRESULT Handle([out, retval] OLE_HANDLE* phandle);

のようにスーパークラスを表示することができません（ここではIPictureのスーパークラス）。

CTypeLib.cppのCTypeLibFunc::Loadでスーパークラスの情報を取得する方法を教えて下さい。

ITypeInfo::GetDocumentやITypeInfo::GetRefTypeOfImplTypeなど、あれこれ試しましたが、結局、スーパークラスを取得する方法は分かりませんでした。ただ、実装型のImplTypeが1個あるのは分かりました。ImplTypeから情報を取得しようとしましたが、難しいようです。

HRESULT CTypeLibFunc::Load(ITypeInfo *pTypeInfo, FUNCDESC *pFuncDesc)
{
    m_funckind = pFuncDesc->funckind;
    m_invkind = pFuncDesc->invkind;
    m_memid = pFuncDesc->memid;
    m_cParams = pFuncDesc->cParams;
    m_cParamsOpt = pFuncDesc->cParamsOpt;
    m_oVft = pFuncDesc->oVft;
    m_cScodes = pFuncDesc->cScodes;
    m_wFuncFlags = pFuncDesc->wFuncFlags;
    m_callconv = pFuncDesc->callconv;
    m_typedesc = getStringOfTypeDesc(pTypeInfo, &pFuncDesc->elemdescFunc.tdesc);

    const UINT cNames = 64;
    UINT cGotNames;
    BSTR bstrNames[cNames] = { NULL }, bstrHelpString = NULL;
    DWORD dwHelpContext = 0;

    pTypeInfo->GetNames(pFuncDesc->memid, bstrNames, cNames, &cGotNames);
    pTypeInfo->GetDocumentation(pFuncDesc->memid, NULL, &bstrHelpString, &dwHelpContext, NULL);

    BSTR bstrDllName = NULL, bstrEntry = NULL;
    WORD wOrdinal = 0;
    pTypeInfo->GetDllEntry(pFuncDesc->memid, m_invkind, &bstrDllName, &bstrEntry, &wOrdinal);
    m_dllname = sz_or_empty(bstrDllName);
    m_entry = sz_or_empty(bstrEntry);
    m_wOrdinal = wOrdinal;
    SysFreeString(bstrDllName);
    SysFreeString(bstrEntry);

    if (bstrNames[0])
    {
        m_name = sz_or_empty(bstrNames[0]);
    }

    if (bstrHelpString)
    {
        m_helpstring = sz_or_empty(bstrHelpString);
        SysFreeString(bstrHelpString);
    }
    m_dwHelpContext = dwHelpContext;

    m_cParams = pFuncDesc->cParams;
    m_cParamsOpt = pFuncDesc->cParamsOpt;
    for (UINT iParam = 0; iParam < (UINT)m_cParams; ++iParam)
    {
        std::wstring name;
        if (iParam + 1 < cGotNames)
            name = sz_or_empty(bstrNames[iParam + 1]);
        if (name.empty())
            name = getNewIdentifier();
        m_param_names.push_back(name);

        auto pElemDesc = &pFuncDesc->lprgelemdescParam[iParam];

        auto attrs = getStringOfParamDesc(pTypeInfo, &pElemDesc->paramdesc);
        m_param_attrs.push_back(attrs);

        auto type = getStringOfTypeDesc(pTypeInfo, &pElemDesc->tdesc);
        m_param_types.push_back(type);
    }

    if (m_cParamsOpt == 0)
    {
        ;
    }
    else if (m_cParamsOpt == -1)
    {
        m_param_names.push_back(L"");
        m_param_attrs.push_back(L"");
        m_param_types.push_back(L"...");
    }

    if (m_invkind == INVOKE_PROPERTYGET)
    {
        if (m_typedesc != L"HRESULT")
        {
            m_param_attrs.insert(m_param_attrs.end(), L"[out, retval]");
            m_param_types.insert(m_param_types.end(), m_typedesc + L"*");
            m_param_names.insert(m_param_names.end(), getNewIdentifier());
            m_typedesc = L"HRESULT";
        }
    }
    if (m_typeflags & TYPEFLAG_FOLEAUTOMATION)
    {
        if (m_typedesc == L"VOID")
        {
            m_typedesc = L"HRESULT";
        }
        else if (m_typedesc == L"VARIANT" || m_typedesc == L"BSTR")
        {
            m_param_attrs.insert(m_param_attrs.end(), L"[out, retval]");
            m_param_types.insert(m_param_types.end(), m_typedesc + L"*");
            m_param_names.insert(m_param_names.end(), getNewIdentifier());
            m_typedesc = L"HRESULT";
        }
    }

    for (auto& bstr : bstrNames)
    {
        SysFreeString(bstr);
        bstr = NULL;
    }

    ITypeInfo2 *pTypeInfo2 = NULL;
    pTypeInfo->QueryInterface(IID_ITypeInfo2, (LPVOID *)&pTypeInfo2);
    if (pTypeInfo2)
    {
        m_custom = getStringOfCustomData(NULL, pTypeInfo2, m_iFunc);
        pTypeInfo2->Release();
    }

    return S_OK;
}

参考資料：
FUNCDESC structure (oaidl.h)
ITypeLib interface (oaidl.h)
ITypeLib2 interface (oaidl.h)
ITypeInfo interface (oaidl.h)
ITypeInfo2 interface (oaidl.h)

どうか、よろしくお願いします。

Comments

[退会済みユーザー]

直接の回答ではないですが、SDK付属ツールのoleviewのソースが公開されてるので何か参考になるかもしれません。
https://github.com/microsoft/VCSamples/tree/master/VC2010Samples/MFC/ole/oleview

Answer 1

radianさん、ありがとうございます。

https://github.com/microsoft/VCSamples/blob/master/VC2010Samples/MFC/ole/oleview/iviewers/tlbodl.cpp#L1021

ITypeInfo::GetRefTypeInfoで取得した情報に対してITypeInfo::GetDocumentationとMEMBERID_NILを使うことでインターフェイスのベースインターフェイスが取得できるようです。

これで解決できそうです。ありがとうございました。

【追記】
サンプルを試してみましたが、やはりベースインターフェイスが取得できません。
代わりに次のような出力が得られました：

mincore\com\oleaut32\typelib\tlibapi.cpp(2279)\OLEAUT32.dll!75CC4B84: (caller: 75CC491B) ReturnHr(1) tid(1c8c) 8002801D ライブラリは登録されていません。
mincore\com\oleaut32\typelib\tlibapi.cpp(2745)\OLEAUT32.dll!75CF2C76: (caller: 002B4E35) ReturnHr(2) tid(1c8c) 8002801D ライブラリは登録されていません。

8002801Dというのは、TYPE_E_LIBNOTREGISTEREDのようです。何らかの登録処理が必要かもしれません。もしかしたらDLL化が必要かもしれません。