delphi如何从USB芯片CH372读取下位机的数据..(50)

  • 主题发起人 主题发起人 husion
  • 开始时间 开始时间
H

husion

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tmain.Timer2Timer(Sender: TObject);//定时1msvar mDemoReq:array of byte; mLength ,i: cardinal;beginif(CH375ReadData(mIndex,@mDemoReq, @mLength))then begin statusbar1.Panels[2].Text:=inttostr(strtoint(statusbar1.Panels[2].Text)+1); end;end;0,单片机发送数据到上位机后,我用单步执行到if(CH375ReadData(mIndex,@mDemoReq, @mLength))then,但,@mDemoReq里面没有值,mLength也等于0,这是为什么?1,上面是我用来测试的代码,但当我连通上位机跟下位机时,不管下位机有没有向上位机发送数据, statusbar1.Panels[2].Text隔5秒就自动加1,这是为什么?2,我最终要实现的目标是上位机发送询问数据给下位机时,下位机上传数据给上位机.4,我看了一下资料,上位机发送数据可以用上面的CH375ReadData(),也可以用上位机中断(不在怎么写),请问我要实现上面2的目标,用哪种方法好呢?5,最终上位机是通过怎样读取下位机的数据的呢?不能通过CH375ReadData(mIndex,@mDemoReq, @mLength)中的mDemoReq:array of byte吗?请各位大虾帮忙~~
 
动态库里没有 接收数据的函数吗?厂家没有给个Demo吗?要呀。要了就给。不要,厂家还以为你都会呢。
 
555,难道我的帖子沉底了:)
 
针对 1: 读取到数据你看一下,如果不是你要的数据就不要关心了。有的硬件会自动给电脑发数据的。或者是动态库有瑕疵。只要不影响使用就好。针对 2,3:一个问题。就是写命令的过程。没有用过这款设备的话,不能确定那一个好, 你可以咨询厂家。或自己测试后,根据需求方便使用或结合使用。//建议改为procedure Tmain.Timer2Timer(Sender: TObject);//定时1msvar mDemoReq:array of byte; mLength ,i: cardinal;beginTimer2.Enabled := false;if(CH375ReadData(mIndex,@mDemoReq, @mLength))then begin statusbar1.Panels[2].Text:=inttostr(strtoint(statusbar1.Panels[2].Text)+1); end;Timer2.Enabled := true;end;
 
to 草原骏马:以下我对mLength赋值,但单步执行到CH375ReadData(mIndex,@mDemoReq, @mLength)是报错,错误为:"class eaccessviolation with message 'access vioaltion at address 004051A4 in module,Write of address 030200F8"procedure Tmain.Button1Click(Sender: TObject);var mBufWrite,mDemoReq:array of byte; mBufwriteLen,mLength:longword;begin mLength:=64; if(CH375ReadData(mIndex,@mDemoReq, @mLength))then begin statusbar1.Panels[2].Text:=inttostr(strtoint(statusbar1.Panels[2].Text)+1); end;麻烦你再看看~,mDemoReq里面的值都是0,可下位机已经向上位机发送数据了
 
这就不好估计了。会不会是你没有对硬件进行初始化造成的?也许你mIndex需要参数才可正常工作的?我没有见到你的产品和开发文档不好估计呀。另外如果 CH375ReadData 的声明格式不是厂家提供的,最好能把厂家的提供的C风格的声明发一下,看看是不是你的函数声明有问题。
 
那么复杂啊?--------------------到这里看看 www.gimido.com
 
to 草原骏马:谢谢回复,上面的错误我解决了...结贴了,谢谢回得者:)
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
875
DelphiTeacher的专栏
D
后退
顶部