vb.netdll数组,vb中数组
VB.net调用Matlab生成的DLL问题
已测试，源码如下：
成都地区优秀IDC服务器托管提供商(成都创新互联公司).为客户提供专业的服务器托管,四川各地服务器托管,服务器托管、多线服务器托管.托管咨询专线：028-86922220
一、Matlab函数代码
function x = LU5(a, b)
for i = 1 : length(a)
x(i) = a(i) + b(i);
end
二、VB.NET 2005 测试代码
Private Sub test()
Dim st As New QCS_com.QCS_LU5
Dim a() As Double = {1, 2, 3, 4}
Dim b() As Double = {1, 2, 3, 4}
Dim x As New Object
st.lu5(1, x, a, b)
Dim r As Double(,)
r = CType(x, Double(,))
End Sub
三、测试截图见附图
补充一下环境：Matlab6.5 版本，是基于COM调用的。最新版的.net调用没试验过。这个是我前一阵子帮同学写的，他装的版本是6.5，所以就装了个6.5的版本，后来因为涉及到小波及拟合，用COM打包调用有些问题，最后还是采用了引擎方式进行处理了。
VB调用dll函数，需要传递 数组的地址（数组中存放的是IP地址）
先说说VC++的编程。首先在VC++中生成Win32 DLL工程。在这个工程中添加几个函数供VB用户调用。一个DLL中的函数要想被VB调用，必须满足两个条件：一是调用方式为stdcall，另一个是必须是export的。要做到第一条，只须在函数声明前加上__stdcall关键字。如:
short __stdcall sample(short nLen, short *buffer)
要做到第二条，需要在*.def文件中加上如下的几行：
EXPORTS
sample @1
这里的sample是你要在VB中调用的函数名，@1表示该函数在DLL中的编号，每个函数都不一样。注意这里的函数名是区分大小写的。至于你说的需要传递大量数据，可以这样做，在VB中用一个数组存放数据，然后将该数组的大小和地址传给VC(至于如何在VB中编程我会在下面介绍)。就象上面的例子，nLen是数组大小，buffer是数组地址，有了这两条，你可以象使用VC的数组一样进行处理了。至于输出图形，可以生成WMF或BMP格式，让VB调用。不过，我认为也可以直接输出到视窗，只要VB将窗口的句柄hWnd和hDC以及视窗的绘图位置(VB和VC采用的坐标系必须一致才行)传给VC就行了。而VB的AutoRedraw属性必须为False，在Paint事件中调用VC的绘图程序。
再谈谈VB的编程。VB调用DLL的方法和调用Windows API的方法是一样的，一般在VB的书中有介绍。对于上面一个例子，先要声明VC函数：
Declare Function sample Lib "mydll.dll" (ByVal nLen As Integer, buffer As Integer) As Integer
这里mydll.dll是你的dll的名字。你可能已经注意到了两个参数的声明有所不同，第一个参数加上了ByVal。规则是这样的：如果在VC中某个参数声明为指针和数组，就不加ByVal，否则都要加上ByVal。在VB中调用这个函数采用这样的语法：
sample 10, a(0)
这里的a()数组是用来存放数据的，10为数组长度，这里的第二个参数不能是a()，而必须是要传递的数据中的第一个。这是VB编程的关键。
下面在说几个可能遇到的问题。一个问题是VB可能报告找不到dll，你可以把dll放到system目录下，并确保VB的Declare语句正确。另一个问题是VB报告找不到需要的函数，这通常是因为在VC中*.def文件没设置。第三种情况是VB告诉不能进行转换，这可能是在VC中没有加上__stdcall关键字，也可能是VB和VC的参数类型不一致，注意在VC中int是4个字节(相当于VB的Long)，而VB的Integer只有2个字节。必须保证VB和VC的参数个数相同，所占字节数也一致。最后一个要注意的问题是VC中绝对不能出现数组越界的情况，否则会导致VB程序崩溃。
总的来说，你和你的伙伴需要一些时间来进行协调和摸索，但这种方法绝对可行，也不难掌握。
VB.net 中调用C++的DLL，参数中含有数组
改次句即可 Dim bLen As Byte = bArrData.Length
为： Dim bLen As long = bArrData.Length
或 Dim bLen As integer = bArrData.Length
要么bArrData(17)里元素不是17。超过了255个。
当然要想错改重要数据是要权献的。
网站标题：vb.netdll数组,vb中数组
本文URL：http://azwzsj.com/article/dsedjoj.html
