如何从 ITypeLib 指针获取 TypeLibInfo？

Question

我想使用 tlbinf32.dll 来读取 COM 对象的类型信息。目前我可以访问指向 ITypeLib 接口的指针。我可以使用 VTable 偏移量和 DispCallFunc 手动调用方法和导航，但是我希望使用该库的强大内置功能。

我在想，既然TLI.ClassInfoFromObject(Object As IUnknown) 可用于查询 IDispatch::GetTypeInfo 方法，我可以手动构造一个仅实现此方法的虚拟对象，以允许将 TypeInfo 读入内存。类似于manually defining IEnumVariant，其中大多数方法只返回E_NOTIMPL = &H80004001。这听起来可行吗？有没有更简单的方法可以使用 VBA 从指针访问 TypeInfo？

---

更新

需要明确的是，我的问题是我找不到声明 ITypeInfo 接口并允许我直接使用它的方法 - VBA 访问 IUnknownfrom stole2.tlb 所以我可以很好地使用它，但唯一的我可以在 mscorlib.dll 中找到声明的 ITypeInfo，但它是 doesn't have the COMVisible attribute，因此无法在 VBA、AFAIK 和 VBA 中访问它，并且 VBA 没有与 [ComImport] 等效的让您自己使用 GUID 定义它.所以我想使用 tlbinf32.dll 来避免我不得不使用原始指针。

Answer 1

原来 tlbinf32.dll 支持这个开箱即用但它是隐藏的。从帮助文件中：

ITypeLib As IUnknown
TypeLibInfoFromITypeLib(ByVal ptlib As IUnknown) As TypeLibInfo

在每个 TypeLibInfo 内部都是对 ITypeLib 实例的引用。在 事实上，TypeLibInfo 对象可以看作是对 比 ITypeLib 更容易编程的 ITypeLib 接口 本身。查看两个 TypeLibInfo 对象是否实际上引用相同的 内部对象，使用 VB 的 Is 运算符和 ITypeLib 属性 两个对象。 Is 运算符通常会返回 False TypeLibInfo 对象实际上对应于相同的底层 类型，但不适用于内部 ITypeLib 指针。 ITypeLib 属性是可设置的，因此您可以将 TypeLibInfo 对象放在 现有的 ITypeLib。

如果你有一个 ITypeLib 引用并且想要使用 TLI 对象，那么 你可以调用 TLI.TypeLibInfoFromITypeLib 来生成一个完整的 功能 TypeLibInfo 对象。

ITypeLib 属性和 TypeLibInfoFromITypeLib 方法是 被视为高级功能并被标记为隐藏。

_{强调我自己的}

... ITypeInfo 指针的类似故事

那么如何使用呢？非常简单。首先是从指针中获取 IUnknown 的方法。例如：

Public Function ObjectFromObjPtr(ByVal Address As LongPtr) As IUnknown
    Dim result As IUnknown
    MemLongPtr(VarPtr(result)) = Address
    Set ObjectFromObjPtr = result
    MemLongPtr(VarPtr(result)) = 0
End Function

Private Property Let MemLongPtr(ByVal dest as LongPtr, ByVal value As LongPtr)
    CopyMemory ByVal dest, value, LenB(value)
End Property

接电话

Dim ITypeLibPtr As LongPtr
ITypeLibPtr = ... 'get the raw pointer

Dim ITypeLibObj As IUnknown
Set ITypeLibObj = ObjectFromObjPtr(ITypeLibPtr)

Dim NiceTypeLib As tli.TypeLibInfo
Set NiceTypeLib = tli.TypeLibInfoFrom(ITypeLibITypeLibObj)

或类似的词