传递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

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------------------...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTime 竟然结果和...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的解决方案直接...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,看来我以前没...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, t...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integ...