Linux USB HID Device?

[MmVisual]

Hallo,

Wie kann ich unter Linux mein USB HID Device finden und eine
Kommunikation mit dem aufnehmen?

Unter Windows gibt es die Befehle der HID.DLL (HidD_GetHidGuid,
SetupDiGetClassDevs, SetupDiEnumDeviceInterfaces usw.).

Aber wie geht das unter Linux?

Der Hintergrund:
Ich habe einen Mikrocontroller, der soll möglichst einfach an jedem PC
ohne lästige Treiberinstallation laufen, also programmiere ich dort das
USB als HID Device. Damit lässt sich das Gerät unter Windows mit Hilfe
dieser HID.dll finden. Jetzt möchte ich gerne das gleiche unter Linux
machen.

In Google finde ich alles, aber keine Lösung für mein Problem.

(LibUSB hat leider den Nachteil, dass man diese Treiber installieren
muss, funktioniert dafür auch mit Linux)

Vielen Dank für eure Unterstützung.

[creed steiger]

Normal regelt unter Linux das das HAL

http://www.freedesktop.org/wiki/Software/hal" onclick="window.open(this.href);return false;

[Christian]

Unter linux musst du für libusb keine treiber installieren
und unter Windows kann man das auch im rahmen des Setup machen
bin damit sehr zufrieden

[MmVisual]

@Christian

Ich habe schon gelesen, sie waren bisher sehr aktiv mit USB und Lazarus.

Also am besten libusb verwenden? Ich habe Units in "AVRISPTOOL" gefunden, die für Windows und Linux geschrieben wurden.
Wenn ich die Treiber in meine EXE als Ressource mit ein binde, dann ist die EXE auch nur 80KB größer.
Setup-Paket habe ich keine, Motto: Start & Use...

[Christian]

Es geht auch anders, es ist ein aufruf der libusb.dll mit dem man treiber im system registrieren kann.
Nach dem Motto:
Treiberregistriereung
Stecken Sie bitte jetzt das gerät an den USb Port
Treiber wird installiert
Benutzen

Sollte gut machbar sein unter Linux kann man den teil einfach weglassen.
Sie können auch die hid.dll nehmen ich für meinen teil will aber nur eine Bibliothek.

[MmVisual]

Ich denke ich habe keine andere Wahl als die Libusb zu verwenden.

Ich habe rausgefunden, dass unter Linux es Befehle wie "ioctl(fd, HIDIOCGDEVINFO, &device_info);" gibt. Ein paar Sourcen habe ich gefunden, aber nur für C.

Da ich in sachen Linux ein Newcommer bin (na ja, Maus bewegen ist das gleiche und alles Systeminterne komplett anders ist, werde ich für den Anfang Libusb verwenden.
Vieleicht gibt es in ein bis zwei Jahren auch was für FPC, die Zeit hilft da viele Probleme zu lösen...
(Natürlich keine Komplett-Lösung, aber Units die vieles schon bereit stellen und Beispiele)

[Christian]

Wo ist denn jetzt das problem mit libusb ?

[MmVisual]

Noch gibts keines, nächste Woche hab ich Urlaub, da programmiere ich was.
Bisher meldet sich der Controller nur am Betriebssystem an, jetzt muss daa auch Daten über Endpoints empfangen und senden noch rein.
Ich schreibe wieder bei weiteren Ergenissen.

[MmVisual]

Hallo,

Ich habe ein kleines-Test-Programm in Lazarus erstellt. Irgendwie klappt es nicht so richtig, also ich möchte in den EP1 was schreiben, aber im Controller kommt nichts an.

Code: Alles auswählen

procedure TfMain.FormCreate(Sender: TObject);
begin
  usb_init();
  Enumerate;
end;

Code: Alles auswählen

procedure TfMain.Enumerate;
var
  busses : PUSBBus;
  usb_bus: PUSBBus;
  dev :    PUSBDevice;
begin
   usb_init();
   usb_find_busses();
   usb_find_devices();
 
   busses := usb_get_busses();
   usb_bus := busses;
   while Assigned(usb_bus) do
   begin
      dev := usb_bus^.devices;
      while Assigned(dev) do
      begin
         if  (dev^.descriptor.idVendor = $8B15) and (dev^.descriptor.idProduct = $9CC6) then
         	lstDspy.Items.AddObject('US "' + dev^.filename + '" ' + IntToStr(dev^.devnum),TObject(dev));
         dev := dev^.next;
      end;
      usb_bus := usb_bus^.next
   end;
   If lstDspy.Items.Count > 0 Then
   	lstDspy.ItemIndex := 0;
end;

Code: Alles auswählen

procedure TfMain.btnSendClick(Sender: TObject);
var
  res, iEP: LongInt;
  Device : PUSBDevice;
  DeviceHandle: PUSBDevHandle;
  txt: PChar;
begin
	If (lstDspy.ItemIndex < 0) Then
    	Exit;
	Device := Pointer(lstDspy.Items.Objects[lstDspy.ItemIndex]);
	DeviceHandle := usb_open(Device{$IFDEF WINDOWS}^{$ENDIF});
	If Assigned(DeviceHandle) Then
	Begin
 
   	If usb_set_configuration(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF}, 1) < 0 Then
      Begin
         lbMsg.Caption := 'Err usb_set_configuration';
         usb_close(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF});
         Exit;
      End;
 
   	If usb_claim_interface(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF}, 0) < 0 Then
      Begin
         lbMsg.Caption := 'Err usb_claim_interface';
         usb_close(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF});
         Exit;
      End;
      //usb_set_altinterface(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF}, 0);
 
      txt := PChar('HalloWelt0HalloWelt0HalloWelt0uu');
      res := usb_bulk_write(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF}, 1, txt, 32, 1);
 
      usb_release_interface(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF},0);
 
      usb_close(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF});
      lbMsg.Caption := 'EP: ' + IntToStr(rgEP.ItemIndex + iEP) + ' Result: ' + IntToStr(res);
   End Else lbMsg.Caption := 'Err DeviceHandle';
end;

In meinem Controller erscheinen nur Messages für den EP0, aber nicht für den EP1.
Ich bin mir auch nicht ganz sicher ob ich den Code für meinem Mikrocontroller richtig gemacht habe.
Kann hier bitte jemand drauf schauen ob ich nichts vergessen habe?

Vielen Dank für eure Hilfe.

[Christian]

Schau dir doch mal die fehler an die libusb evntl zurückgibt. Res setzt du, aber nachschaun was da drin steht tust nicht.

[MmVisual]

Ich habs hin bekommen! Als ich Ihnen den Fehler beschrieben habe, hab ich den Print vom "testlibusb-win.exe" angehängt, dann ist mir der Fehler aufgefallen. (Fehler -5 / -116 kam von "usb_bulk_write") So gehts:

Code: Alles auswählen

DLL version:	0.1.12.1
Driver version:	0.1.12.1
 
bus/device  idVendor/idProduct
bus-0/\\.\libusb0-0001--0x8b15-0x9cc6     8B15/9CC6
  wTotalLength:         74
  bNumInterfaces:       1
  bConfigurationValue:  1
  iConfiguration:       0
  bmAttributes:         80h
  MaxPower:             125
    bInterfaceNumber:   0
    bAlternateSetting:  0
    bNumEndpoints:      8
    bInterfaceClass:    0
    bInterfaceSubClass: 0
    bInterfaceProtocol: 0
    iInterface:         0
      bEndpointAddress: 01h
      bmAttributes:     02h
      wMaxPacketSize:   64
      bInterval:        1
      bRefresh:         0
      bSynchAddress:    0
      bEndpointAddress: 81h
      bmAttributes:     02h
      wMaxPacketSize:   64
      bInterval:        1
      bRefresh:         0
      bSynchAddress:    0
      ... (nochmal 3* IN/OUT EP's)

PS: Oftmals hilft einfach eine Nacht Schlafen und drüber schreiben... Vielen Dank!

[Christian]

Sie brauchen mich nicht zu siezen ist eher unüblich hier.

[MmVisual]

OK.
Ich bin gerade dabei eine EXE zu machen, mit der ich Bulk / Interrupt usw. übertragen und testen kann.
Darin habe ich auch eine Baum-Ansicht mit der gesammten Interface/EP Konfiguration. Irgendwie zeigt mir das ganze nicht das an, wie in der C-Demo Applikation.
Kannst Du da mal einen Blick drauf werfen?

Das Problem:
Zeile 61, wTotalLength zeigt 0, in "testlibusb.exe" 74
Zeile 67, in "i2" wird ebenfalls -1 rein geschrieben, dadurch werden die anderen Schleifen erst gar nicht durchlaufen.
Ein Fehler erscheint nicht.

Code: Alles auswählen

procedure TfMain.lstDspyClick(Sender: TObject);
Var it, it2, it2i, it2e: TTreeNode;
    ret, i, k, m, n, i2: LongInt;
    s: String;
    Device : PUSBDevice;
    DeviceHandle: PUSBDevHandle;
    descriptor: PUSBDeviceDescriptor;
    config: PUSBConfigDescriptor;
    intf: PUSBInterface;
    altsetting: PUSBInterfaceDescriptor;
    endpoint: PUSBEndpointDescriptor;
    str: Array [0..255] of Char;
begin
   tvDev.Items.Clear;
  	If (lstDspy.ItemIndex < 0) Then
    	Exit;
  	Device := Pointer(lstDspy.Items.Objects[lstDspy.ItemIndex]);
   descriptor := @Device{$IFDEF WINDOWS}^{$ENDIF}.descriptor;
   If Not Assigned(descriptor) Then
      Exit;
 
  	DeviceHandle := usb_open(Device{$IFDEF WINDOWS}^{$ENDIF});
  	If Assigned(DeviceHandle) Then
   Begin
   	If (descriptor{$IFDEF WINDOWS}^{$ENDIF}.iManufacturer) <> 0 Then
      Begin
         ret := usb_get_string_simple(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF}, descriptor{$IFDEF WINDOWS}^{$ENDIF}.iManufacturer, str, Length(str));
         If (ret > 0) Then
            s := str + ' - '
         Else s := '0x' + IntToHex(descriptor{$IFDEF WINDOWS}^{$ENDIF}.idVendor, 4) + ' - ';
      End Else s := '0x' + IntToHex(descriptor{$IFDEF WINDOWS}^{$ENDIF}.idVendor, 4) + ' - ';
 
   	If (descriptor{$IFDEF WINDOWS}^{$ENDIF}.iProduct) <> 0 Then
      Begin
         ret := usb_get_string_simple(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF}, descriptor{$IFDEF WINDOWS}^{$ENDIF}.iProduct, str, Length(str));
         If (ret > 0) And (Trim(str) <> '') Then
            s := s + str
         Else s := s + '0x' + IntToHex(descriptor{$IFDEF WINDOWS}^{$ENDIF}.idProduct, 4);
      End Else s := s + '0x' + IntToHex(descriptor{$IFDEF WINDOWS}^{$ENDIF}.idProduct, 4);
 
      it := tvDev.Items.AddFirst(Nil, s);
 
   	If (descriptor{$IFDEF WINDOWS}^{$ENDIF}.iSerialNumber) <> 0 Then
      Begin
         ret := usb_get_string_simple(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF}, descriptor{$IFDEF WINDOWS}^{$ENDIF}.iSerialNumber, str, Length(str));
         s := 'Seriennummer: ' + str;
	      tvDev.Items.AddChild(it, s);
      End;
   	usb_close(DeviceHandle{$IFDEF WINDOWS}^{$ENDIF});
   End Else Begin
      s := '0x' + IntToHex(descriptor{$IFDEF WINDOWS}^{$ENDIF}.idVendor, 4) + ' - 0x' + IntToHex(descriptor{$IFDEF WINDOWS}^{$ENDIF}.idProduct, 4);
	   it := tvDev.Items.AddChild(it, s);
   End;
 
   config := @Device{$IFDEF WINDOWS}^{$ENDIF}.config;
   If Assigned(config) Then
   Begin
   	For i := 0 To Device{$IFDEF WINDOWS}^{$ENDIF}.descriptor.bNumConfigurations - 1 Do
      Begin
	   	it2 := tvDev.Items.AddChild(it, 'Configuration: ' + IntToStr(i));
         tvDev.Items.AddChild(it2, 'wTotalLength: ' + IntToStr(config[i].wTotalLength));
         tvDev.Items.AddChild(it2, 'bNumInterfaces: ' + IntToStr(config[i].bNumInterfaces));
         tvDev.Items.AddChild(it2, 'bConfigurationValue: ' + IntToStr(config[i].bConfigurationValue));
         tvDev.Items.AddChild(it2, 'iConfiguration: ' + IntToStr(config[i].iConfiguration));
         tvDev.Items.AddChild(it2, 'bmAttributes: ' + IntToStr(config[i].bmAttributes));
         tvDev.Items.AddChild(it2, 'MaxPower: ' + IntToStr(config[i].MaxPower));
         i2 := config[i].bNumInterfaces - 1;
         For k := 0 To i2 Do
         Begin
            intf := @config[i].intf;
            altsetting := @intf[k].altsetting;
            If Assigned(Intf) And Assigned(altsetting) Then
            Begin
   	         it2i := tvDev.Items.AddChild(it2, 'Interfaces ' + IntToStr(k));
               For m := 0 To intf[k].num_altsetting - 1 Do
               Begin
               	tvDev.Items.AddChild(it2i, 'bInterfaceNumber: ' + IntToStr(altsetting[m].bInterfaceNumber));
               	tvDev.Items.AddChild(it2i, 'bAlternateSetting: ' + IntToStr(altsetting[m].bAlternateSetting));
               	tvDev.Items.AddChild(it2i, 'bNumEndpoints: ' + IntToStr(altsetting[m].bNumEndpoints));
               	tvDev.Items.AddChild(it2i, 'bInterfaceClass: ' + IntToStr(altsetting[m].bInterfaceClass));
               	tvDev.Items.AddChild(it2i, 'bInterfaceSubClass: ' + IntToStr(altsetting[m].bInterfaceSubClass));
               	tvDev.Items.AddChild(it2i, 'bInterfaceProtocol: ' + IntToStr(altsetting[m].bInterfaceProtocol));
               	tvDev.Items.AddChild(it2i, 'iInterface: ' + IntToStr(altsetting[m].iInterface));
                  endpoint := @altsetting[m].endpoint;
                  If Assigned(endpoint) Then
                  Begin
                     For n := 0 To altsetting[m].bNumEndpoints Do
                     Begin
                        it2e := tvDev.Items.AddChild(it2i, 'Endpoint ' + IntToStr(n));
                        tvDev.Items.AddChild(it2e, 'bEndpointAddress: ' + IntToStr(endpoint[n].bEndpointAddress));
                        tvDev.Items.AddChild(it2e, 'bmAttributes: ' + IntToStr(endpoint[n].bmAttributes));
                        tvDev.Items.AddChild(it2e, 'wMaxPacketSize: ' + IntToStr(endpoint[n].wMaxPacketSize));
                        tvDev.Items.AddChild(it2e, 'bInterval: ' + IntToStr(endpoint[n].bInterval));
                        tvDev.Items.AddChild(it2e, 'bRefresh: ' + IntToStr(endpoint[n].bRefresh));
                        tvDev.Items.AddChild(it2e, 'bSynchAddress: ' + IntToStr(endpoint[n].bSynchAddress));
                     End;
                  End;
               End;
            End;
         End;
      End;
   End;
 
   tvDev.Items[0].Expand(True);
end;

Die Enumerate-Funktion:

Code: Alles auswählen

procedure TfMain.Enumerate;
var
  usb_bus: PUSBBus;
  dev :    PUSBDevice;
begin
   usb_find_busses();
   usb_find_devices();
   usb_bus := usb_get_busses();
   lstDspy.Items.Clear;
   tvDev.Items.Clear;
   while Assigned(usb_bus) do
   begin
      dev := usb_bus{$IFDEF WINDOWS}^{$ENDIF}.devices;
      while Assigned(dev) do
      begin
       	lstDspy.Items.AddObject(dev{$IFDEF WINDOWS}^{$ENDIF}.filename + '   ' + IntToStr(dev{$IFDEF WINDOWS}^{$ENDIF}.devnum),TObject(dev));
         dev := dev{$IFDEF WINDOWS}^{$ENDIF}.next;
      end;
      usb_bus := usb_bus{$IFDEF WINDOWS}^{$ENDIF}.next
   end;
   If lstDspy.Items.Count > 0 Then
   	lstDspy.ItemIndex := 0;
end;

[Christian]

kannst du mal das testprojekt anhängen?
würd das gern mal probiern.

[MmVisual]

Anbei das Projekt.
Klick in die Liste der USB Geräte baut den Baum auf. Für Windows (Linux noch nie geprüft).

Update: Ich habe die Datei eneut hochgeladen, nun sind in der Datei "libusb_win32.pas" die Typbezeichnungen richtig und andere kleine Verbesserungen. Das Problem konnte ich noch nicht lösen
Ich habe auch experimentiert mit Packed und nicht, C-Sourcen studiert, aber ich komme einfach nicht dahinter.

PS: Das Abholen von USB EP Datenpakete geht auch nicht (IN), nur das verschicken (OUT).