From fe6fb9e292cecf41d88a3f1cfa3109c6bc6750ec Mon Sep 17 00:00:00 2001 From: Vladimir Date: Thu, 20 Aug 2026 10:44:14 +0300 Subject: [PATCH] =?UTF-8?q?fix(cat):=20ZZVB=20=D0=BA=D0=BE=D0=BF=D0=B8?= =?UTF-8?q?=D1=80=D0=BE=D0=B2=D0=B0=D0=BB=20VFO=20=D0=BF=D1=80=D0=B8=20?= =?UTF-8?q?=D0=BE=D0=BF=D1=80=D0=BE=D1=81=D0=B5,=20KY=20=D0=BF=D0=B8=D1=81?= =?UTF-8?q?=D0=B0=D0=BB=20=D0=B2=20=D1=81=D0=BE=D0=BA=D0=B5=D1=82=20=D0=B1?= =?UTF-8?q?=D0=B5=D0=B7=20MSG=5FNOSIGNAL?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Три замечания ревью в CAT-слое. ZZVB. Команда была переписана под заглушку VAC (усиление приёма в виртуальном кабеле, которого у нас нет), но заменили только комментарий — тело осталось прежним, от старого ошибочного алиаса «обмен VFO». А ветка с пустым суффиксом — это ФОРМА ОПРОСА: логгер, который просто спрашивает «ZZVB;», молча затирал VFO B частотой VFO A, то есть терял сплит оператора и даже не получал в ответ ошибку. Соседи по этому же диффу (ZZVA, ZZVG, ZZVS, ZZAA, ZZAP, ZZBI, ZZBM, ZZDN, ZZMA, ZZMV, ZZQM, ZZOA, ZZPO, ZZSR) тело получили, ZZVB — нет. Теперь это строчная заглушка в таблице, рядом с ZZVC и ZZVD, которые про тот же несуществующий VAC. ZZEB. Число полос эквалайзера принималось любое из 0..10 и уходило прямо в TTXSettings.EQNumBands, то есть в СОХРАНЯЕМЫЙ TX-профиль. Потребители знают ровно два случая: WDSPEngine.PushTXEQProfile ветвится на «3», редактор в настройках — на 3 и 10. «ZZEB000…;» записывал ноль полос, всё прочее тихо играло по полной 11-узловой кривой с чужой подписью. Принимаем только 3 и 10. CATTcp.SendStr. Писал в сокет голым fpSend/send с флагами 0. В этой же ветке WebUtils.SockSend получил MSG_NOSIGNAL ровно потому, что запись в закрытый клиентом сокет иначе приходит как SIGPIPE, а он по умолчанию убивает процесс целиком; обработчика сигнала в дереве нет. CAT про это забыли, а добавленный здесь же цикл дозаписи расширил окно: длинный ответ (IF, ZZEB, список режимов) уходит теперь несколькими send, и каждый может застать клиента уже ушедшим. Пишем через WebUtils.SockSend — заодно ушла платформенная развилка. Co-Authored-By: Claude Opus 5 --- CATEngine.pas | 18 +++++------------- CATTcp.pas | 12 +++++------- 2 files changed, 10 insertions(+), 20 deletions(-) diff --git a/CATEngine.pas b/CATEngine.pas index 3903a54..3bedc2a 100644 --- a/CATEngine.pas +++ b/CATEngine.pas @@ -408,7 +408,6 @@ type function ZZUX(const s: string): string; function ZZUY(const s: string): string; function ZZVA(const s: string): string; - function ZZVB(const s: string): string; function ZZVG(const s: string): string; function ZZVN: string; function ZZVS(const s: string): string; @@ -1583,7 +1582,7 @@ begin else if ext = 'UX' then ans := ZZUX(s) else if ext = 'UY' then ans := ZZUY(s) else if ext = 'VA' then ans := ZZVA(s) - else if ext = 'VB' then ans := ZZVB(s) + else if ext = 'VB' then ans := '' // STUB: усиление приёма в VAC — VAC нет else if ext = 'VC' then ans := '' // STUB: усиление передачи в VAC — VAC нет else if ext = 'VD' then ans := '' // STUB: частота дискретизации VAC — VAC нет else if ext = 'VE' then ans := '' // STUB: кнопка VOX — VOX нет @@ -1956,7 +1955,10 @@ begin end; if Length(s) <> 36 then Exit(CAT_ERROR); if not TryStrToInt(Copy(s, 1, 3), nb) then Exit(CAT_ERROR); - if (nb < 0) or (nb > High(G)) then Exit(CAT_ERROR); + // Сетка эквалайзера бывает только трёх- или десятиполосной: движок + // (PushTXEQProfile) и редактор в настройках знают ровно эти два случая, + // любое другое число полос уехало бы в сохранённый TX-профиль мусором. + if (nb <> 3) and (nb <> 10) then Exit(CAT_ERROR); FillChar(G, SizeOf(G), 0); for i := 0 to nb do begin @@ -2590,16 +2592,6 @@ begin Result := OnOff(s, nil, nil); end; -function TCATEngine.ZZVB(const s: string): string; -// ZZVB: усиление приёма в VAC — STUB: виртуального аудиокабеля нет. -begin - if Length(s) = 0 then begin - if Assigned(FCtx.GetVfoA) and Assigned(FCtx.SetVfoB) then - FCtx.SetVfoB(FCtx.GetVfoA); - Result := ''; - end else Result := CAT_ERROR; -end; - function TCATEngine.ZZVG(const s: string): string; // ZZVG: усиление VOX — STUB: VOX'а нет. // (Громкость — это ZZAG; раньше ZZVG был ошибочно заалиашен на неё.) diff --git a/CATTcp.pas b/CATTcp.pas index 0f2a2cc..1faef61 100644 --- a/CATTcp.pas +++ b/CATTcp.pas @@ -21,7 +21,7 @@ interface uses Classes, SysUtils, - WebUtils, // SockClose, SockShutdown, SOCK_INVALID + WebUtils, // SockClose, SockShutdown, SockSend, SOCK_INVALID {$IFDEF MSWINDOWS} Windows, WinSock2, {$ELSE} @@ -164,6 +164,9 @@ procedure TCATTcpClientThread.SendStr(const S: string); // TCP не обязан отдавать весь буфер за один send: длинный ответ (IF, ZZEB, // список режимов) мог уехать обрезанным — и молча, потому что усечение здесь // не ошибка. Дописываем остаток, пока он есть. +// Пишем через WebUtils.SockSend, а не голым fpSend: он ставит MSG_NOSIGNAL. +// Без него запись в закрытый клиентом сокет — SIGPIPE, а тот по умолчанию +// убивает весь процесс; с ним send просто вернёт -1, и клиент выбрасывается. var buf: AnsiString; sent, n: Integer; @@ -174,12 +177,7 @@ begin sent := 0; while sent < Length(buf) do begin - {$IFDEF MSWINDOWS} - n := send(FSocket, buf[sent + 1], Length(buf) - sent, 0); - if n = SOCKET_ERROR then n := -1; - {$ELSE} - n := fpSend(FSocket, @buf[sent + 1], Length(buf) - sent, 0); - {$ENDIF} + n := SockSend(FSocket, @buf[sent + 1], Length(buf) - sent, 0); if n <= 0 then begin FMarkDelete := True;