Question

在我的delphi应用程序中，我使用TJvHidDevice来编写和读取USB设备的报告。

设备信息风箱

Bus Type:        USB
Device Type:     Human Interface Device
Power Drawn:     100 milliamps @ 5.0 volts
Endpoint 0:      Type=CTL  Class=03 SubClass=00 Protocol=00 MaxPacket=8
Endpoint 1 OUT:  Type=INT  Class=03 SubClass=00 Protocol=00 MaxPacket=40
Endpoint 2 IN:   Type=INT  Class=03 SubClass=00 Protocol=00 MaxPacket=40
Hardware ID:     USB\Vid_0483&Pid_5750&Rev_0200
Data Read:       572 bytes
Data Written:    384 bytes
Utilization:     100%

它有三个端点，当我向它发送报告时，它将输出端点2的报告。我的代码是

报告结构

TReport = packed record
    ReportID: byte;
    Data: array[0..64] of byte;
end;

查看设备

procedure TfrmMain.HidDevsDeviceChange(Sender: TObject);
begin
    if HidDevs.CheckOutByID(FHidDev, USB_VID, USB_PID) then
    begin
        FHidDev.NumInputBuffers := 65;
        FHidDev.NumOverlappedBuffers := 65;
        FUsbDevice.Device := FHidDev;
        FHidDev.OnData:=OnRead;
    end;
end;

OnRead Enent

procedure TfrmMain.OnRead(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])]);
    AddLog('Received: ');
    SetLogColor(clPurple);
    AddLog(Str, False);
end;

我可以通过

撰写报告

if not FDevice.SetOutputReport(FBuffer, FDevice.Caps.OutputReportByteLength) then

但是，在 SetOutputReport 之后没有任何反应。如果我使用 GetInputReport 而不是 OnRead ，则会出现错误：31，如果使用< strong> readFile ，应用程序将挂断。为什么，我该怎么办？

Answer 1

问题已经解决。就是这样，发送到Application的报告大小不正确，它小于65的 InputReportByteLength ，因此应用程序不会收到任何内容。

为什么我不能通过GetInputReport从hid usb设备获取报告

1 个答案: