VB、VC 混合编程(dll)中数组的传入传出.doc

VB、VC 混合编程(dll)中数组的传入传出2008年10月23日 星期四 21:39以前用到的神经网络都是在matlab中调的，而项目需要，要写个神经网络的算法，系统主界面是VB写的，在VB中做网络训练速度是不照的，用VB，VC的混合编程，但是一直被VB与Dll之间的数组传递这个难题所困扰，在网上搜了也找不到答案，据说safearray可以解决，但是看了下比较麻烦，在CSDN社区中也没有找到答案，但是社区中一个朋友的指点，给我找到解决问题的方法了。下面总结下共享。 数值型数组在VB中其数据是连续存放的，相当于一维的，而在C/C+中数组可以等价于指向数组第1个元素的指针。可以用引用的方式把VB中数组的第1个元素的地址传给VC编写的DLL，在DLL中用一个指针来接收，这样就实现了VB到Dll在中数组的传递。从DLL传递数组给VB方法相同，过程相反. 如果是二维数组，则把二维数组按照一维数组的方式传入传出，只是在使用的时候，顺便把二维数组的行和列数传递即可。 总体思想是这样的。下面看例子。 VC中：double _stdcall OneDimensionArrayTest(double *inArr,int nCount,double *outArr,int* ioutArrCount) /一维数组的传入传出 int iNum=nCount; double *dRes=new doubleiNum; int i; for(i=0;inCount;i+) dResi=inArri*2; for(i=0;inCount;i+) outArri=dResi; *ioutArrCount=iNum; return dRes0; delete dRes;void _stdcall TwoDimensionArrayTest(double *inArr,int nRows,int nCols,double *outArr,int* outRows,int *outCols)/二维数组的传入传出 double *dRes=new doublenRows*nCols; int i; int j; for(i=0;inRows;i+) for(j=0;jnCols;j+) dResnCols*i+j=inArrnCols*i+j*2; for(i=0;inRows;i+) for(j=0;jnCols;j+) outArrnCols*i+j=inArrnCols*i+j*2; *outRows=nRows; *outCols=nCols; delete dRes;LIBRARY TestDllEXPORTS ; 此处可以是显式导出 Add 1 darray 2 OneDimensionArrayTest 3TwoDimensionArrayTest 4VB中Declare Function OneDimensionArrayTest Lib D:在编程序DllVBLoadDllTestDll.dll (ByRef inputer As Double, ByVal inLength As Long, ByRef output As Double, ByRef outLength As Long) As DoubleDeclare Function TwoDimensionArrayTest Lib D:在编程序DllVBLoadDllTestDll.dll (ByRef inputer As Double, ByVal inRows As Long, ByVal inCols As Long, ByRef outputer As Double, ByRef outRows As Long, ByRef outCols As Long) Private Sub cmdTest2_Click()Dim inputer(8) As DoubleDim out(9) As DoubleDim res As DoubleDim m As Longinputer(0) = 1.2inputer(1) = 2.3inputer(2) = 1res = OneDimensionArrayTest(inputer(0), 9, out(0), m)MsgBox CStr(m), vbOKOnly, 一维数组的元素个数MsgBox CStr(res)Dim str As StringDim i As IntegerFor i = 0 To UBound(out) str = str + + CStr(out(i)NextMsgBox str, vbOKOnly, 一维数组的元素End SubPrivate Sub cmdTest3_Click()Dim iRows As IntegerDim iCols As IntegeriRows = 3iCols = 4Dim inputer() As DoubleReDim inputer(iRows, iCols)Dim outputer() As DoubleReDim outputer(iRows, iCols)Dim oRows As LongDim oCols As LongDim i, j As IntegerFor i = 0 To UBound(inputer, 1) For j = 0 To UBound(inputer, 2) inputer(i, j) = (i + 1) * (j + 1) NextNextDim str As StringFor i = 0 To UBound(inputer, 1) For j = 0 To UBound(inputer, 2) str = str + + CStr(inputer(i, j) Next str = str + vbCrLfNextMsgBox str, vbOKOnly, inputer，二维数组的输入Call TwoDimensionArrayTest(inputer(0, 0), iRows + 1, iCols + 1, outputer(0, 0), oRows, oCols)str = For i = 0 To UBound(outputer, 1) For j = 0 To UBo