[英]How to read HID Device Data by using TJvHidDevice
如何在Delphi2010中使用TJvHidDevice
讀取HID Device
數據。 我想閱讀InkTable
的Ink position
(X和Y)。 我的設備名稱是DigiMemo
,它是筆和平板電腦HID設備。 謝謝大家
我用這個通過電腦上的USB藍牙適配器讀取PS3藍光遙控器。 您可以使用它來讀取任何其他HID設備,只需要對其進行一些實驗即可檢索每個操作的代碼。
function JvHidDeviceController1Enumerate(HidDev: TJvHidDevice; const Idx: Integer): Boolean;
procedure PS3Read(HidDev: TJvHidDevice; ReportID: Byte; const Data: Pointer; Size: Word);
PS3Dev: TJvHidDevice;
PS3Box: TGroupBox;
PS3BDRemote: TCheckBox;
ps3DemoLabel: TLabel;
function JvHidDeviceController1Enumerate(HidDev: TJvHidDevice; const Idx: Integer): Boolean;
Var Dev: TJvHidDevice;
begin
if HidDev.ProductName = 'BD Remote Control' then
begin
PS3Box.Caption:= 'PS3 - Status: found';
JvHidDeviceController1.CheckOutByIndex(Dev, Idx);
Dev.NumInputBuffers := 128;
Dev.NumOverlappedBuffers := 128;
Dev.OnData := PS3Read;
PS3Dev:= Dev;
end;
Result := True;
end;
procedure test;
begin
if not PS3BDRemote.Checked then
begin
if Assigned(PS3Dev) then
begin
JvHidDeviceController1.CheckIn(PS3Dev);
PS3Dev.OnData := nil;
PS3Dev:= nil;
end;
PS3Box.Caption:= 'PS3 - Disabled';
end
else
begin
if not Assigned(PS3Dev) then JvHidDeviceController1.Enumerate
else PS3Box.Caption:= 'PS3 - Status: found';
end;
end;
procedure PS3Read(HidDev: TJvHidDevice; ReportID: Byte; const Data: Pointer; Size: Word);
var I: Integer;
Str: string;
begin
Str := Format('RD %.2x ', [ReportID]);
for I := 0 to Size - 1 do
Str := Str + Format('%.2x ', [Cardinal(PChar(Data)[I])]);
MyKillChar(Str,' ',false);
if Str = 'RD010000080BFFFFFFFFFF0103' then
begin
// enter was pressed, do stuff here (button down)
Exit;
end;
if Str = 'RD01000000FFFFFFFFFFFF0003' then
begin
// enter was pressed, do stuff here (button up)
Exit;
end;
ps3DemoLabel.Caption:= Str;
Logs.Memo1.lines.add(str);
end;
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.