如何找到蓝牙设备的COM口？答案

【问题标题】：How to find COM ports of bluetooth device?如何找到蓝牙设备的COM口？
【发布时间】：2020-07-28 05:19:41
【问题描述】：

我在 Windows 10 上使用 Delphi 10.3。

我需要找到配对的蓝牙设备正在使用的 COM 端口，然后连接到该设备。

我查看了蓝牙管理器，没有发现任何与 COM 端口相关的内容。

【问题讨论】：

一般来说，如果它提供了一个 COM 端口接口，那么它可以被系统上的其他应用程序用作 COM 端口，而不必直接使用蓝牙。
我最终查看了 Windows 注册表并将蓝牙设备与 com 端口匹配。

标签： delphi delphi-10.3-rio

【解决方案1】：

您可以使用 AsyncPro。它兼容直到 10.3 Rio。 Async Pro Github

【讨论】：

不需要GitHub，可以通过buildin安装GetIt!

【解决方案2】：

此代码将列出您计算机上的所有设备。然后，您可以通过在列表中查找“COM”和“LPT”字符来提取 com 端口和打印机端口。

添加一个备忘录和一个按钮，并将此代码放在按钮的OnClick 中。

 Procedure Tform1.Button1Click(sender:Tobject);
 var 
   iStr:string;
   iSize,i:Dword;
 begin
   setlength(sStr,4000);
   iSize:= QueryDosDevice(nil,@iStr[i],4000);
   for i:= to iSize do
     if iStr[i]=#0 then iStr[i]:=#10;
   memo1.lines.commatext:=iStr;
 end;`

此代码不是我对编写它的人的功劳。如果这不是您要查找的代码，我会将其删除。

【讨论】：