串行 (COM) 端口名称或标识

Question

我有一个使用 cport 访问多个串行端口的程序。

要进行配置，到目前为止，我只是在一个组合框中列出了所有可用的 comports 以进行选择，但是越来越多的带有（虚拟）串行接口的驱动程序使最终用户的配置变得很麻烦。

当前检测适用于 createfile()，但存在的问题是您只能获取存在/不存在并且可能“忙”作为信息。

但是，为了改进，我需要每个 COM 端口一个标识字符串，例如它所连接的硬件设备/驱动程序（设备管理器）。这将使用户更容易缩小范围（因为我们提供有限数量的串行卡）

可能它可以从 WMI 获得，但那是一个丛林，sb 是否有更具体的信息，或者更好的代码？

（Delphi XE3，Win7+，没有需要额外安装或部署的解决方案）

Answer 1

如果您想枚举 COM 端口以获得友好名称，您可以使用 SetupAPI 和 GUID_DEVINTERFACE_COMPORT 设备接口类。

试试这个示例

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Windows,
  SysUtils,
  JvSetupApi;

const
  GUID_DEVINTERFACE_COMPORT:TGUID='{86E0D1E0-8089-11D0-9CE4-08003E301F73}';

procedure EnumerateCOMPorts;
var
   cbRequired : DWORD;
   hdev     : HDEVINFO;
   idev     : Integer;
   did      : TSPDeviceInterfaceData;
   pdidd    : PSPDeviceInterfaceDetailData;
   PropertyBuffer : array[0..255] of Char;
   DeviceInfoData: TSPDevInfoData;
   PropertyRegDataType: DWORD;
   RequiredSize: DWORD;
begin
  // enumerate the com ports
  hdev :=  SetupDiGetClassDevs(@GUID_DEVINTERFACE_COMPORT, nil, 0,  DIGCF_PRESENT OR DIGCF_DEVICEINTERFACE);
  if ( INVALID_HANDLE_VALUE <>  THandle(hdev) ) then
  begin
    try
      idev:=0;
      ZeroMemory(@did, SizeOf(did));
      did.cbSize := SizeOf(did);
      repeat
        if (SetupDiEnumDeviceInterfaces(hdev, nil, GUID_DEVINTERFACE_COMPORT, idev, did)) then
        begin
            cbRequired := 0;
            SetupDiGetDeviceInterfaceDetail(hdev, @did, nil, 0, cbRequired, nil);
           if (ERROR_INSUFFICIENT_BUFFER= GetLastError()) then
           begin
              pdidd:=AllocMem(cbRequired);
              try
                pdidd.cbSize := SizeOf(TSPDeviceInterfaceDetailData);
                DeviceInfoData.cbSize:= SizeOf(DeviceInfoData);
                RequiredSize:=0;
                if (SetupDiGetDeviceInterfaceDetail(hdev, @did, pdidd, cbRequired, RequiredSize, @DeviceInfoData)) then
                begin

                 PropertyRegDataType:=0;
                 RequiredSize:=0;
                 if SetupDiGetDeviceRegistryProperty(hdev, DeviceInfoData, SPDRP_FRIENDLYNAME, PropertyRegDataType,  PBYTE(@PropertyBuffer[0]), SizeOf(PropertyBuffer), RequiredSize) then
                  Writeln(Format('Friendly Name - %s',[PropertyBuffer]));

                 if SetupDiGetDeviceRegistryProperty(hdev, DeviceInfoData, SPDRP_DEVICEDESC, PropertyRegDataType,  PBYTE(@PropertyBuffer[0]), SizeOf(PropertyBuffer), RequiredSize) then
                  Writeln(Format('Description   - %s',[PropertyBuffer]));

                 if SetupDiGetDeviceRegistryProperty(hdev, DeviceInfoData, SPDRP_LOCATION_INFORMATION, PropertyRegDataType,  PBYTE(@PropertyBuffer[0]), SizeOf(PropertyBuffer), RequiredSize) then
                  Writeln(Format('Location      - %s',[PropertyBuffer]));
                end
                else
                RaiseLastOSError;
              finally
                FreeMem(pdidd);
              end;
           end;
        end
        else
        Break;
        inc(idev);
      until false;
    finally
      SetupDiDestroyDeviceInfoList(hdev);
    end;
  end;
end;

begin
  try
    if not LoadsetupAPI then exit;
     EnumerateCOMPorts;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.

这将返回类似的东西

注意：JvSetupApi 单元是 JVCL 库的一部分。

Answer 2

您可以使用 HKEY_LOCAL_MACHINE \HARDWARE\DEVICEMAP\SERIALCOMM 作为 COMxx 样式的短名称。请记住指定只读访问权限以避免管理员权限/ UAC 必要性。您可以看到 usb232 适配器和真实的通讯端口。

您也可以检查 HKEY_LOCAL_MACHINE \SYSTEM\CurrentControlSet\Enum\Root\PORTS，但这似乎有点棘手。