Нахождение своего активного COM порта

@Полный 30h · Регистрация: 04.11.2010

Студворк — интернет-сервис помощи студентам

Доброго всем здравия.

Подскажите алгоритм работы программы определяющей "свой" активный COM. Попытаюсь развернуть свою мысль. Имеется некое внешнее устройство. Считыватель микросхем памяти. К компьютеру оно подключается через USB и видится в ОС на уровне железа как COM порт.
Так вот задача стоит следующая. Запустить на компьютере программу и подсоединить к USB моё устройство (или наоборот). И после того как устройство в USB, программа должна определить на каком порту оно находится и принять от него данные.
Мне ничего в голову не приходит, кроме как перебором пытаться открывать порты API CreateFile. И проверять ответ на наличие handle. Возврат которого означает что порт существует. Далее отсылать запрос - определенный набор символов. И ожидать ответа от устройства, так же некую определенную последовательность. После приема которой и считать данный порт за "тот что надо".
Однако меня сильно смущает тупой перебор. Как то неправильно это, тратить ресурсы на брут. Может быть есть какие то более разумные решения?

untyped · 16.11.2019, 20:14

Сообщение от Полный 30h

Имеется некое внешнее устройство. Считыватель микросхем памяти. К компьютеру оно подключается через USB и видится в ОС на уровне железа как COM порт.

т.е.

у устройства есть физическое подключение к компу через usb

посредством драйверов этого устройства - операционная система видит это устройство, как виртуальный com-порт.

Так?

у драйверов устройства есть API?

устройство, часом - не ардуина? т.е. - не на базе него сделано?

@Полный 30h · 16.11.2019, 20:29 **[ТС]**

Да. Получается виртуальный COM порт. Устройство микроконтролер с 340 чипом, который и преобразует UART (COM) в USB. По сути у ардуины то же самое. может чип порта другой просто, но суть та же.
А драйвер железа на стороне PC делает его видимым для ОС как COM порт. Если по бытовому, то когда я втыкаю в USB порт свисток как на картинке, то диспетчере устройств на компьютере появляется ещё один COM порт.

Но поскольку он виртуальный, то может быть с произвольной цифрой. Допустим COM2 или COM19. Именно поэтому я не могу прописать в программе номер порта. А каждый раз лазить в "диспетчер устройств" это как то совсем по нубски.

ФедосеевПавел · 16.11.2019, 20:40

При работе с разными программами, требующими COM-порт для соединения с аппаратурой, встречался с такими подходами:
- пользователю при настройке предлагается выпадающий список существующих на данный момент COM-портов
- да, просто перебор всех COM-портов в попытке соединиться и формирование списка удачных соединений (теоретически возможно подключение нескольких устройств). Можно улучшить, получив список актуальных на момент проверки.

Добавлено через 2 минуты
Для пакета SynAser и FPC тестовая прожка получения списка была проста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{
Тест строки с перечем COM-портов.
Результат для ноутбука с двумя COM-портами - строка:
COM1,COM3
}
{$mode Delphi}
program test01;
 
uses
  synaser;
 
begin
  writeln(GetSerialPortNames);
end.

Понятно, что применять будете другой пакет - из любопытства сможете посмотреть исходники.

@Полный 30h · 16.11.2019, 20:59 **[ТС]**

ФедосеевПавел, спасибо. Если я правильно понял, то через API получить список существующих портов и уже их опросить.

ФедосеевПавел · 16.11.2019, 21:24

Да, так. Я бы посмотрел примеры в SynAser, как это реализовано.

Добавлено через 5 минут
Вот, как список берётся в SynaSer

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
{$IFDEF MSWINDOWS}
function GetSerialPortNames: string;
var
  reg: TRegistry;
  l, v: TStringList;
  n: integer;
begin
  l := TStringList.Create;
  v := TStringList.Create;
  reg := TRegistry.Create;
  try
{$IFNDEF VER100}
{$IFNDEF VER120}
    reg.Access := KEY_READ;
{$ENDIF}
{$ENDIF}
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', false);
    reg.GetValueNames(l);
    for n := 0 to l.Count - 1 do
      v.Add(reg.ReadString(l[n]));
    Result := v.CommaText;
  finally
    reg.Free;
    l.Free;
    v.Free;
  end;
end;
{$ENDIF}

Т.е. из реестра

@Полный 30h · 16.11.2019, 21:25 **[ТС]**

Сообщение от ФедосеевПавел

Да, так. Я бы посмотрел примеры в SynAser, как это реализовано.

Ок. Еще раз спасибо. Буду разбираться.

ФедосеевПавел · 16.11.2019, 21:27

SynaSer - это часть более общей Synapse
http://synapse.ararat.cz/doku.php/download

Нужно скачать Synapse и в исходниках найти SynaSer.

@Полный 30h · 16.11.2019, 21:34 **[ТС]**

Понял

@Rius · 16.11.2019, 22:57

Сообщение от Полный 30h

А каждый раз лазить в "диспетчер устройств" это как то совсем по нубски.

Дополнения, по мере уменьшения нубства:

Добавить к именам портов их описание (драйвера)
Добавить информацию об устройстве, подключённом к порту (надо опрашивать, своё точно сможете опознать)
Выводить только свои порты (отсеивать по VID&PID).

Помимо реестра есть другие источники данных: Список COM портов

@Полный 30h · 16.11.2019, 23:03 **[ТС]**

Сообщение от Rius

Дополнения, по мере уменьшения нубства:
Добавить к именам портов их описание (драйвера)
Добавить информацию об устройстве, подключённом к порту (надо опрашивать, своё точно сможете опознать)
Выводить только свои порты (отсеивать по VID&PID).
Помимо реестра есть другие источники данных: Список COM портов

Спасибо большое. Буду изучать.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

Нахождение своего активного COM порта

Решение

Решение

@Полный 30h Эксперт быдлокодинга 2094 / 528 / 70 Регистрация: 04.11.2010 Сообщений: 1,314

	Нахождение своего активного COM порта 16.11.2019, 19:47. Показов 3689. Ответов 10 Метки нет (Все метки) Доброго всем здравия. Подскажите алгоритм работы программы определяющей "свой" активный COM. Попытаюсь развернуть свою мысль. Имеется некое внешнее устройство. Считыватель микросхем памяти. К компьютеру оно подключается через USB и видится в ОС на уровне железа как COM порт. Так вот задача стоит следующая. Запустить на компьютере программу и подсоединить к USB моё устройство (или наоборот). И после того как устройство в USB, программа должна определить на каком порту оно находится и принять от него данные. Мне ничего в голову не приходит, кроме как перебором пытаться открывать порты API CreateFile. И проверять ответ на наличие handle. Возврат которого означает что порт существует. Далее отсылать запрос - определенный набор символов. И ожидать ответа от устройства, так же некую определенную последовательность. После приема которой и считать данный порт за "тот что надо". Однако меня сильно смущает тупой перебор. Как то неправильно это, тратить ресурсы на брут. Может быть есть какие то более разумные решения? 1

@Полный 30h Эксперт быдлокодинга 2094 / 528 / 70 Регистрация: 04.11.2010 Сообщений: 1,314
	16.11.2019, 20:29 [ТС]
	Да. Получается виртуальный COM порт. Устройство микроконтролер с 340 чипом, который и преобразует UART (COM) в USB. По сути у ардуины то же самое. может чип порта другой просто, но суть та же. А драйвер железа на стороне PC делает его видимым для ОС как COM порт. Если по бытовому, то когда я втыкаю в USB порт свисток как на картинке, то диспетчере устройств на компьютере появляется ещё один COM порт. Но поскольку он виртуальный, то может быть с произвольной цифрой. Допустим COM2 или COM19. Именно поэтому я не могу прописать в программе номер порта. А каждый раз лазить в "диспетчер устройств" это как то совсем по нубски. 1

@Полный 30h Эксперт быдлокодинга 2094 / 528 / 70 Регистрация: 04.11.2010 Сообщений: 1,314
	16.11.2019, 20:59 [ТС]
	ФедосеевПавел, спасибо. Если я правильно понял, то через API получить список существующих портов и уже их опросить. 1

ФедосеевПавел Модератор 8644 / 4479 / 1669 Регистрация: 01.02.2015 Сообщений: 13,883 Записей в блоге: 11
	16.11.2019, 21:27
	SynaSer - это часть более общей Synapse http://synapse.ararat.cz/doku.php/download Нужно скачать Synapse и в исходниках найти SynaSer. 1

@Полный 30h Эксперт быдлокодинга 2094 / 528 / 70 Регистрация: 04.11.2010 Сообщений: 1,314
	16.11.2019, 21:34 [ТС]
	Понял 1