如何处理返回未记录的 IUnknown 的 COM 服务器方法

Question

我从类型库（硬件 SDK 的一部分）导入的 COM 接口的一些方法返回或接收 IUnknown 类型的值。例如，SDK 文档指定方法如下：

bool SetInput1Selection(InputSelection inputSelection)
InputSelection GetInput1Selection()

但 Delphi 像这样导入这些方法：

function SetInput1Selection(const inputSelection: IUnknown): WordBool; safecall;
function GetInput1Selection: IUnknown; safecall;

类型 InputSelection 似乎是一个简单的整数或枚举类型，但没有在任何地方指定。该文档仅提供了 14 种不同可能值及其含义的表格。

理想情况下，我想声明自己的类型：

TInputSelection = (isCustom, isStartReset, ...)

下面是类型库定义这些函数的方式：

virtual HRESULT __stdcall SetInput1Selection (/*[in]*/ IUnknown * inputSelection, /*[out,retval]*/ VARIANT_BOOL * pRetVal ) = 0;
virtual HRESULT __stdcall GetInput1Selection (/*[out,retval]*/ IUnknown * * pRetVal ) = 0;

但是我怎样才能做到这一点呢？

Answer 1

整数/枚举和接口在 TypeLibrary 中的描述不同，因此 TypeLibrary 导入器不太可能混淆它们。我的猜测是InputSelection 确实是一种封装了其他数据的接口类型，并且可能具有自己的属性/方法来访问该数据。如果该接口没有出现在 TypeLibrary 中，那么它可能是一个私有接口。

您可以尝试的一件事是在GetInput1Selection() 返回的IUnknown 上调用QueryInterface()，要求它提供IDispatch 接口。如果崩溃，那么IUnknown 不是一个有效的接口指针，这将回到可能的错误导入。但如果它没有崩溃，它很可能是一个真正的接口，尤其是如果QueryInterface() 成功。如果是，请致电IDispatch.GetTypeInfo() 以查看它是否描述了自己。如果是这样，您可以发现接口实现的所有属性和方法，包括参数。在某些环境中，如果基于IDispatch 的对象只是一个POD 值的包装器，如整数，它通常具有Value 属性，甚至还有一个特殊的DISPID 用于访问这样的属性@987654333 @（我不记得实际的DISPID 号码，我得查一下）。

更新：您是否有机会对 Nanotec 步进电机进行编程？我在网上找到了documentation，与您提到的功能相似：

GetInput1Selection
    Definition:
        InputSelection GetInput1Selection()

This function outputs the function for digital input 1.
The function corresponds to serial command ':port_in_a'.

SetInput2Selection
    Definition:
        bool SetInput2Selection(InputSelection inputSelection)

This function sets the function for digital input 2.
The value returned by the function can be used to check that the command was correctly recognized by the controller.
The function corresponds to serial command ':port_in_b'.

很遗憾，它没有描述InputSelection 的实际含义。