Browse Source

Classic GUI discover IP's bug

PascalCoin 7 years ago
parent
commit
992eeb3786
1 changed files with 4 additions and 0 deletions
  1. 4 0
      src/gui-classic/UFRMNodesIp.pas

+ 4 - 0
src/gui-classic/UFRMNodesIp.pas

@@ -67,6 +67,7 @@ uses
 procedure TFRMNodesIp.bbOkClick(Sender: TObject);
 Var nsarr : TNodeServerAddressArray;
   ips : AnsiString;
+  i : Integer;
 begin
   TNode.DecodeIpStringToNodeServerAddressArray(memoNodesIp.Lines.Text,nsarr);
   if (length(nsarr)=0) And (cbTryOnlyWithThisServers.Checked) then begin
@@ -82,6 +83,9 @@ begin
       Application.MessageBox(PChar('Restart application to take effect'),PChar(Application.Title),MB_OK);
     end else begin
       FAppParams.ParamByName[CT_PARAM_TryToConnectOnlyWithThisFixedServers].SetAsString('');
+      for i:=Low(nsarr) to High(nsarr) do begin
+        TNetData.NetData.AddServer(nsarr[i]);
+      end;
       setlength(nsarr,0);
       TNetData.NetData.DiscoverFixedServersOnly(nsarr);
     end;