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

Question

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

现在，我需要解决相同的问题，但需要使用不同的函数/变量，但问题是，当我在 oleview 的 upnp.dll 的 TypeLib 视图中时，我不知道需要更改或删除哪个变量数据类型.

为了完整起见，我会告诉你这个错误发生在哪里，然后我会向你展示我在修改时遇到问题的 oleview/TypeLib 视图的相关部分。 （供您参考，upnp.dll 包含在 windows\system32 中，并且 oleview.exe 随 Windows SDK 工具包一起提供，如果您的计算机上还没有它）。

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

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

基本上，前 2 个参数只是简单的字符串（访问这些没有问题），但 UPnP 人员将第三个参数定义为 Unsigned 4 Byte Integer（这就是问题所在），VB6 无法解释这一点datatype 并且不允许我访问此数组项 (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() 数组是由 InvokeAction 声明中的 [in, out] VARIANT* pvOutActionArgs 行定义的（在上面的 TypeLib 中）。基本上，整个数组被定义为一个 VARIANT* （这很好），但我无法访问上面定义的 pvOutActionArgs 数组的第三个元素（索引项号 2），如何围绕这个问题修改 TypeLib？

作为参考，以及那些感兴趣的人，Hans Passant (@HansPassant) 帮助我解决了类似的情况，要求我从 oleview 公开的 upnp.dll TypeLib 中删除 Text 的 Unsigned 部分。 exe - 他帮助我做到了这一点（以及在以下帖子中生成和编译新 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)）。在 VB6 中访问 VT_UI4 变体应该没有问题，除非它在 ​​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)）。

VarType VT_UI4 用于无符号 int32 值。 VB6 Longs 被转换为签名的VT_I4 = 3 变体。

VarType VT_UI2 用于无符号 int16 值。 VB6 Integers 被转换为签名的VT_I2 = 2 变体。

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