visual-studio - 运行时错误 458，变量使用 Visual Basic 不支持的自动化类型

Question

基本上，当我尝试使用 VB6 调用 upnp.dll 中的函数时，我收到此错误，其中 upnp.dll 返回的是 VB6 不支持的数据类型。以前，同样的错误发生在不同的函数/变量上，解决方法是在 oleview.exe 中打开 upnp.dll(以查看类型库信息)并将所有出现的“Unsigned Long”替换为“Long”然后编译一个删除“Unsigned”关键字的新TypeLib，这解决了该senario的问题。

现在，我需要解决相同的问题，但是对于不同的函数/变量，但问题是，当我处于 oleview 的 upnp.dll 的 TypeLib View 时，我不知道需要更改或删除哪种变量数据类型。

为了完整起见，我会告诉您发生此错误的位置，然后我将向您展示我在修改时遇到问题的 oleview/TypeLib View 的相关部分。 (为了您的信息，upnp.dll 包含在 windows\system32 中，如果您的计算机上还没有 Windows SDK 工具包，则 oleview.exe 附带它)。

我正在调用函数 .InvokeAction sActionName, aryIns, aryOuts其中 aryIns 和 aryOuts 是这样声明的变体:Dim aryIns As Variant, aryIns As Variant - 基本上，我通常声明它，将我需要的任何输入数据放入 aryIns 中，我将使用 InvokeAction 调用的结果获得 aryOuts。好消息是，InvokeAction 将我的一般 Variant 转换为一个适当维度的数组，反射(reflect)为我正在使用的 ActionName 返回的输出项的数量。

关于我遇到错误的问题，我在“WAN 连接设备”下的“WanIPConnection”上使用(对于 sActionName)“GetStatusInfo”。我不需要为 aryIns 定义任何项目，因为此调用不需要或不需要任何输入参数，但它提供(返回)3 个项目(结果)并将它们放在 aryOuts 中。所以 aryOuts 最终成为一个数组，其中的项目从索引 0 到 2(总共 3 个项目)......当我遍历这个 aryOuts 数组时，项目 0 和 1 被打印出来并完美地查看(没有问题)但在第三item (aryOuts(2)) 我得到上述异常。

基本上，前两个参数只是简单的字符串(访问这些没有问题)，但第三个参数由 UPnP 人员定义为 Unsigned 4 Byte Integer (这就是问题所在)，VB6 无法解释此数据类型，并且不允许我访问此数组项(aryOuts(2))，而且我无法弄清楚我需要修改 TypeLib 的哪一部分，因为InvokeAction aryOuts 的定义只是在 TypeLib 中声明为 VARIANT*，这里是 TypeLib 的相关部分供您查看(我已经包含了我认为相关的区域，如果您想要发布其他区域，让我知道，我可以做到这一点):

[
  odl,
  uuid(A295019C-DC65-47DD-90DC-7FE918A1AB44),
  helpstring("IUPnPService Interface"),
  dual,
  nonextensible,
  oleautomation
]
interface IUPnPService : IDispatch {
    [id(0x600209c5), helpstring("method QueryStateVariable")]
    HRESULT QueryStateVariable(
                    [in] BSTR bstrVariableName, 
                    [out, retval] VARIANT* pValue);
    [id(0x600209c6), helpstring("method InvokeAction")]
    HRESULT InvokeAction(
                    [in] BSTR bstrActionName, 
                    [in] VARIANT vInActionArgs, 
                    [in, out] VARIANT* pvOutActionArgs, 
                    [out, retval] VARIANT* pvRetVal);
    [id(0x600209c7), propget, helpstring("property ServiceTypeIdentifier")]
    HRESULT ServiceTypeIdentifier([out, retval] BSTR* pVal);
    [id(0x600209c8), helpstring("method AddStateChangeCallback")]
    HRESULT AddCallback([in] IUnknown* pUnkCallback);
    [id(0x600209c9), propget, helpstring("property Id")]
    HRESULT Id([out, retval] BSTR* pbstrId);
    [id(0x600209ca), propget, helpstring("property LastTransportStatus")]
    HRESULT LastTransportStatus([out, retval] long* plValue);
};

我之前谈到的 aryOuts() 数组是由 定义的[in, out] VARIANT* pvOutActionArgs 行在 InvokeAction 声明(在上面的 TypeLib 中)。基本上，整个数组被定义为 VARIANT*(这很好)，但我无法访问 pvOutActionArgs 的第三个元素(索引项编号 2)。上面定义的数组，如何围绕这个问题修改TypeLib？

作为引用，以及你们中的那些感兴趣的人，Hans Passant (@HansPassant) 通过要求我从 oleview.exe 公开的 upnp.dll TypeLib 中删除 Text 的 Unsigned 部分，帮助我解决了类似的情况——他帮我做了这(以及在以下帖子中生成和编译新 TypeLib(upnp.tbl)所需的其余步骤:Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic

Answer 1

尝试分配 aryOuts(2)到 Long变量 ( lStatusBits = aryOuts(2) )。访问 VT_UI4 应该没有问题VB6 中的变体，除非它在 ​​For Each vElem ... 上窒息循环(vElem 是一个变体)或变体到变体分配。您无法在 typelib 中执行任何操作来解决此问题。如果没有其他效果，您可以手动更改变体类型，例如 Call CopyMemory(aryOuts(2), VT_I4, 2)哪里VT_I4 = 3

COM variants are a data structure它以一个名为 vartype 的 int16 成员开头，该成员定义了存储在变量中的数据类型(在您的情况下为 aryOuts(2))。

变量类型 VT_UI4用于无符号 int32 值。 VB6 Long s 转换为带符号的 VT_I4 = 3变种。

变量类型 VT_UI2用于无符号 int16 值。 VB6 Integer s 被转换为带符号 VT_I2 = 2变种。

除非您知道自己在做什么，否则修改变量的变体类型可能非常危险。在这种情况下，您可以非常安全地将无符号类型转换为有符号类型，而不会泄漏内存或任何其他副作用。