网友问答：如何在VB中调用LV创建的数组相关DLL

register

看到网友贴的资料，认为挺有用，转过来共享。原文如下http://www.freescaleic.org/myspace/blog/show.php?id=163556

其实我问了这么多，是因为我做了一个vi，输出了一个数组，但是我不知道怎么在vb里面调用这个数组值。之前用的labview的ActiveX功能实现的，不过必须安装了labview才行，并且每次调用都要运行labview，非常不方便。后来想到调用dll的方式，但是目前我只会调用一个非数组值到 vb里面。
不知道这位仁兄能不能找到一个方法来实现我所描述的功能，最好能有一个例子，非常感谢！

几年不用VB了，在VB中取得数组的地址是很困难的，模拟了一下C语言的调用方法，测试结果通过了，不论哪种编程语言，对于标量数组都是连续存放的，因此我通过传入下标为0的元素的引用，它应该就是数组的首地址，C语言中就是这样使用的，下面我简单地介绍一下实现的过程。

首先通过Labview创建一个DLL，目的是输入一个数组，自加一后输出。

比较关键的是配置DLL参数的问题，LV中的数组在DLL中可以使用数组指针和数组句柄两种方式，对于VB的应用使用数组句柄非常困难，因此采用数组指针的方式，同时指定数组的长度，由于传入DLL中的数组是数组指针，这意味着数组的内存分配是在外部进行的，而不是在DLL函数内部动态分配的。


数组参数一定要选择数组指针方式，采用API标准调用规范。

首先在LV中试验一下，DLL函数是否工作正常。

由此表明DLL函数工作正常。
下面看一下如何在VB6中调用的动态链接库函数。
Private Declare Function Dll Lib "f:\test\sharedlib.dll" (arg1 As Any, arg2 As Any, ByVal len1 As Long, ByVal len2 As Long) As Long



Dim array1(7) As Double
Dim array5(7) As Double
Private Sub Command1_Click()

For i = 0 To 7
array1(i) = i + 10
Next i

temp = Dll(array1(0), array5(0), 8, 8)
End Sub

单步跟踪监视变量结果如下：

运行结果符合设计要求。
由于很久没有使用VB了，并不能确认这是最好方法。

baby

感谢分享。感谢原创作者。

fjczd

支持一下热心行为