Как найти COM-порты устройства Bluetooth?

Question

Я использую Delphi 10.3 на Windows 10.

Мне нужно найти COM-порты, которые использует сопряженное устройство Bluetooth, и затем подключиться к устройству.

Я просмотрел диспетчер Bluetooth и не нашел ничего, касающегося COM-порта.

Answer 1

Вы можете использовать AsyncPro. Его совместимо до 10,3 Рио. Asyn c Pro Github

Answer 2

Этот код выведет список всех устройств на вашем компьютере. Затем вы можете извлечь com-порты и порты принтера, посмотрев в списке символы «COM» и «LPT».

Добавьте памятку и кнопку и поместите этот код в 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;` 

Этот код не мой кредит человеку, который его написал. Если это не тот код, который вы ищете, я снесу его.