Changeset 196 for trunk/UServerList.pas

Timestamp:

May 16, 2018, 9:56:24 AM (6 years ago)

Author:

chronos

Message:

• Added: Allow to manage list of servers where to connect as client.

File:

• trunk/UServerList.pas (modified) (4 diffs)

trunk/UServerList.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, contnrs;
+  Classes, SysUtils, fgl, XMLConf;
 
 type
+
+  { TServerInfo }
+
   TServerInfo = class
     Name: string;
@@ -18 +21 @@
     MapName: string;
     Latency: TTime;
+    constructor Create;
   end;
 
-  TServerInfos = class(TObjectList)
+  TServerInfos = class(TFPGObjectList<TServerInfo>)
   end;
 
@@ -31 +35 @@
     constructor Create;
     destructor Destroy; override;
+    procedure LoadConfig(Config: TXmlConfig; Path: string);
+    procedure SaveConfig(Config: TXmlConfig; Path: string);
   end;
 
+
 implementation
+
+uses
+  UGameServer;
+
+{ TServerInfo }
+
+constructor TServerInfo.Create;
+begin
+  Port := DefaultServerPort;
+end;
 
 { TServerList }
@@ -48 +65 @@
 end;
 
+procedure TServerList.LoadConfig(Config: TXmlConfig; Path: string);
+var
+  I: Integer;
+  Server: TServerInfo;
+begin
+  Items.Clear;
+  Items.Count := Config.GetValue(UnicodeString(Path + '/Count'), 0);
+  for I := 0 to Items.Count - 1 do begin
+    Server := TServerInfo.Create;
+    Server.Name := string(Config.GetValue(UnicodeString(Path + '/Item' + IntToStr(I) + '/Name'), ''));
+    Server.Address := string(Config.GetValue(UnicodeString(Path + '/Item' + IntToStr(I) + '/Address'), ''));
+    Server.Port := Config.GetValue(UnicodeString(Path + '/Item' + IntToStr(I) + '/Port'), 0);
+    Items[I] := Server;
+  end;
+end;
+
+procedure TServerList.SaveConfig(Config: TXmlConfig; Path: string);
+var
+  I: Integer;
+  Server: TServerInfo;
+begin
+  Config.SetValue(UnicodeString(Path + '/Count'), Items.Count);
+  for I := 0 to Items.Count - 1 do begin
+    Server := Items[I];
+    Config.SetValue(UnicodeString(Path + '/Item' + IntToStr(I) + '/Name'), UnicodeString(Server.Name));
+    Config.SetValue(UnicodeString(Path + '/Item' + IntToStr(I) + '/Address'), UnicodeString(Server.Address));
+    Config.SetValue(UnicodeString(Path + '/Item' + IntToStr(I) + '/Port'), Server.Port);
+  end;
+end;
+
 end.