2

私の 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%

3 つのエンドポイントがあり、レポートを送信すると、エンドポイント 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

OnReadの代わりにGetInputReportを使用すると、エラーが発生します: 31 。 readFile を使用すると、アプリケーションがハングアップします。なぜ、私は何をすべきですか？

4

1 に答える 1

0

問題は解決しました。アプリケーションに送信されたレポートのサイズが正しくなく、InputReportByteLengthの 65 より小さかったため、アプリケーションは何も受信しませんでした。

于 2013-10-24T03:56:15.873 に答える