Interop, Late Binding and Array of longs

[Sam]

Hello All,

I have this VB 6 code :

'************************************************* *****************
' Purpose :
' Initialize an array with available metric for the selected
component
'
' Parameters :
' lArray : array to fill
'
'************************************************* *****************
Public Sub AvailableMetrics(lArray() As Long)
Dim i As Integer
' uUnitArray exists
ReDim lArray(0 To UBound(uUnitArray))

For i = 0 To UBound(uUnitArray)
lArray(i) = uUnitArray(i).MetricId
Next i

End Sub

I'd want to perform an IDispatch call (late binding) to pass by
reference an array, but i get a Type mismatch exception with the
following C# code :

public static object CallMethodArray(object instance, string
methodName, object[] parameters)
{
try
{
ParameterModifier[] mods = new ParameterModifier[1] {
new ParameterModifier(1) };
mods[0][0] = true;
return instance.GetType().InvokeMember(methodName,
memberAccess | BindingFlags.InvokeMethod, null, instance,
parameters,mods,null,null);
}
catch (TargetInvocationException e)
{
if (e.InnerException != null)
log.Debug("Call Invocation failed :" +
e.InnerException.Message);
throw e;
}
}

Any idea?

thanx

Sami

[chanmm]

Do you mean you call AvailableMetrics from C#? I did not see you are
calling AvailableMetrics.

chanmm


"Sam" <sa********@gmail.com> wrote in message
news:11**********************@38g2000cwa.googlegro ups.com...

Hello All,

I have this VB 6 code :

'************************************************* *****************
' Purpose :
' Initialize an array with available metric for the selected
component
'
' Parameters :
' lArray : array to fill
'
'************************************************* *****************
Public Sub AvailableMetrics(lArray() As Long)
Dim i As Integer
' uUnitArray exists
ReDim lArray(0 To UBound(uUnitArray))

For i = 0 To UBound(uUnitArray)
lArray(i) = uUnitArray(i).MetricId
Next i

End Sub

I'd want to perform an IDispatch call (late binding) to pass by
reference an array, but i get a Type mismatch exception with the
following C# code :

public static object CallMethodArray(object instance, string
methodName, object[] parameters)
{
try
{
ParameterModifier[] mods = new ParameterModifier[1] {
new ParameterModifier(1) };
mods[0][0] = true;
return instance.GetType().InvokeMember(methodName,
memberAccess | BindingFlags.InvokeMethod, null, instance,
parameters,mods,null,null);
}
catch (TargetInvocationException e)
{
if (e.InnerException != null)
log.Debug("Call Invocation failed :" +
e.InnerException.Message);
throw e;
}
}

Any idea?

thanx

Sami

[Sam]

Yes Sorry, CallMethodArray is just a Helper method.

Here is the whole thing :

long[] tabMetrics=new long[11]; // Or whatever size
InteropUtil.CallMethodArray(targetComObject,
"AvailableMetrics", new object[] { new long[] { 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0 } });

CallMethodArray throw an exception : Exception from HRESULT: 0x80020005
(DISP_E_TYPEMISMATCH) ...

Sam

[Willy Denoyette [MVP]]

A long in C# is a 64 bit integer, a long in VB is 32 bit!!

Willy.

"Sam" <sa********@gmail.com> wrote in message
news:11**********************@j73g2000cwa.googlegr oups.com...
| Yes Sorry, CallMethodArray is just a Helper method.
|
| Here is the whole thing :
|
| long[] tabMetrics=new long[11]; // Or whatever size
| InteropUtil.CallMethodArray(targetComObject,
| "AvailableMetrics", new object[] { new long[] { 0, 0, 0, 0, 0, 0, 0, 0,
| 0, 0, 0 } });
|
| CallMethodArray throw an exception : Exception from HRESULT: 0x80020005
| (DISP_E_TYPEMISMATCH) ...
|
| Sam
|

[Sam]

Yes you are rigth, but i have also tested Int32 (signed and unsigned)
C# type with no more success (i have the same exception)
How would you pass by reference an array (by ref) between C# and VB6
thru COM ?
thanx in advance
Sam

[Sam]

Sam a écrit :

Yes you are rigth, but i have also tested Int32 (signed and unsigned)
C# type with no more success (i have the same exception)
How would you pass by reference an array (by ref) between C# and VB6
thru COM ?
thanx in advance
Sam

Maybe I should post this thread in Interop newsgroup....