fix(cat): ZZVB копировал VFO при опросе, KY писал в сокет без MSG_NOSIGNAL

Три замечания ревью в 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 <noreply@anthropic.com>

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 был ошибочно заалиашен на неё.)

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 := SockSend(FSocket, @buf[sent + 1], Length(buf) - sent, 0);
-    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}
     if n <= 0 then
     begin
       FMarkDelete := True;