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

Question

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

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

为了完整起见,我会告诉您发生此错误的位置,然后我将向您展示我在修改时遇到问题的oleview/TypeLib视图的相关部分.(为了您的信息,upnp.dll包含在windows\system32中,而oleview.exe随Windows SDK Toolkit一起提供,如果您的计算机上还没有它).

我正在调用.InvokeAction sActionName, aryIns, aryOutsaryIns和aryOuts是这样声明的变量的函数:Dim aryIns As Variant, aryIns As Variant- 基本上,我通常声明它,在aryIns中放入我需要的任何输入数据,我将获得带有InvokeAction调用结果的aryOuts.好处是,InvokeAction将我的常规Variant转换为一个正确尺寸的数组,反映了我正在使用的ActionName返回的输出项的数量.

重点我得到错误,我在"WAN连接设备"下的"WanIPConnection"上使用(对于sActionName)"GetStatusInfo".我不需要为aryIns定义任何项目,因为此调用不需要或不需要任何输入参数,但它提供(返回)3个项目(结果)并将它们放在aryOuts中.所以aryOuts最终成为一个数组,其中包含索引0到2的项目(总共3项)...当我循环遍历这个aryOuts数组时,项目0和1被打印出来并完美地查看(没有问题)但是在3日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上面定义的数组的第3个元素(索引项目编号2),如何修改TypeLib来解决这个问题？

作为参考,以及那些感兴趣的人,Hans Passant(@HansPassant)通过让我从oleview.exe暴露的upnp.dll TypeLib中删除Text的Unsigned部分来帮助我解决类似的场景 - 他帮我做了这个(以及在以下帖子中生成和编译新TypeLib(upnp.tbl)所需的其余步骤: 标记为受限制的函数或接口,或者该函数使用Visual Basic中不支持的自动化类型

Answer 1

尽量分配aryOuts(2)到一个Long变量(lStatusBits = aryOuts(2)).VT_UI4在VB6中访问变体应该没有问题,除非它阻塞For Each vElem ...循环(vElem作为变体)或变体赋值的变体.您无法在类型库中执行任何操作来解决此问题.如果没有其他工作,您可以使用Call CopyMemory(aryOuts(2), VT_I4, 2)where VT_I4= 3 等手动更改变体类型

COM变体是一种数据结构,它以一个名为vartype的int16成员开始,该成员定义存储在变量中的数据类型(aryOuts(2)在您的情况下).

VarType VT_UI4用于unsigned int32值.VB6 Long被转换为带符号的VT_I4 = 3变体.

VarType VT_UI2用于无符号的int16值.VB6 Integer被转换为带符号的VT_I2 = 2变体.

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