fix(settings): профиль устройства уезжал в нулевой MAC при старте по AutoStart

Настройки персистятся секцией по MAC радио, но ResolveDevice брал MAC только из
списка найденных дискавери. У сохранённых устройств поля MAC не было вовсе, и
START по AutoStart/CONNECT без дискавери шёл с MAC 00:00:00:00:00:00 — грузился
и сохранялся чужой профиль. Пользователь видел «настройки сбросились»: выключался
wideband, менялся sample rate, терялись банды и паны, причём в зависимости от
того, нажимал ли он перед стартом DISCOVER.

- DeviceStore: у TSavedDevice поле MAC + persist в hpsdr_devices.ini (MAC=..),
  FindSavedByAddr/SetSavedMac (пишет ini только при изменении), MacIsZero.
- RadioController.ResolveDevice: saved-ветка восстанавливает и MAC.
- RadioController.EnsureDeviceMac: добор неизвестного MAC — найденное в этой
  сессии → ini → короткий служебный поиск в сети (700 мс, unicast на DirectIP,
  OnDeviceFound временно снят, чтобы не трогать список устройств в UI).
- ConnectDevice: добор MAC до Connect, после успеха MAC запоминается за
  сохранённым устройством, так что следующий AutoStart идёт без пробника.

Проверено на железе (ANAN 172.16.2.200): в hpsdr_devices.ini появился
MAC=04:91:62:FD:7B:86, секция нулевого MAC больше не создаётся, старт по
AutoStart и старт после DISCOVER дают один и тот же профиль.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

DeviceStore.pas

@@ -26,6 +26,10 @@ type
     Kind:      TBackendKind;   // bkHPSDR / bkPluto
     URI:       string;         // Pluto: 'ip:..' / 'usb:..'
     Serial:    string;         // Pluto serial
+    // MAC радио, узнанный при прошлом подключении. Настройки персистятся по MAC,
+    // а старт по сохранённому IP (AutoStart/CONNECT) идёт без дискавери — без
+    // этого поля профиль уезжал бы в «нулевой» MAC. Пусто = ещё не знаем.
+    MAC:       array[0..5] of Byte;
   end;
 
   // Найденное устройство (результат discovery)
@@ -78,10 +82,53 @@ type
     function  Discovered(Idx: Integer): TDiscoveredDevice;
     // IP найденного устройства по IP (для preload-rate lookup и т.п.)
     function  FindDiscoveredByIP(const IP: string): Integer;
+
+    // ---- MAC сохранённого устройства ----
+    // Поиск сохранённой записи по IP или URI (Pluto хранит адрес в обоих полях).
+    function  FindSavedByAddr(const Addr: string): Integer;
+    // Запоминает MAC за адресом (после успешного connect). Пишет ini только при
+    // изменении, чтобы не дёргать диск на каждом старте.
+    procedure SetSavedMac(const Addr: string; const MAC: array of Byte);
   end;
 
+// MAC == 00:00:00:00:00:00 — «неизвестен».
+function MacIsZero(const MAC: array of Byte): Boolean;
+
 implementation
 
+function MacIsZero(const MAC: array of Byte): Boolean;
+var I: Integer;
+begin
+  Result := True;
+  for I := 0 to High(MAC) do
+    if MAC[I] <> 0 then Exit(False);
+end;
+
+function MacToIniStr(const MAC: array of Byte): string;
+var I: Integer;
+begin
+  Result := '';
+  for I := 0 to 5 do
+  begin
+    if I > 0 then Result := Result + ':';
+    Result := Result + IntToHex(MAC[I], 2);
+  end;
+end;
+
+procedure IniStrToMac(const S: string; out MAC: array of Byte);
+var Parts: TStringArray; I, V: Integer;
+begin
+  FillChar(MAC[0], 6, 0);
+  Parts := S.Split([':']);
+  if Length(Parts) <> 6 then Exit;
+  for I := 0 to 5 do
+  begin
+    V := StrToIntDef('$' + Parts[I], -1);
+    if (V < 0) or (V > 255) then begin FillChar(MAC[0], 6, 0); Exit; end;
+    MAC[I] := Byte(V);
+  end;
+end;
+
 { TDeviceStore }
 
 constructor TDeviceStore.Create;
@@ -116,6 +163,7 @@ begin
       FSaved[I].Kind      := TBackendKind(Ini.ReadInteger(Section, 'Kind', 0));
       FSaved[I].URI       := Ini.ReadString (Section, 'URI',       '');
       FSaved[I].Serial    := Ini.ReadString (Section, 'Serial',    '');
+      IniStrToMac(Ini.ReadString(Section, 'MAC', ''), FSaved[I].MAC);
       Inc(FSavedCount);
     end;
   finally
@@ -142,6 +190,10 @@ begin
       Ini.WriteInteger(Section, 'Kind',      Ord(FSaved[I].Kind));
       Ini.WriteString (Section, 'URI',       FSaved[I].URI);
       Ini.WriteString (Section, 'Serial',    FSaved[I].Serial);
+      if MacIsZero(FSaved[I].MAC) then
+        Ini.DeleteKey(Section, 'MAC')
+      else
+        Ini.WriteString(Section, 'MAC', MacToIniStr(FSaved[I].MAC));
     end;
   finally
     Ini.Free;
@@ -161,6 +213,7 @@ begin
   begin
     Result.Name := ''; Result.IPAddress := '';
     Result.BoardType := 0; Result.AutoStart := False;
+    FillChar(Result.MAC, SizeOf(Result.MAC), 0);
   end;
 end;
 
@@ -177,6 +230,7 @@ begin
   FSaved[Result].Kind      := bkHPSDR;
   FSaved[Result].URI       := '';
   FSaved[Result].Serial    := '';
+  FillChar(FSaved[Result].MAC, SizeOf(FSaved[Result].MAC), 0);
   SaveSaved;
 end;
 
@@ -193,6 +247,7 @@ begin
   FSaved[Result].Kind      := bkPluto;
   FSaved[Result].URI       := Trim(AURI);
   FSaved[Result].Serial    := Trim(ASerial);
+  FillChar(FSaved[Result].MAC, SizeOf(FSaved[Result].MAC), 0);
   SaveSaved;
 end;
 
@@ -330,4 +385,34 @@ begin
     end;
 end;
 
+function TDeviceStore.FindSavedByAddr(const Addr: string): Integer;
+var
+  I: Integer;
+begin
+  Result := -1;
+  if Trim(Addr) = '' then Exit;
+  for I := 0 to FSavedCount - 1 do
+    if SameText(FSaved[I].IPAddress, Addr) or SameText(FSaved[I].URI, Addr) then
+    begin
+      Result := I;
+      Exit;
+    end;
+end;
+
+procedure TDeviceStore.SetSavedMac(const Addr: string; const MAC: array of Byte);
+var
+  Idx, J: Integer;
+  Cur: array[0..5] of Byte;
+begin
+  if MacIsZero(MAC) then Exit;
+  Idx := FindSavedByAddr(Addr);
+  if Idx < 0 then Exit;
+  FillChar(Cur, SizeOf(Cur), 0);
+  for J := 0 to High(MAC) do
+    if J <= 5 then Cur[J] := MAC[J];
+  if CompareByte(Cur, FSaved[Idx].MAC, 6) = 0 then Exit;   // уже записан
+  Move(Cur[0], FSaved[Idx].MAC[0], 6);
+  SaveSaved;
+end;
+
 end.

RadioController.pas

@@ -821,6 +821,12 @@ type
     // Kind/URI/Serial/BoardType/MAC. Нужно для Pluto (открывается по URI, выбор
     // бэкенда — по Kind). Не найдено → простой HPSDR по IP. Общий путь GUI+демон.
     function  ResolveDevice(const IP: string): THPSDRDevice;
+    // Добирает MAC устройства, если он неизвестен (старт по сохранённому IP /
+    // AutoStart идёт без дискавери). MAC — ключ профиля настроек, без него
+    // настройки уезжают в «нулевой» профиль. Источники по порядку: список
+    // найденного в этой сессии → MAC из hpsdr_devices.ini → короткий поиск в
+    // сети (ответ discovery несёт MAC). False = добыть не удалось.
+    function  EnsureDeviceMac(var Dev: THPSDRDevice): Boolean;
     // Сохраняет устройство по введённому адресу. Схема URI ('ip:'/'usb:'/'local:')
     // → Pluto (AddSavedPluto), иначе HPSDR-IP. Общий путь web-dev_add для GUI и
     // демона (десктоп-диалог сохраняет Pluto своим путём через AddSavedPluto).
@@ -5104,11 +5110,66 @@ begin
       Result.URI       := sd.URI;
       Result.Serial    := sd.Serial;
       Result.BoardType := sd.BoardType;
+      Move(sd.MAC[0], Result.MAC[0], 6);   // MAC с прошлого connect — ключ профиля настроек
       Exit;
     end;
   end;
 end;
 
+function TRadioController.EnsureDeviceMac(var Dev: THPSDRDevice): Boolean;
+// См. комментарий в объявлении. Поиск в сети делаем с временно снятым
+// OnDeviceFound: это служебный пробник, а не пользовательский DISCOVER —
+// список устройств в UI он трогать не должен.
+const
+  MAC_PROBE_MS = 700;   // хватает на LAN: пакет уходит сразу, дальше только ожидание
+var
+  i:      Integer;
+  sd:     TSavedDevice;
+  SavedCb: TOnDeviceFound;
+  SavedIP: string;
+  Found:  THPSDRDeviceArray;
+begin
+  Result := not MacIsZero(Dev.MAC);
+  if Result then Exit;
+
+  i := FDeviceStore.FindDiscoveredByIP(Dev.IPAddress);
+  if (i >= 0) and (not MacIsZero(FDeviceStore.Discovered(i).MAC)) then
+  begin
+    Move(FDeviceStore.Discovered(i).MAC[0], Dev.MAC[0], 6);
+    Exit(True);
+  end;
+
+  i := FDeviceStore.FindSavedByAddr(Dev.IPAddress);
+  if i >= 0 then
+  begin
+    sd := FDeviceStore.Saved(i);
+    if not MacIsZero(sd.MAC) then
+    begin
+      Move(sd.MAC[0], Dev.MAC[0], 6);
+      Exit(True);
+    end;
+  end;
+
+  SavedCb := FNetwork.OnDeviceFound;
+  SavedIP := FNetwork.DirectIP;
+  FNetwork.OnDeviceFound := nil;
+  FNetwork.DirectIP      := Dev.IPAddress;   // unicast — достанет радио и вне broadcast-домена
+  try
+    Found := FNetwork.Discover(MAC_PROBE_MS);
+  finally
+    FNetwork.OnDeviceFound := SavedCb;
+    FNetwork.DirectIP      := SavedIP;
+  end;
+
+  for i := 0 to High(Found) do
+    if SameText(Found[i].IPAddress, Dev.IPAddress) and (not MacIsZero(Found[i].MAC)) then
+    begin
+      Move(Found[i].MAC[0], Dev.MAC[0], 6);
+      if Dev.BoardType = 0 then Dev.BoardType := Found[i].BoardType;
+      Exit(True);
+    end;
+end;
+
 procedure TRadioController.AddSavedDevice(const AName, AAddr: string);
 // web-dev_add: Pluto по схеме URI ('ip:'/'usb:'/'local:'), иначе HPSDR-IP.
 // Serial при ручном добавлении неизвестен (допишется при connect/probe).
@@ -5133,11 +5194,21 @@ function TRadioController.ConnectDevice(const Dev: THPSDRDevice): Boolean;
 // для рендера полей, которых нет в контроллере (FPS/FreqMhzDigits/CAT).
 var
   i: Integer;
+  D: THPSDRDevice;
 begin
+  D := Dev;
   // Подбираем бэкенд под тип устройства (HPSDR/Pluto) до подключения.
-  EnsureBackend(Dev.Kind);
+  EnsureBackend(D.Kind);
-  Result := FNetwork.Connect(Dev);
+  // MAC — ключ профиля настроек. Старт по сохранённому IP (AutoStart/CONNECT без
+  // дискавери) приносит нулевой MAC, и весь профиль устройства уехал бы в чужую
+  // секцию конфига; добираем MAC до Connect.
+  if D.Kind = bkHPSDR then EnsureDeviceMac(D);
+  Result := FNetwork.Connect(D);
   if not Result then Exit;
+  // Узнанный MAC запоминаем за сохранённым устройством — следующий старт по
+  // AutoStart возьмёт его без поиска в сети.
+  if D.IPAddress <> '' then FDeviceStore.SetSavedMac(D.IPAddress, D.MAC)
+  else                      FDeviceStore.SetSavedMac(D.URI, D.MAC);
 
   // --- Загружаем настройки устройства по MAC ---
   Move(FNetwork.Device.MAC[0], FDevMAC[0], 6);

ewsdr.lpi

@@ -17,9 +17,9 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="9"/>
-      <BuildNr Value="277"/>
+      <BuildNr Value="278"/>
     </VersionInfo>
-    <MacroValues Count="108">
+    <MacroValues Count="110">
       <Macro1 Name="LCLWidgetType" Value="qt6"/>
       <Macro2 Name="LCLWidgetType" Value="qt6"/>
       <Macro3 Name="LCLWidgetType" Value="qt6"/>
@@ -128,6 +128,8 @@
       <Macro106 Name="LCLWidgetType" Value="qt6"/>
       <Macro107 Name="LCLWidgetType" Value="qt6"/>
       <Macro108 Name="LCLWidgetType" Value="qt6"/>
+      <Macro109 Name="LCLWidgetType" Value="qt6"/>
+      <Macro110 Name="LCLWidgetType" Value="qt6"/>
     </MacroValues>
     <BuildModes>
       <Item Name="Debug" Default="True"/>