Определение номера подключенного COM порта

Для правильного подключения оборудования, необходимо определить номер COM порта.

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

Windows

Для определения номера COM порта на ОС Windows необходимо:

1. Убедиться в том, что многожильный кабель подключен к COM-порту
2. Перейти в «Диспетчер устройств», расположенный в: Панель управления\Оборудование и звук\Диспетчер устройств (необходимы права администратора)
3. Раскрыть дерево «Порты (COM и LPT)»
4. Отсоединить многожильный кабель
5. Запомнить изменения в дереве устройств «Порты (COM и LPT)»
6. Присоединить многожильный кабель обратно к COM-порту
7. Найти новый порт в дереве устройств «Порты (COM и LPT)»

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

Linux

Для определения номера COM порта на ОС Linux необходимо:

1. Обладать правами Root либо пользователь должен входить в группу dialout
2. Убедиться в том, что многожильный кабель подключен к COM-порту
3. Проверить наличие COM портов в системе, введя в командную строку следующую команду:

4. После выполнения команды отобразится список всех доступных COM-портов

dev/ttyS0 — первый COM порт

/dev/ttyS1 — второй COM порт

/dev/ttyUSB0 — специальный кабель-переходник из USB в COM (Gembird UAS111)

5. Установить программу minicom. Для этого вводим следующую команду:

6. Найти многожильный кабель в оплётке длиной 4-6 см.

7. Соединить 2 и 3 выводы COM порта перемычкой из кусочка многожильного провода. Оплётка будет удерживать провод на контактах, а металлические жилы внутри будут проводниками.

8. Настроить программу minicom. Для этого вводим следующую команду:

9. Выбрать «Настройка последовательного порта»

10. Нажимая А поочередно выбираем порты (если используется кабель-переходник из USB в COM то выбрать /dev/ttyUSB0)

11. Отключить аппаратное управление потоком, нажав «F»

12. Выйти из настроек нажав «Enter»

13. Сохранить настройки по умолчанию «Сохранить настройки как dfl»

14. Выйти из minicom

15. Запустить minicom выполнив команду:

16. Нажать на любую клавишу на клавиатуре

В случае, если символы не вводятся с клавиатуры, необходимо вернуться к пункту 10, и выбрать другой COM-порт

Если вводимые символы отображаются — значит COM-порт определен верно

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

Получение списка доступных COM портов

04.01.2018

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

Существует несколько различных способов решения этой задачи. Их все можно условно разделить на «некрасивые» и «красивые».

Первый вариант заключается в том, чтобы зашить в программу самые распространенные номера портов (обычно COM 1, COM 2, COM 3 и некоторые другие). Недостатком этого подхода является то, что вы не всегда можете охватить все доступные порты. Например, я видел системы, на которых встречается порты COM 22, COM 23, COM 24 (порты были виртуальными, но суть вопроса это не меняет). Не будете же вы зашивать столько номеров. А если завтра встретится COM 100?

Второй вариант заключается в проверке большого количества портов на их доступность. Мы просматриваем порты COM 1, COM 2, …. COM 100 и пытаемся открыть каждый из них. Если это удалось, значит, порт есть. У этого подхода несколько недостатков.

Во-первых, такой перебор занимает время, а регулярные вызовы функции CreateFile напрасно расходуют системные ресурсы.

Во-вторых, у данного метода возможны ложные срабатывания. Предположим, пользователь запустил программу, которая заняла порт COM 3. После этого он запустил вашу программу. Разумеется, при попытке открыть порт COM 3 возникнет ошибка, так как он занят другой программой. В результате чего программа решит, что такого порта нет. А он есть.

В-третьих, он не решает проблему охвата всего многообразия возможных портов.

Красивое решение основывается на том факте, что информация о доступных COM портах (в том числе виртуальных) в системах Windows хранится в реестре. Точнее в ветке HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM\. Там COM порты хранятся в виде строк: « COM 1», « COM 2», « COM 3» и т.д. Отсюда сразу возникает решение – нужно перебрать все строковые параметры в данном разделе реестра.

Ниже приводится полный исходный код примера, демонстрирующего данный метод.

В заключение лишь отмечу, что я использую этот подход во многих своих проектах, и он еще ни разу не подводил меня.

Правильное получение списка COM-портов в Delphi

Задачи работы с железом – частая штука для Delphi разработчиков. Но если почти все знают, как работать с COM-портом – открывать его, отправлять и принимать данные, то практически нигде не описан наиболее корректный вариант получения списка портов. Давайте, для начала рассмотрим несколько наиболее часто встречаемые в интернете варианты и попробуем разобраться в них.

Прежде всего определимся, что среди COM-портов в Windows есть 2 типа устройств – непосредственно COM-порты и модемы:

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

Вариант 1. Опрос всех портов по очереди

Решение «в лоб», что называется. Давайте будем открывать по очереди список COM-порты, а какие откроются – выведем в списке. Выглядит как-то так:

Честно говоря, вариант хреноватенький. Из плюсов – разве что очевидная реализация и возможность получить список COM-портов без прав администратора. Минусов тут огромнейшее множество:

• У пользователя может быть, к примеру, виртуальный порт COM158, следовательно циклом в 32 порта не ограничишься, а опрос большого количества портов занимает немало времени.
• Всякие «левые» устройства – виртуальные Bluetooth порты (которые встречаются в каждом втором ноутбуке) и прочее железо может неадекватно реагировать на открытие порта – вплоть до зависания системы.
• Нельзя определить имя устройства в системе и тип устройства (порт или модем)

Как показывает практика (да и здравый смысл тоже), процент зависаний и отказов для такого варианта довольно велик. Так что для коммерческой программы такой вариант вовсе не подойдёт, хотя процент коммерческих программ, опрашивающих таким способом железо, довольно велико.

Вариант 2. Чтение списка из реестра

Оказывается, в ветке HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM хранится список активных портов системы. Можно их просто прочитать и всё будет ок.

Кстати, данный вариант пользуется большой популярностью. Причина тому одна – он быстрый и работал (во времена Windows XP) практически безотказно. Однако и у него есть минусы:

• Во времена Windows XP всё работало безотказно, но поскольку ветка HKEY_LOCAL_MACHINE в Windows Vista, Windows 7 и Windows 8 закрыта для не-админа (не для пользователей группы «Администраторы», а для пользователя аналога root в Linux), то программу приходится запускать от имени администратора. Можно, конечно, добавить manifest, что решит 99% проблем, но останется тот 1% (например, home-версия Windows) и неприятный осадок.
• Нельзя определить имя устройства в системе и тип устройства (порт или модем)

Данный вариант вполне приемлемый для коммерческого решения, однако есть приёмчики получше.

Вариант 3. Правильный. Используем Windows Driver Kit

Наиболее сложный, но и наиболее правильный вариант.

Вызываем следующим образом:

Плюс ко всему, необходим pas-файл для библиотеки SETUPAPI.dll

Плюсы очевидны – работает быстро, стабильно, мы получаем всю необходимую информацию об устройстве, не требует прав администратора.

Минус единственный – для новичка непонятен код.

Выводы

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

Комментарии

@Oleg
Заголовочную библиотеку можно загуглить по названию любой функции.

На днях скину рабочий пример.

Метод 1, однозначно, неприемлем.

Успешно пользуюсь методом 2 под Vista+ x64 без прав администратора. Просто ключ нужно открывать только на чтение (reg.OpenKeyReadOnly)

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

Было бы интересно почитать как определить свободен ли COM-порт (с этим вроде как понятно) и, если занят, то каким приложением (это уже интересно).

@Андрей
Я долгое время пользовался методов 2, пока не встретился с нюансами во всяких Home версиях. Главные плюсы метода 3 — он работает безукоризненно и даёт более информативную картину.

Process Explorer показывает открытые файлы (а значит и COM-порты) и их хендлы. Можно покопать в его сторону или поискать решение на MSDN.

@Станислав
Да, класы самописные. На днях вырежу из готового проекта небольшой пример и закину исходник.

SetupApi тоже закину.

Пришлось писать самому (не без помощи данность статьи,конечно)

Выложу, может кому еще надо:
Получилось примерно так:

// Юнит с нашими функциями
unit detectmodems;

uses
Windows, SysUtils, Forms, SETUPAPI;

type
TGUIDDeviceInfo = record
name: string;
portname: string;
portnumber: integer;
end;

TDevices = array of TGUIDDeviceInfo;

function GetGUIDdevice ():TDevices;

function GetGUIDdevice ():TDevices;
var
Guid : TGUID;
PnPHandle: HDevInfo;
DeviceInfoData : SP_DEVINFO_DATA;
DeviceInterfaceData: SP_DEVICE_INTERFACE_DATA;
i : Cardinal;
Success: LongBool;
DataT, buffersize: Cardinal;
buffer : PByte;
//
hDeviceKey : HKEY;

szData : array[0..255]of Char;
dwType,dwSize : DWORD;
//

PnPHandle:= SetupDiGetClassDevs(@Guid, nil, 0, DIGCF_PRESENT);

Try
i:= 0;
DeviceInfoData.cbSize:= SizeOf(SP_DEVINFO_DATA);
DeviceInterfaceData.cbSize := SizeOf(SP_DEVICE_INTERFACE_DATA);
Repeat
Success:= SetupDiEnumDeviceInfo(PnPHandle, i, DeviceInfoData);

If Success then
begin
buffer:= nil;
buffersize:= 0;

while not SetupDiGetDeviceRegistryProperty(PnPHandle,DeviceInfoData,SPDRP_DEVICEDESC,@DataT,buffer,buffersize,@buffersize)
do begin
if (GetLastError() = ERROR_INSUFFICIENT_BUFFER) then
begin
if (buffer <> nil) then FreeMem(buffer);
buffer:= AllocMem(buffersize);
end
else
begin
break;
end;
end;

//ListBox1.Items.Add(Format(‘%d: %s’,[i, StrPas(PChar(buffer))]));
SetLength(Result,i+1);
Result[i].name:=StrPas(PChar(buffer));
if (buffer <> nil) then FreeMem(buffer);
// Ïûòàåìñÿ íîìåð ïîðòà îïðåäåëèòü

hDeviceKey:=SetupDiOpenDevRegKey(PnPHandle,DeviceInfoData, DICS_FLAG_GLOBAL,0,DIREG_DEV,KEY_QUERY_VALUE);
if(hDeviceKey>0)then
begin

szData[0]:=#0;
dwSize:=sizeof(szData);
dwType:=0;
if(RegQueryValueEx(hDeviceKey,’PortName’,nil,@dwType,@szData,@dwSize)=0)and(dwSize>=2)then
Result[i].portname:=szData;
Result[i].portnumber:=StrToInt(StringReplace(szData, ‘COM’, »,[rfReplaceAll, rfIgnoreCase]));
RegCloseKey(hDeviceKey);
end;

// Ïûòàåìñÿ íîìåð ïîðòà îïðåäåëèòü

End;
Inc(i);
Application.ProcessMessages;
until not Success;

Finally
SetupDiDestroyDeviceInfoList(PnPHandle);
End;
end;

Вызов примерно так:

procedure TMain.sBitBtn2Click(Sender: TObject);
var
mas:TDevices;
i:integer;
begin
mas:=GetGUIDdevice();

for i:=0 to Length(mas)-1 do
begin
sListBox1.Items.Add(intToStr(i+1)+’ ‘+mas[i].name+’ ‘+mas[i].portname+’ ‘+IntToStr(mas[i].portnumber));
end;

@Константин
Вы, наверное, имели в виду диспетчер устройств?

Ни разу не видел, чтобы были COM-порты, которых нет в диспетчере устройств.

@Констатнтин
Интересно, буду в курсе.

Третий способ — это и есть, по сути, то, что использует диспетчер устройств.

Весьма странно, что есть устройство, но его нет в диспетчере устройств.

А если гаджет попал в другую категорию — смотрите GUID класса в диспетчере устройств на вкладке «Сведения».

Ну и касаясь темы статьи — не поминается ещё один способ, минус которого только в отсутствии названий найденных портов. Имеется в виду получение полного списка девайсов через QueryDosDevice и далее вычленение из него строк, начинающихся с COM.

Справедливости ради, есть и ещё способы
http://stackoverflow.com/questions/1388871/how-do-i-get-a-list-of-available-serial-ports-in-win32/1394301#1394301

http://naughter.com/enumser.html
Internally the CEnumerateSerial provides 9 different ways (yes you read that right: Nine) of enumerating serial ports: Using CreateFile, QueryDosDevice, GetDefaultCommConfig, two ways using the Setup API, EnumPorts, WMI, Com Database & enumerating the values under the registry key HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM.

Очень давно с дельфями не работал.
Поэтому приведу маленький пример на билдере, а там и переделать недолго.
Компилируется как в 32, так и в 64 бита.
Единственно что виндовс нужен версии от XP.
Примечателен тем, что крайне прост и находит абсолютно все порты, включая виртуальные не открывая их.

int coms[256]; // Список портов
int comcnt = 0; // Количество портов
int i=0;
int pos;
TCHAR devs[65535];

DWORD dwChars = QueryDosDevice(NULL, devs, 65535);
if(dwChars) <
while(devs[i]) <
UnicodeString str = &devs[i];
if((pos = str.Pos(«COM»))) <
str.Delete(1, pos+2);
try <
coms[comcnt++] = StrToInt(str);
>catch(. )<>
>
while(devs[i++] != _T(‘\0’));
>
>

А вот пример основанный в том числе и на инфе отсюда, только тоже находит все порты включая виртуальные, для наглядности дополнительная инфа о порте сбрасывается в TMemo *m1;
m1 нужно добавить на форму, если хотите посмотреть что находит пример.
Это разумеется необязательно, и порты ищутся только те, что удовлетворяют неким дополнительным условиям, что тоже можно выключить, как и считывание лишних параметров.

static const UnicodeString DESC = L»Arduino Uno»;
static const UnicodeString > static const UnicodeString SERV = L»usbser»;
static const UnicodeString >
UnicodeString strPort;
UnicodeString strDesc;
UnicodeString strClass;
UnicodeString strServ;
UnicodeString strId;
UnicodeString strName;

int coms[256]; // Список портов
int comcnt = 0; // Количество портов
int pos;
bool succ;
HDEVINFO hDevInfo;
SP_DEVINFO_DATA devinfo;
HKEY hKey;
Char bBuf[256];
DWORD dwSize;

m1->Lines->Add(UnicodeString(L»Всего найдено наших портов: «) + comcnt);

Лень было оформлять в виде функций, так, что всё свалено в кучу, и глобальные с локальными переменными и собственно код.
Но там раскидать что куда недолго, зато ничего самописного и не приведённого в примере нет, есть всё необходимое для запуска, даже заголовочный файл.

Чё-то я зарапортовался, оставил кое-что лишнее в первом примере, так что он на самом деле ещё проще:

int coms[256]; // Список портов
int comcnt = 0; // Количество портов
int i=0;
TCHAR devs[65535];