Delphi读取Usb设备所属端口

Posted 2022-01-26 射天狼

        笔者近期做的项目，要求能够读取到Usb设备连接电脑的端口序号。usb设备指android平板、手机等类似安卓的设备。设备通过UsbHub连接到电脑上也需要能够读取。类似Windows设备管理中的“位置路径”，如下图所示：

        尝试了很多种方法，比如：WMI、SetupApi、注册表等，都以失败告终。都只能读取到一些基础的设备信息，始终无法获取到具体哪个端口。后来在注册表中翻找的过程中，发现某一项：LocationInfo与设备管理中的“位置路径”完全一致，通过分析总结出得到此信息的方法，却：

        1、先通过设备标识找到注册表项：HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Enum\\USB\\VID_0B05&PID_7773\\FBNPFP142270

        2、在其下面找到子项：ParentIdPrefix，内容为：7&3865104f&1

        3、再找到注册表项：HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Enum\\USB\\VID_0B05&PID_7773&MI_00\\7&3865104f&1&0000

        4、在其下面找到子项：LocationInformation，得到内容为：0000.0014.0000.001.003.004.000.000.000

将上面的值内容与图片中的“位置路径”对比，发现完全一致。001.003.004含义分别为：电脑USB端口1，一级hub的usb端口3，二级hub的usb端口4

        兴奋之后，把此功能集成到项目中，然后使用不同设备进行集成设置。测试时发现有的设备，使用此方法找不到，也就是这个方法不通用，真是晴天霹雳。没办法，继续上网查找方法。

        后来找到一个VC++的源码，项目名叫vcUsbView，除了语言不同之外，功能完全符合要求。看了一下源码，代码质量还可以。不过代码量不小，需要完全翻译为Delphi才行。不耽误时间，直接操刀翻译。经过1天多的工作，转换完成。运行效果如下：

        在从c++转Delphi的过程中，也遇到了一些棘手的问题，比如0空间数组，在Delphi中未找到对应的方法。

Delphi版的UsbView源码：https://download.csdn.net/download/cuizm/19870769