LIBUSB: usb_interrupt_read

[mimi]

Hallo,
seit Monaten versuche ich jetzt schon mit der LIBUSB ein Signal von meiner USB Fernbedienungen zu bekommen, aber leider bisher ohne erfolgt

Mein Soruce Code sieht so aus:

Delphi-Quellcode:

function TForm1.FindDevice:pusbdevice;
const
  vid = $147a;
  pid = $e019;
var
  bus : Pusb_bus;
begin
  usb_init();
  usb_find_busses();
  usb_find_devices();
  bus:=usb_get_busses;
  while bus<>nil do
  begin
    dev:=bus^.devices;
    while dev<>nil do
    begin
      if (dev^.descriptor.idVendor=vid) and (dev^.descriptor.idProduct=pid) then
      begin
        result:=dev;
        exit;
      end;
      dev:=dev^.next;
    end;
    bus:=bus^.next;
  end;
  result:=nil;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  dev : pusbdevice;
  ret:Integer;
  buf:PChar;
  S: array [0..255] of char;
  r,r2:Integer;
begin

  dev:=FindDevice;
  if dev <> NIL then begin
    writeln('GEFUNDEN');
    FusbDevHandle:=usb_open(dev);
    if FUsbDevHandle<>nil then begin
      usb_resetep(FUsbDevHandle,80);
      usb_reset(FUsbDevHandle);

//      r:=usb_claim_interface(FusbDevHandle, 0);
  //    r2:=usb_set_configuration(FusbDevHandle,1);
    //  writeln(r,'\',r2,'\',usb_strerror);
      
      ed:=dev^.config[0].theInterface^.altsetting^.endpoint[0].bEndpointAddress and USB_ENDPOINT_ADDRESS_MASK;;
   end;
   Timer1.Enabled:=True;

  end
  else
    ShowMessage('nicht gefunden')
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  w:Integer;
  b:Pchar;
  s:String;
begin
  if FUsbDevHandle<>nil then begin
  //  usb_endpoint
     b:='         ';
     s:='';
     w:=0;
     w:=usb_interrupt_read(FUsbDevHandle,
                          USB_ENDPOINT_IN,
                          b,
                          8,
                          200 );

//     w:=usb_get_string(FUsbDevHandle,1,0,b,10);

    if w > -1 then
    writeln(w,'\',b);

    if b <> '         ' then
    writeln(b);
    

      //writeln('b:',w)
  end;
end;

es kommt immer die Fehler Meldung:

Zitat:

Device or resource busy

Ich habe mir schon einige andere Sorucen angeschaut die auf die LIbUSB zugreifen, aber das brachte auch nix.
Ich hoffe der eine oder andere her kennt sich mit der LIBUSB aus...

Ich bin mir Ziemlich sicher das ich per Interrupt draufzugreifen muss. Weil die Jedi HID Komponente macht das auch so, außer dem habe ich noch in einigen Datein(müsste ich wieder suchen) raus gelesen das es Interrupt ist

Ich bin für jeden Tipp Dankbar...

Ich habe die gleiche Frage schon hier gestellt:
http://www.lazarusforum.de/viewtopic...&highlight=usb
Aber schon vor längerer Zeit.

PS: Ich bin unter Linux daher kann ich leider die Hid Komponente von den Jedis nicht nutzen, damit habe ich das schonmal hinbekommen.