如何判断一台机器物理上是否有串口？

Question

我可以尝试打开它，但如果它被另一个程序使用，我会收到错误，我需要能够将这种情况与机器物理上没有串行端口的情况区分开来。

有什么想法吗？

Answer 1

只是为了补充 Serg 答案， Win32_SerialPort 中使用的类 这篇文章报告了物理COM端口，如果您想枚举包括USB-Serial/COM端口在内的所有串行端口，则必须使用MSSerial_PortName code> 类位于 root\wmi 命名空间中。

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;

// Serial Port Name

procedure  GetMSSerial_PortNameInfo;
const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\WMI', '', '');
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM MSSerial_PortName','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Writeln(Format('Active          %s',[FWbemObject.Active]));// Boolean
    Writeln(Format('InstanceName    %s',[FWbemObject.InstanceName]));// String
    Writeln(Format('PortName        %s',[FWbemObject.PortName]));// String

    Writeln('');
    FWbemObject:=Unassigned;
  end;
end;


begin
 try
    CoInitialize(nil);
    try
      GetMSSerial_PortNameInfo;
      Readln;
    finally
    CoUninitialize;
    end;
 except
    on E:Exception do
    begin
        Writeln(E.Classname, ':', E.Message);
        Readln;
    end;
  end;
end.

有关串行端口的其他信息，请尝试位于同一命名空间中的类

• MSSerial_CommInfo
• MSSerial_CommProperties
• MSSerial_HardwareConfiguration
• MSSerial_PerformanceInformation

Answer 2

您可以使用 WMI。看看我的 旧帖子

Answer 3

您还可以从注册表中读取：
枚举 Delphi 中的系统 Com 端口列表