前端之家收集整理的这篇文章主要介绍了
传递VB数组给DLL中的函数，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
用C++builder6编写一个标准的DLL给VB6
调用，需要从DLL取出字节数组，在VB中接收。
Private Declare Function OpenComm Lib "ScaleWeight" Alias "Open" (ByVal yibiaoType As String,ByVal Comm As String,ByVal Setup As String) As Boolean '打开串口
Private Declare Function GetWeight Lib "ScaleWeight" () As String '获取重量
Private Declare Sub CloseComm Lib "ScaleWeight" Alias "Close" () '关闭串口
'辅助函数
Private Declare Function GetStatus Lib "ScaleWeight" () As Boolean '串口通信状态:true通信正常,false通信中断
Private Declare Function GetCount Lib "ScaleWeight" () As Integer '获取串口缓冲区数据数量
Private Declare Function GetSourceData Lib "ScaleWeight" (ByRef buff As Byte) As Integer '获取原始数据
Private Declare Function Clear Lib "ScaleWeight" () As Integer '清空缓冲区数据
Private Sub Command2_Click()
Dim re As Boolean
re = OpenComm(Combo1.Text,Text1.Text,Text2.Text)
If re Then
Label11.Caption = "串口打开成功"
Else
Label11.Caption = "串口打开失败，请检查串口是否存在"
End If
End Sub
Private Sub Command3_Click()
CloseComm
Label11.Caption = "串口关闭"
End Sub
Private Sub Timer1_Timer()
'读重量
Label4.Caption = GetWeight()
'读原始数据
Text3.Text = ""
Dim buff(1000) As Byte
Dim nCount As Integer
'传递数组作为参数
nCount = GetSourceData(buff(0))
If nCount > 0 Then
For i = 0 To nCount
Text3.Text = Text3.Text + " " + Str(buff(i))
Next i
End If
'缓冲区数据数量
Label9.Caption = GetCount()
'通信状态
Dim a As Boolean
a = GetStatus()
If a = False Then
Label10.Caption = "通信数据中断"
Else
Label10.Caption = "通信正常"
End If
End Sub
