• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 870
  • Last Modified:

Identifying COM port devices in Delphi

How can I programmatically identify the devices that have attached themselves to the various COM ports (i.e. rs232, modem, bluetooth)?
Certainly msinfo32.exe can identify them, so there must be some system info somewhere to pull this from.

  • 2
  • 2
2 Solutions
MerijnBSr. Software EngineerCommented:
use WMI:

select * from win32_serialport

results on my machine in:

let me know if you need help using WMI

Availability	2	2	2	2	
Binary	True	True	True	<empty>	
Capabilities	<empty>	<empty>	<empty>	<empty>	
CapabilityDescriptions	<empty>	<empty>	<empty>	<empty>	
Caption	Conexant D110 MDC V.92 Modem	Communications Port (COM1)	Standard Serial over Bluetooth link (COM5)	Standard Serial over Bluetooth link (COM4)	
ConfigManagerErrorCode	0	0	0	0	
ConfigManagerUserConfig	False	False	False	False	
CreationClassName	Win32_SerialPort	Win32_SerialPort	Win32_SerialPort	Win32_SerialPort	
Description	Conexant D110 MDC V.92 Modem	Communications Port	Standard Serial over Bluetooth link	Standard Serial over Bluetooth link	
ErrorCleared	<empty>	<empty>	<empty>	<empty>	
ErrorDescription	<empty>	<empty>	<empty>	<empty>	
InstallDate	<empty>	<empty>	<empty>	<empty>	
LastErrorCode	<empty>	<empty>	<empty>	<empty>	
MaxBaudRate	128000	115200	9600	<empty>	
MaximumInputBufferSize	0	0	0	<empty>	
MaximumOutputBufferSize	0	0	0	<empty>	
MaxNumberControlled	<empty>	<empty>	<empty>	<empty>	
Name	Conexant D110 MDC V.92 Modem	Communications Port (COM1)	Standard Serial over Bluetooth link (COM5)	Standard Serial over Bluetooth link (COM4)	
OSAutoDiscovered	True	True	True	True	
PNPDeviceID	PCI\VEN_8086&DEV_266D&SUBSYS_542314F1&REV_03\3&61AAA01&0&F3	ACPI\PNP0501\4&15F2F7D1&0	BTHENUM\{00001101-0000-1000-8000-00805F9B34FB}\7&3180A61D&0&000000000000_00000000	BTHENUM\{00001101-0000-1000-8000-00805F9B34FB}\7&3180A61D&0&00121C20088A_C00000000	
PowerManagementCapabilities	1	1	1	1	
PowerManagementSupported	False	False	False	False	
ProtocolSupported	<empty>	<empty>	<empty>	<empty>	
ProviderType	Modem Device	RS232 Serial Port	RS232 Serial Port	<empty>	
SettableBaudRate	True	True	True	<empty>	
SettableDataBits	True	True	True	<empty>	
SettableFlowControl	True	True	True	<empty>	
SettableParity	True	True	True	<empty>	
SettableParityCheck	True	True	False	<empty>	
SettableRLSD	True	True	True	<empty>	
SettableStopBits	True	True	True	<empty>	
Status	OK	OK	OK	OK	
StatusInfo	3	3	3	<empty>	
Supports16BitMode	False	False	False	<empty>	
SupportsDTRDSR	True	True	True	<empty>	
SupportsElapsedTimeouts	True	True	True	<empty>	
SupportsIntTimeouts	True	True	True	<empty>	
SupportsParityCheck	True	True	False	<empty>	
SupportsRLSD	True	True	True	<empty>	
SupportsRTSCTS	True	True	True	<empty>	
SupportsSpecialCharacters	False	False	False	<empty>	
SupportsXOnXOff	True	True	False	<empty>	
SupportsXOnXOffSet	True	True	False	<empty>	
SystemCreationClassName	Win32_ComputerSystem	Win32_ComputerSystem	Win32_ComputerSystem	Win32_ComputerSystem	
TimeOfLastReset	<empty>	<empty>	<empty>	<empty>	

Open in new window

sheepfarmerAuthor Commented:
Yeah, that's what I need - I need to extract a list of devices that are attached to a COM port (ideally identified COM1 = Robotics Modem, COM2 = Bluetooth etc)

If you can help with a complete example for WMI, I would be very grateful.

MerijnBSr. Software EngineerCommented:
First, you might need to import some type libraries, for help, take a look here: http://www.ciuly.com/delphi/wmi/settingUpWmi/index.html (thanks Ciuly!)

I've been working on a simple to use WMI wrapper. It's not done by far, but far enough for you to achieve this.
You can download it with an example program here: https://filedb.experts-exchange.com/incoming/ee-stuff/7349-wmi_serialport.zip

If I press the button on my machine, it gives me this list:

COM1=Communications Port
COM3=Conexant D110 MDC V.92 Modem
COM4=Standard Serial over Bluetooth link
COM5=Standard Serial over Bluetooth link

Oh, and if you wonder why it is so slow, sorry, WMI just is.
sheepfarmerAuthor Commented:
Thanks for the code/exe - great start.

Most grateful

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now