Question

基本上，当我尝试使用VB6调用upnp.dll中的函数时，我收到此错误，其中upnp.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, 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））我得到了上述异常。

基本上，前两个参数只是简单的字符串（访问这些没有问题），但第三个参数由UPnP人员定义为Unsigned 4 Byte Integer（这就是问题所在的位置），VB6无法解释这个数据类型并且不允许我访问这个数组项（aryOuts（2）），我无法弄清楚我需要修改的TypeLib的哪个部分，因为InvokeAction aryOuts的定义只是声明为VARIANT * TypeLib，这里是您视图的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公开的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是变体）或变体赋值的变体上窒息。您无法在类型库中执行任何操作来解决此问题。如果没有其他功能，您可以手动更改变体类型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 Long被转换为签名的VT_I4 = 3变体。

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

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

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

1 个答案: