我可以尝试打开它,但如果它被另一个程序使用,我会得到一个错误,我需要能够区分这种情况和机器实际上没有串口的情况。
有什么想法吗?
最佳答案
只是为了补充 Serg 的答案,Win32_SerialPort
this 中使用的类文章报告了物理 com 端口,如果您想枚举所有串行端口,包括 USB-Serial/COM
端口,您必须使用位于 中的
命名空间。MSSerial_PortName
类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
关于delphi - 如何判断一台机器物理上是否有串口?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5575372/