libusbhid_test.pp

program libusbhid_test;
{
S. V. Pantazi (svpantazi@gmail.com), 2013

updated
	08/13/2019
  08/16/2019
}

{$mode objfpc}{$H+}

uses
  heaptrc,{to hunt for memory leaks}

  {$IFDEF UNIX}
  {$DEFINE UseCThreads}
  {$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}

  keyboard,
  sysutils,

  libusbhid,

  hid_testing_utils;

const
	REPORT_DATA_IDX=0;
begin
  keyboard.InitKeyboard();

  if libusbhid_open_device(
        // $046D, $C216 {xbox gamepad }
        // $0000, $0001 {barcode scanner}
	      // $24C0, $0003 {weather station}
	      // $1784, $0001 {}
        // $056a, $00de {Wacom Bamboo}
	      $04e7, $0050  {elo touch screen}
//        $051d,$0002 {APC UPS}

				,{instance=}1,device_context) then
  begin

{read report until keypressed, then closes the device}
    repeat
      {interrupt reading   - for joystick or wiimote, or touchscreens, etc.
      NOTE: program execution is blocked until data is read from device!}

      {devices often use one endpoint (commonly $81) to output data reports}
      libusbhid_interrupt_read(device_context,$81{endpoint},{out}hidReportData[REPORT_DATA_IDX].hid_data,128{report length, varies by device},hidReportData[REPORT_DATA_IDX].dataLen, {timeout=}1000);

      PrintAndCompareReport(REPORT_DATA_IDX);

    until KeyPressed;

		libusbhid_close_device(device_context);
	end
  else WriteLn('unable to open device');

  keyboard.DoneKeyboard();
end.