上电直接后进行CH375GetConfigDescr和CH375GetDeviceDescr操作,提示TRUE,但显示缓冲区读出的数据都是0,是真确的吗?
这两个函数是要在打开设备之后才能调用的,第三个参数要初始化为想要读取的数据长度
zyw,你好!我的QQ976611533,能否加一下请教您!谢谢
不好意思,由于公司的规定,我们不太好用qq或msn,有什么技术问题您可以拨打技术支持电话:025-52638376
上电进行了设备开启并正常,后进行CH375GetConfigDescr和CH375GetDeviceDescr操作,也提示TRUE,但显示缓冲区读出的数据都是0,是真确的吗?我想知道正确的设备描述符和配置描述符的内容。
在调用CH375GetConfigDescr之前要调用CH375OpenDevice函数
zyw,您好! 这一段程序如下,麻烦帮我看一下,就是运行后显示全0? Dim mBuffer As mBuf If (Not IsOpen) Then IsOpen = mOpenDevice() If (Not IsOpen) Then Text1.Text = Text1.Text & "设备打开失败,请检查设备和链接库。" & Chr(13) & Chr(10) Exit Sub End If Else Text1.Text = Text1.Text & "CH375OpenDevice:硬件开启成功……" & Chr(13) & Chr(10) End If Dim mReadBuf As mBuf If (CH375GetDeviceDescr(0, mReadBuf, mLength)) Then 'If (CH375GetConfigDescr(0, mReadBuf, mLength)) Then 'MsgBox "ok" Else Exit Sub 'MsgBox "error" End If
Dim i As Integer For i = 0 To 63 Step 1 Text1.Text = Text1.Text & mReadBuf.mBuff(i) Next i
…………………………
Private Function mOpenDevice() As Boolean
On Error Resume Next If (CH375OpenDevice(0) = -1) Then '打开设备 LED1.Status = False LED1.Caption = "未连接" 'Command2.Enabled = False Connect_Ok = False 'Text1.Text = Text1.Text & "设备打开失败,请检查设备和链接库。" & Chr(13) & Chr(10) IsOpen = False mOpenDevice = False Else IsOpen = True LED1.Status = True LED1.Caption = "已连接" Command2.Enabled = True Command5.Enabled = True 'Text1.Text = Text1.Text & "CH375OpenDevice:硬件开启成功……" & Chr(13) & Chr(10) mOpenDevice = True End If End Function
"If (CH375GetDeviceDescr(0, mReadBuf, mLength)) Then"==>mLength有没有初始化,不能初始化为零.
没明白,mlength需要怎么初始化?
CH375GetDeviceDescr的第三个参数要设置为想要读取的数据长度 mLength要设置成你想要得到数据的长度,如果不设置的话,系统可能初始化为零,这样你想要获取的数据长度就为零,返回的数据长度也就是零了.
试了下,有数据,谢了!