博客首页 注册 建议与交流 排行榜 加入友情链接
推荐 投诉 搜索: 帮助

不想忘却

为了少做无用功,记录下来比较明智
  embedanddelphi.cublog.cn

关于作者
网络游民一个
电子科大在读研究生

|| << >> ||
我的分类


在DELPHI中调用USB驱动
关于在DELPHI 里如何调用USB设备,其实很简单:步骤如下:
以AVR309为例:
1,创建设备句柄: 
 

DrvHnd:=CreateFile(PChar(Drvfile),GENERIC_WRITE or GENERIC_READ, FILE_SHARE_WRITE or FILE_SHARE_READ, nil,OPEN_EXISTING,0,0);

Drvfile:为USB设备驱动建立的句柄名称(比如AVR309是:Drvfile:PChar='\\.\AVR309usb_0');
2, 控制设备:

Result:=DeviceIoControl(DrvHnd,$800+8,@ibuf,5,@obuf,512,cardinal(OutLength),nil);


DeviceIoControl 是向设备发送或接收数据。
$800+8:是IOCTL代码,有驱动程序中指定。
ibuf:是电脑向设备输入的缓冲区。
比如ibuf={0x11,0x36,0,0,0}
0x11:为NoDoRS232Send
0x36,0,0,0 是NoDoRS232Send 可以调用的参数:InputBufferBegin+4到InputBufferBegin+7
如果函数执行成功,则0X36会从串口发送出去。
obuf:是设备输出到电脑的缓冲区。
3,关闭句柄。

 原文地址 http://www.ouravr.com/bbs/bbs_content.jsp?bbs_sn=572272&bbs_page_no=1&bbs_id=1036
 TAG DELPHI USB 上位机
发表于: 2008-04-13,修改于: 2008-04-15 01:30,已浏览438次,有评论1条 推荐 投诉


网友评论
网友: HeroCong 时间:2008-09-10 21:44:11 IP地址:124.131.220.★
我能知道你的qq或者邮箱吗?我是在校大学生。

 发表评论