如何使用TJvHidDevice读取HID设备数据

Question

如何在Delphi2010中使用TJvHidDevice读取HID Device数据。我想阅读InkTable t的Ink position（X和Y）。我的设备名称是DigiMemo，它是笔和平板电脑HID设备。 谢谢所有

Answer 1

我用它通过pc上的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;