USB Device Lister

[scp]

Name: USB Device Lister
Version: 0.82 (20.01.2004)
Betriebssyteme: 98/Me/2000/XP (nur unter XP getestet)
Download hier oder Direktlink

Was kann es?
Der USB Device Lister erstellt eine Liste der angeschlossenen USB-Geräte. Desweiteren zeigt er alle möglichen Infos wie Hersteller und Gerätenamen (sowohl aus dem Gerät ausgelesene Strings als auch mittels einer Liste aus der Vendor-/Device-ID), Seriennummer und Interface Descriptor an.

Wozu?
Wenn man mal einen Treiber für ein Gerät nicht hat und nicht genau weis, wer das Gerät tatsächlich herstellt, kann man dies so gut heraus finden.
Ausserdem ist dies durch den beigelegten Quelltext eine Veranschaulichung, wie man USB-Geräte unter Delphi ansteuert.

[scp]

Achso Hatte dir ne PN geschickt. OK, dann schick ich dir noch ne Mail.

[Alter Mann]

Hallo scp,

was soll ich sagen, es läuft nicht. Beim zweiten Durchlauf von "CollectDescriptors" kommt eine Schutzverletzung.
Es betrifft diesen Abschnitt:

Delphi-Quellcode:

 // Check for Strings
  StringIndex := 0;
  repeat
    TotalLength := GetStringDescriptor(DevHandle, ConnectionIndex, StringIndex);
    If not (PCHostRequest.Data[0] = TotalLength) then
      TotalLength := 0;
    Inc(StringIndex);

    For i := 1 To TotalLength do
      DescriptorData[Nexti + i] := PCHostRequest.Data[i - 1];
    Nexti := Nexti + TotalLength;
    //ShowMessage(IntToStr(StringIndex) + ', ' + 
    //IntTostr(TotalLength) + #10 + BinToStr(@DescriptorData[Nexti + 1 - TotalLength], TotalLength));
  until not (TotalLength <> 0);

Wieviel durchläufe gibt es eigendlich in der Schleife? Ich habe mal einen Zähler eingebaut und der will garnicht aufhören...

[edit=MrSpock]Doppelter intrag gelöscht. Mfg, MrSpock[/edit]

[scp]

Ups... da stimmt wohl was mit der Erkennung nicht. Es wird solange versucht, bis TotalLength 0 zurückgibt, aber offensichtlich gibt er wohl bei einigen Geräten immer > 0 aus, egal was fürn Stringindex. Muss das mal bei Gelegenheit überarbeiten.

[Robert Marquardt]

Ich hatte erst nicht verstanden worum es geht.
Bei den Strings musst du immer erwarten das ers Aerger gibt.
1. Das USB device liefert manche Strings nicht. Das ist ein beliebter Firmware-Fehler. Es fallen durch 8 teilbare Stringlaengen aus.
2. Windows ergaenzt selbstaendig ein #0 (WideChar). Der Versuch mit einem Puffer der Laenge Null herauszufinden ob es den String gibt oder nicht geht immer schief.

[GoTo0815]

Gibt es einen einfachen Weg die VendorID meines USB Sticks in Delphi anzeigen zu lassen???

Gruß

Hendrik

[Matze]

Zitat von HendrikSturm:

Gibt es einen einfachen Weg die VendorID meines USB Sticks in Delphi anzeigen zu lassen???

Es ist wohl am Besten, wenn du einen neuen Thread aufmachst, das passt hier nicht hinein.