ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 17:27:32 +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
SerialPort.pas
+31 -1
View File
@@ -88,6 +88,14 @@ function SerCFlags(ByteSize: Integer; Parity: TParityType; StopBits: Integer;
Flags: TSerialFlags): Cardinal;
{$ENDIF}
{ Имя устройства в той форме, которую понимает CreateFile под Windows.
★COM10 и выше открываются ТОЛЬКО как \\.\COM10: короткое имя система
резолвит лишь для COM1..COM9, а у USB-переходников номер за десяток заезжает
легко. Функция чистая и считает одинаково на всех платформах (ради стенда),
а зовёт её только Windows-ветка SerOpen: на Unix имя порта — это путь, и
трогать его нечего. }
function SerWinDeviceName(const Name: string): string;
{ Имя порта по умолчанию для настроек и подсказок в UI: у каждой системы своё,
и '/dev/ttyS0' на маке — заведомо неверная подсказка. Index 0..N. }
function SerDefaultPortName(Index: Integer): string;
@@ -128,7 +136,7 @@ end;
function SerOpen(const DeviceName: string): TSerialHandle;
begin
Result := Serial.SerOpen(DeviceName);
Result := Serial.SerOpen(SerWinDeviceName(DeviceName));
// ★RTL под Windows отдаёт 0 при неудаче, под Unix −1. Приводим к одному.
if Result = 0 then Result := SER_INVALID_HANDLE;
end;
@@ -385,6 +393,28 @@ end;
// ── Общее для всех платформ ────────────────────────────────────────────────
function SerWinDeviceName(const Name: string): string;
var
S: string;
i, N: Integer;
begin
Result := Name;
S := Trim(Name);
// Уже полная форма, или это вовсе не COM-порт (например, путь на Unix).
if (Length(S) < 4) or (Copy(S, 1, 4) = '\\.\') then Exit;
if UpperCase(Copy(S, 1, 3)) <> 'COM' then Exit;
N := 0;
for i := 4 to Length(S) do
begin
if (S[i] < '0') or (S[i] > '9') then Exit; // COM3:, COM-что-то — не трогаем
N := N * 10 + (Ord(S[i]) - Ord('0'));
if N > 999 then Exit;
end;
// COM1..COM9 открываются и коротким именем — оставляем как ввёл оператор,
// чтобы не менять поведение там, где оно и так работало.
if N >= 10 then Result := '\\.\' + S;
end;
function SerValid(Handle: TSerialHandle): Boolean;
begin
// Ноль сюда попадает от RTL под Windows (там это признак неудачи) и не может