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(cat): ZZVB копировал VFO при опросе, KY писал в сокет без MSG_NOSIGNAL

Browse Source 
Три замечания ревью в 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>
This commit is contained in:
ew8bak
2026-08-20 10:44:14 +03:00
co-authored by Claude Opus 5
parent 84b90b23c0
commit fe6fb9e292
2 changed files with 10 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CATTcp.pas
+5 -7
View File
@@ -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;