Reflection, InvokeMember, and the blasted ParameterModifi er

[Robert May]

We have a VB6 COM component that I don't have control over. All of the
values are returned from method calls using byref parameters. They
frequently break binary compatibility, in fact, there are three different
versions of the component, one for dev, one for test, and one for
production, all of which are broken with each re-compile, which means I
can't use early binding and COM interop. Ugh.

Using InvokeMember, how do I get values from an out parameter? I saw the
documentation about ParameterModifi er, but I'm afraid that I just don't get
it. :) A code sample would be appreciated.

Here's the code I have so far (the Response.Write value returns an empty
string as the return value, which isn't valid):

Type commonLogonType =
Type.GetTypeFro mProgID("ADESec urity.CSecurity ");

object commonLogon=
Activator.Creat eInstance(commo nLogonType);

arrayInput = new Object[] {""};
commonLogonType .InvokeMember(" GetUserRightsAs XML",BindingFla gs.InvokeMethod ,
null,commonLogo n,arrayInput,mo ds,null,null);

Response.Write( "Returned XML value=" +
Convert.ToStrin g(arrayInput[arrayInput.GetL owerBound(0)]));

Response.End();

}

Here's the VB method call (the return value is a 0 or non-zero value
indicating success or failure of the call, r_szXMLResult is the actual value
that is returned):

Public Function GetUserRightsAs XML(ByRef r_szXMLResult As Variant, _
Optional ByVal p_szXMLRootName As Variant
= "adesecurityper missions", _
Optional ByVal p_lEntityID As Variant =
0, _
Optional ByVal p_bDebugDisplay As Boolean
= False _
) As Variant

Any help would be greatly appreciated.

Robert

[Robert May]

Figured it out--here's my post from the General newgroup:

It must be something to do with COM. For example, the documentation on
invoke memeber says the following:

ParameterModifi er is only used when calling through COM interop, and only
parameters that are passed by reference are handled.

So I need to be able to send in a parameter modifier that tells COM that
this is an out parameter, but I don't know how to use the ParameterModifi er.
All it has is an integer that tells how many parameters to modify.

Ah hah! I just figured it out, and it's not terribly intuitive. The help
states in several places that you can set the parameter modifier to pdout,
pdin, pdlcid, etc . . . However, this is in reference to what the binder
does with COM code, not to the parameter modifier itself. It can only be
set to true or false, which I'm guessing simply tells the binder that it
should check to see if a variable is passed by reference. What fun.

As to the GetLowerBounds call, I'm a vb hack, and can never keep my bounds
straight . . . :). It's been changed. Here's the invoke member code that
actually works (starting with the definition of the arguments):

arrayInput = new Object[] {""};

ParameterModifi er[] mods=new ParameterModifi er[1]{new ParameterModifi er(1)};

mods[0][0] = true;

commonLogonType .InvokeMember(" GetUserRightsAs XML",BindingFla gs.InvokeMethod ,
null,commonLogo n,arrayInput,mo ds,null,null);

Thanks for your help.
Robert

"Robert May" <ra******@donts pamhotmail.com> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

We have a VB6 COM component that I don't have control over. All of the
values are returned from method calls using byref parameters. They
frequently break binary compatibility, in fact, there are three different
versions of the component, one for dev, one for test, and one for
production, all of which are broken with each re-compile, which means I
can't use early binding and COM interop. Ugh.

Using InvokeMember, how do I get values from an out parameter? I saw the
documentation about ParameterModifi er, but I'm afraid that I just don't get it. :) A code sample would be appreciated.

Here's the code I have so far (the Response.Write value returns an empty
string as the return value, which isn't valid):

Type commonLogonType =
Type.GetTypeFro mProgID("ADESec urity.CSecurity ");

object commonLogon=
Activator.Creat eInstance(commo nLogonType);

arrayInput = new Object[] {""};
commonLogonType .InvokeMember(" GetUserRightsAs XML",BindingFla gs.InvokeMethod , null,commonLogo n,arrayInput,mo ds,null,null);

Response.Write( "Returned XML value=" +
Convert.ToStrin g(arrayInput[arrayInput.GetL owerBound(0)]));

Response.End();

}

Here's the VB method call (the return value is a 0 or non-zero value
indicating success or failure of the call, r_szXMLResult is the actual value that is returned):

Public Function GetUserRightsAs XML(ByRef r_szXMLResult As Variant, _
Optional ByVal p_szXMLRootName As Variant = "adesecurityper missions", _
Optional ByVal p_lEntityID As Variant =
0, _
Optional ByVal p_bDebugDisplay As Boolean = False _
) As Variant

Any help would be greatly appreciated.

Robert