Name eines Comports auslesen

[Gutelo]

Ich glaub ich hole mir die Infos aus der regedit.

Hatte vorher zwei Fehler gemacht :

1.) Arduino nicht angestoepselt -> keine Eintrag in registry vorhanden
2.) Nicht auf die Idee gekommen, dass es unter USB gelistet ist, da Arduino ja ein USB2Serial Device ist

Die Infos liegen in einem Unter-key bezueglich:

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\USB

Werde dann alle Unter-keys durchgehen und schauen ob der Key 'FriendlyName' den String 'Arduino Micro (COM 5)' enthaelt und den Com-port daraus ziehen ...

Gutelo

[Gutelo]

Funktioniert, Ich hoffe nur der Com-Port wird, falls er sich aendert auch (schnell genug) aktualisiert.

Nicht perfekt, aber momentan so geloest:

Delphi-Quellcode:

// Find COMport from Windows Registry
Function TFRM_Main.FindArduinoComPort(ArduinoStr : String) : String;
var
  KeyNames_L1, KeyNames_L2: TStrings;
  L1, L2: integer;
  Reg : TRegistry;
  Str : String;
  COMPort : String;
  L_Bracket, R_Bracket : Integer;
begin
  // If no Port found return empty string
  COMPort := '';
  // Initialize StringLists
  KeyNames_L1 := TStringList.Create;
  KeyNames_L2 := TStringList.Create;
  // Initialize Registry
  Reg := TRegistry.Create;
  // Search for 'Arduino Micro'
  with Reg do begin
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKeyReadOnly('\SYSTEM\ControlSet001\Enum\USB') then
      begin
          // Get List of All SubKeys in \SYSTEM\ControlSet001\Enum\USB
          KeyNames_L1.Clear; 
          GetKeyNames(KeyNames_L1);
          // Iterate through Level 1
          for L1 := 0 to KeyNames_L1.Count-1 do
          begin
            OpenKeyReadOnly('\SYSTEM\ControlSet001\Enum\USB');
            OpenKeyReadOnly(KeyNames_L1[L1]);
            // Get List of All SubKeys in \SYSTEM\ControlSet001\Enum\USB\"Level 1"
            KeyNames_L2.Clear;
            GetKeyNames(KeyNames_L2);
            // Iterate through Level 2
            for L2 := 0 to KeyNames_L2.Count-1 do
            begin
              // Open Each Subkey and search for 'FriendlyName' key, then check for 'Arduino Micro'
              OpenKeyReadOnly(KeyNames_L2[L2]);
              Str := Reg.ReadString('FriendlyName');
              if AnsiPos(ArduinoStr, Str) > 0  then
              begin
                 L_Bracket := AnsiPos('(', Str);
                 R_Bracket := AnsiPos(')', Str);
                 if (L_Bracket > 0) and (R_Bracket > 0) then
                 begin
                    COMPort := AnsiMidStr(Str, L_Bracket+1, R_Bracket - L_Bracket - 1);
                 end;
              end;
            end;
          end;
      end;
      finally
             CloseKey;
             Free;
      end;
  end;
  // Return Result
  Result := COMPort;
end;

Uebergeben wird der Device String oder ein Teil davon, in meinem Fall ArduinoStr = 'Arduino Micro'. Zurueckgegeben wird der COM-Port als String, der ueblicherweise in Klammern hinter dem FriendlyName steht. Gegebenenfalls muessen auch noch tiefere Level der Keys durchsucht werden. Bei mir reicht das zweite Level.

Wenn jemand was eleganteres oder effizienteres hat, dann bitte posten ...

Gutelo

[hathor]

Schön, dass der Code für Dich funktioniert.
Aber er ist zu speziell, um alle ARDUINO-Boards zu erkennen.
In meiner Registry kommt der String "Arduino" in KEINER Schreibweise vor.
Grund: Zwischen dem Microcontroller und dem USB-Port befindet sich ein Chip von FTDI.
Der meldet sich mit "USB Serial Converter" bzw. "USB Serial Port (COM7)" an.

Code:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\FTDIBUS]

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\FTDIBUS\VID_0403+PID_6001+A900f3NlA]

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\FTDIBUS\VID_0403+PID_6001+A900f3NlA\0000]
"DeviceDesc"="@oem71.inf,%vid_0403&pid_6001.devicedesc%;USB Serial Port"
"Capabilities"=dword:00000090
"ContainerID"="{00000000-0000-0000-ffff-ffffffffffff}"
"HardwareID"=hex(7):46,00,54,00,44,00,49,00,42,00,55,00,53,00,5c,00,43,00,4f,\
  00,4d,00,50,00,4f,00,52,00,54,00,26,00,56,00,49,00,44,00,5f,00,30,00,34,00,\
  30,00,33,00,26,00,50,00,49,00,44,00,5f,00,36,00,30,00,30,00,31,00,00,00,00,\
  00
"ConfigFlags"=dword:00000000
"ClassGUID"="{4d36e978-e325-11ce-bfc1-08002be10318}"
"Driver"="{4d36e978-e325-11ce-bfc1-08002be10318}\\0003"
"UpperFilters"=hex(7):73,00,65,00,72,00,65,00,6e,00,75,00,6d,00,00,00,00,00
"Mfg"="@oem71.inf,%ftdi%;FTDI"
"Service"="FTSER2K"
"FriendlyName"="USB Serial Port (COM7)"

[himitsu]

Entweder muß der FriendlyName von jemandem "manuell" eingetragen werden, wenn er weiß was sich dahinter verbirgt,
da der Serial-Port ja keinerlei grundsätzlicher Kontroll-/Informationsstrukturen bietet und Windows/Standardtreiber somit nicht fragen könen, WER und noch nichtmal OB sich jemand am anderen Ende der Leitung befindet.

Das Einzige wo automatisch "eigene" Namen vorhanden sind, sind praktisch Spezialtreiber, welche den COMM-Port für genau diese Hardware einrichten/bereitstellen.

[hathor]

Hier habe ich etwas gefunden, was gut funktioniert (auch ohne diesen JWA-...!)
http://www.delphipraxis.net/1119476-post11.html

Ausgabe:

Anzahl der Schnittstellen : 1
COM7 : USB Serial Port (COM7)

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);  // uses Registry
var
  i: integer;
  Reg: TRegistry;
  SerPortNum: integer;
  EnumList: TStringList;
  FriendlyName: String;
  PortName: String;
begin
  Reg := TRegistry.Create();
  EnumList := TStringlist.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly('\System\CurrentControlSet\Services\SerEnum\Enum') then
    begin
      SerPortNum := Reg.ReadInteger('Count');
      Memo1.Lines.Add('Anzahl der Schnittstellen : '+inttostr(SerPortNum));
      for i:=0 to SerPortNum-1 do
        EnumList.Add(Reg.ReadString(inttostr(i)));
      Reg.CloseKey;
      for i:=0 to SerPortNum-1 do
      begin
        if Reg.OpenKeyReadOnly('\System\CurrentControlSet\Enum\'+EnumList.Strings[i]+'\Device Parameters') then
          PortName := Reg.ReadString('PortName');
        Reg.CloseKey;
        if Reg.OpenKeyReadOnly('\System\CurrentControlSet\Enum\'+EnumList.Strings[i]) then
          FriendlyName := Reg.ReadString('FriendlyName');
        Reg.CloseKey;
        Memo1.Lines.Add(PortName + ' : ' + FriendlyName);
      end;
    end;
  finally
    EnumList.Free;
    Reg.Free;
  end;
end;

[Gutelo]

Ja, es ist klar dass man erstmal wissen muss wie sich das Device meldet

[Gutelo]

Hathor,

der Codeschnippsel findet bei mir leider nur eine einzige Schnittstelle (COM1) obwohl ich zig Schnittstellen habe.

Gutelo

[hathor]

Zitat von Gutelo:

Hathor,

der Codeschnippsel findet bei mir leider nur eine einzige Schnittstelle (COM1) obwohl ich zig Schnittstellen habe.

Gutelo

In Betrieb?
Wahrscheinlich musst Du alle BT Ports mal löschen...
Irgendwas läuft da falsch!

Zitat:
Phantom Devices
Devices that have been installed on a system but are not currently available are referred to as "phantom devices". These devices are not usually displayed in the device manager, but can be made to be displayed as though they are attached. This allows device properties to be changed or devices to be uninstalled via Device Manger even though the device is not physically connected to the PC.

Die kann man sich im Device Manager anzeigen lassen.