ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 20:37:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix(serial): COM10 и выше не открывались под Windows

Browse Source 
CreateFile резолвит короткое имя порта только для COM1..COM9 — начиная с
COM10 нужна форма \\.\COM10. У USB-переходников номер за десяток заезжает
легко (воткнули пару кабелей — система выдала COM11), и оператор получал
«не удалось открыть» без всякого объяснения: имя уходило в CreateFile как есть.

SerOpen под Windows пропускает имя через новую чистую SerWinDeviceName:
COM1..COM9 остаются короткими (там и так работало, менять поведение незачем),
COM10 и выше получают префикс, уже полная форма не удваивается, всё, что не
похоже на COM<число> (пути Unix, COM3: с двоеточием), не трогается вовсе.

Функция считает одинаково на всех платформах и потому проверяется стендом на
Linux — 11 проверок в test/serial (итого 47). Подсказка под полем ввода на
Windows уже называет обе формы: «COM3, \\.\COM12».

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Bkwwyj7xVRrqnSVEseTRfV
This commit is contained in:
ew8bak
2026-08-24 22:16:58 +03:00
co-authored by Claude Opus 5
parent 05ba39fdad
commit 53c21223a3
3 changed files with 65 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/serial/serialtest.pas
+28
View File
@@ -120,6 +120,33 @@ begin
fpClose(Master);
end;
// ── A2. Имя устройства для Windows ─────────────────────────────────────────
procedure TestWinName;
// ★COM10 и выше CreateFile открывает ТОЛЬКО в форме \\.\COM10 — короткое имя
// система резолвит лишь для COM1..COM9, а у USB-переходников номер за десяток
// заезжает легко. Функция чистая, поэтому проверяется и на Linux.
begin
WriteLn('A2. Имя устройства для Windows (COM10 и выше)');
Check('COM1 остаётся коротким', SerWinDeviceName('COM1') = 'COM1');
Check('COM9 остаётся коротким', SerWinDeviceName('COM9') = 'COM9');
Check('★COM10 получает префикс',
SerWinDeviceName('COM10') = '\\.\COM10', SerWinDeviceName('COM10'));
Check('COM123 получает префикс',
SerWinDeviceName('COM123') = '\\.\COM123', SerWinDeviceName('COM123'));
Check('строчные буквы тоже узнаются',
SerWinDeviceName('com12') = '\\.\com12', SerWinDeviceName('com12'));
Check('пробелы вокруг имени не мешают',
SerWinDeviceName(' COM12 ') = '\\.\COM12', SerWinDeviceName(' COM12 '));
Check('уже полная форма не удваивается',
SerWinDeviceName('\\.\COM12') = '\\.\COM12');
Check('путь Unix не трогаем',
SerWinDeviceName('/dev/ttyUSB0') = '/dev/ttyUSB0');
Check('/dev/cu.* не трогаем',
SerWinDeviceName('/dev/cu.usbserial-A1') = '/dev/cu.usbserial-A1');
Check('нечисловой хвост не трогаем', SerWinDeviceName('COM3:') = 'COM3:');
Check('пустое имя не ломает', SerWinDeviceName('') = '');
end;
// ── B. Настройка порта ──────────────────────────────────────────────────────
procedure TestParams;
var
@@ -320,6 +347,7 @@ begin
Failed := 0;
WriteLn('=== Стенд последовательного порта (SerialPort.pas на pty) ===');
TestOpen;
TestWinName;
TestParams;
TestIO;
TestCatThrough;