hDevHandle := CreateFile( PChar(strP), GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, @SecurityAttributes, OPEN_EXISTING, 0, 0);var
PreparsedData:PHIDPPreparsedData;
Success:Boolean ;
Capabilities:THIDPCaps;
INputReport: array [0..66] of CHAR;
OutputReport: array [0..66] of CHAR;
OutputReport1: array [0..66] of CHAR;
bread,bWritten:DWORD;
ii:Integer;
strv:string;
c:BYTE;
strGet:string;
iv:Integer;
begin
II:=1;
Success := HidD_GetPreparsedData(hDevHandle, PreparsedData);
if Success then
begin
FillChar(OutputReport, Length(OutputReport), 0);
FillChar(INputReport, Length(INputReport), 0);
HidP_GetCaps(PreparsedData, Capabilities);
Success := WriteFile( hDevHandle, OutputReport, 65, bWritten, 0);
if not Success then
me1.Lines.Add( '写入失败')
else
BEGIN
success:= ReadFile( hDevHandle, InputReport, 64,bWritten, 0);
bread:=GetLastError(); 写入成功后再读总返回失败 错误代码:1784
me1.Lines.Add( '写入:' + strCode);
END;
end;end;
FILE_SHARE_READ or FILE_SHARE_WRITE, @SecurityAttributes, OPEN_EXISTING, 0, 0);var
PreparsedData:PHIDPPreparsedData;
Success:Boolean ;
Capabilities:THIDPCaps;
INputReport: array [0..66] of CHAR;
OutputReport: array [0..66] of CHAR;
OutputReport1: array [0..66] of CHAR;
bread,bWritten:DWORD;
ii:Integer;
strv:string;
c:BYTE;
strGet:string;
iv:Integer;
begin
II:=1;
Success := HidD_GetPreparsedData(hDevHandle, PreparsedData);
if Success then
begin
FillChar(OutputReport, Length(OutputReport), 0);
FillChar(INputReport, Length(INputReport), 0);
HidP_GetCaps(PreparsedData, Capabilities);
Success := WriteFile( hDevHandle, OutputReport, 65, bWritten, 0);
if not Success then
me1.Lines.Add( '写入失败')
else
BEGIN
success:= ReadFile( hDevHandle, InputReport, 64,bWritten, 0);
bread:=GetLastError(); 写入成功后再读总返回失败 错误代码:1784
me1.Lines.Add( '写入:' + strCode);
END;
end;end;
解决方案 »
- Memo1.Lines.indexOf('xxx') 性能提升解决方法?
- 求EXCEL导入ORACLE数据库代码,3Q!
- 这个帖子是谁删除的!
- 如何用TREEVIEW展开时的选项与旁边的数据库感知组件同步呢
- 谁能介绍一些SocketConnection方面的电子图书、技术资料给我。谢谢!
- 同样的代码 在DELPHI7中没问题 在DELPHI XE2却乱码 请帮我看看
- 承接 兼职 Delphi 软件开发 修改 维护
- 如何把一个自定义的类对象写进一个文件
- 关于用delphi写的active form的一个简单问题
- 一个问题,在做元件时怎样建立TdateTimePicker,有人回答可还不行
- 自定义事件传的参数出现乱码
- 再次请教RzPageControl控件关闭问题
InputReport 全0
ReadFile 用65时就一直停在此处不往下执行了
能不能帮我看下代码哪有问题