Run-time Error 458, Variable uses an Automation Type not supported in Visual Basic

Question

Basically, I'm getting this error when I try to call a function inside the upnp.dll using VB6, where upnp.dll is returning a datatype that is not supported by VB6. Previously, this same error occured but on a different function/variable, and the resolution was to open up upnp.dll in oleview.exe (to view Type Library Information) and to replace all occurences of "Unsigned Long" with just "Long" and then compile a new TypeLib with the "Unsigned" keywords removed, this solved the problem for that senario.

Now, I need to solve the same problem but for a different function/variable, but the problem is, I have no idea which variable datatype I need to change or remove when I'm in oleview's TypeLib view of upnp.dll.

For completeness, I'll let you know where this error is occuring, and then I will show you the relevant part of the oleview/TypeLib view that I am having trouble modifying. (for your information, upnp.dll is contained in windows\system32 and oleview.exe comes with the Windows SDK Toolkit if you do not already have it on your machine).

I am calling the function .InvokeAction sActionName, aryIns, aryOuts where aryIns and aryOuts are Variants declared like this: Dim aryIns As Variant, aryIns As Variant - basically, I declare it generally, put any input data I need inside aryIns and I will get aryOuts with the results of the InvokeAction call. The good thing is, InvokeAction turns my general Variant into a properly dimensioned array reflecting the number of output items that are returned for the ActionName I'm using.

Re the point I'm getting the error, I am using (for sActionName) "GetStatusInfo" on a "WanIPConnection" under the "WAN Connection Device". I don't need to define any items for aryIns since this call doesn't require or need any input arguments, but it provided (returns) 3 items (results) and puts them in aryOuts. So aryOuts ends up as an array with items from index 0 to 2 (3 items total)... and when I loop through this aryOuts array, the items 0 and 1 are printed out and viewed perfectly (without problems) but on the 3rd item (aryOuts(2)) I get the above exception.

Basically, the first 2 arguments are just simple strings (no problem accessing these) but the 3rd argument is defined by the UPnP people as an Unsigned 4 Byte Integer (and this is where the problem lays), VB6 is unable to interpret this datatype and is not letting me access this array item (aryOuts(2)), and I could not figure out what part of the TypeLib I need to modify, since the definition for InvokeAction aryOuts is just stated as a VARIANT* in the TypeLib, and here is the relevant part of the TypeLib for your view (I've included the area I understand to be relevant, if you would like additional areas posted, let me know and I can do this):

[
  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);
};

The aryOuts() array I was talking about before is defined by the [in, out] VARIANT* pvOutActionArgs line in the InvokeAction declaration (in the TypeLib above). Basically, the whole array is defined as a VARIANT* (which is fine) but I am having trouble accessing the 3rd element (index item number 2) of the pvOutActionArgs array defined above, how do I modify the TypeLib around this problem?

For reference, and those of you that are interested, Hans Passant (@HansPassant) helped me in solving the similar scenario by asking me to remove the Unsigned section of Text from the upnp.dll TypeLib exposed by oleview.exe - he helped me do this (and the rest of the steps necessary to produce and compile the new TypeLib (upnp.tbl) in the following post: Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic

Let me get this straight: 1) you're trying to call a function in "upnp.dll", 2) you're trying to do this from VB6, and 3) you're getting a "Run-time Error 458" returned to you when you try to run your VB6 program in the VB6 debugger. Correct? Q: Can you post the VB code that's generating the error? Q: is this the standard "upnp.dll" system .dll that comes with Windows? Q: Which version of Windows are you running? — paulsm4
This is the standard upnp.dll that comes with Windows (I am using Win7), all the other UPnP functions work perfectly, there is no major compatibility issues between upnp.dll and VB6, in a previous scenario, I've modified the TypeLib so that VB6 understands the types returned by upnp.dll, this is just another case of needing modification, but I'm unsure how to make this modification when the array items aren't explicitely declared (and the entire array is just declared as VARIANT*), I'm asking if anyone knows how I need to modify the array declaration in the TypeLib to make it VB6 compatible. — Erx_VB.NExT.Coder
By VB6 compatible, I mean, if anyone knows how to modify the array declaration (pvOutActionArgs) so that when a particular item in this array is an unsigned 4 byte integer (or anything unsigned, since VB6 doesnt support unsigned anything) it is made readable/accessible by VB6. Currently, its throwing the 458 error. I just need to modify the [in, out] VARIANT* pvOutActionArgs line to state that pvOutActionArgs should be turned into an array (while ensuring all items in the array are of String datatype), that (i think) would work, as VB6 can read an array with items that are of String datatype. — Erx_VB.NExT.Coder
Try assigning aryOuts(2) to a Long variable (lStatusBits = aryOuts(2)). There should be no problem accesing a VT_UI4 variants in VB6, unless it's choking on For Each vElem ... loops (vElem being a variant) or variant to variant assignment. There is nothing you can do in your typelib to workaround this behavior. If nothing else works you can change variant type manually with something like Call CopyMemory(aryOuts(2), VT_I4, 2) where VT_I4 = 3 — wqw
@wqw You are a ledgend! Your CopyMemory idea worked! I just ran CopyMemory aryOuts(2), 3, 2 (without brackets, ran it as a subroutine, & not a function), and then right after running CopyMemory with aryOuts(2) I tried to access aryOuts(2) to print out the value, and it worked! Print aryOuts(2) worked flawlessly. Without the CopyMemory, trying to assign it to a Long alone did not work, but after running it through CopyMemory, I was able to assign it to anything & read from it without issue. Feel free to copy/pase your comment as an answer as I would love to upvote it & accept it as the answer. — Erx_VB.NExT.Coder

wqw wqw · Accepted Answer · 2012-08-31T08:52:04

Try assigning aryOuts(2) to a Long variable (lStatusBits = aryOuts(2)). There should be no problem accesing a VT_UI4 variants in VB6, unless it's choking on For Each vElem ... loops (vElem being a variant) or variant to variant assignment. There is nothing you can do in your typelib to workaround this behavior. If nothing else works you can change variant type manually with something like Call CopyMemory(aryOuts(2), VT_I4, 2) where VT_I4 = 3

COM variants are a data structure that starts with a an int16 member called vartype that defines the type of the data stored in the variable (aryOuts(2) in your case).

VarType VT_UI4 is used for unsigned int32 values. VB6 Longs are converted to a signed VT_I4 = 3 variants.

VarType VT_UI2 is used for unsigned int16 values. VB6 Integers are converted a signed VT_I2 = 2 variants.

Modifying variant type of a variable can be very dangerous unless you know what you are doing. In this case you are quite safe to convert unsigned types to their signed counterparts without leaking memory or any other side-effects.

Run-time Error 458, Variable uses an Automation Type not supported in Visual Basic

1 Answers