高手帮忙，vb.net传递数组给ocx控件(vc6)的问题？

[yuanting2006]

我用vb.net编写的应用程序中需要使用vc++编写的ocx控件。在给该控件的一个函数传递数组时总是报错。我的ocx控件的函数是这样的。
short CUSBCtrl::ReadLong(long FAR* pInData)
{ 处理pInData 数组}

调用该控件：
dim A(40) as Integer
给数组A附值，然后调用函数
USB.ReadLong(A) ‘报错
USB.ReadLong(A(0)) ’报错

求各位帮忙!
不知道vb.net内部是怎样传递数组的？怎样解决？

[晓轩]

应该传递的是引用，不是传递值把。(byref)

[晓轩]

数据类型不匹配。

[Knight94]

你引用后，在vb.net中看到ReadLong的参数说明是什么

[amandag]

up

[晓轩]

ocx的参数是long FAR类型的数组，而你传递的是integer类型的数组？！！！！！

[yuanting2006]

readlong的参数是int型的。它的参数说明是readlong(byref pInData as Integer)

[yuanting2006]

vb.net中的integer和vc6的long的数据范围是一样的。

[蒋晟]

What is your IDL?

[yuanting2006]

不太明白你的意思。

[Knight94]

Have a try!
dim A(40) as Integer;
dim pAddress as IntPtr;
pAddress = Marshal.UnsafeAddrOfPinnedArrayElement( A, 0 );
USB.ReadLong(pAddress.ToInt32())

[yuanting2006]

我试一下。

[yuanting2006]

它说
“未将对象引用设置到对象的实例”

[yuanting2006]

如果函数是这样的short CUSBCtrl::ReadLong(long FAR* pInData)
{ pInData[2]=23;
return 0;}
vb.net提示“未将对象引用设置到对象的实例”
如果函数是这样的short CUSBCtrl::ReadLong(long FAR* pInData)
{ int i ;
for (i=0;i<10;i++)
pInData[i]=23;
return 0;}
没提示。可是vb.net数组中的数据没有任何修改。