|
|
@@ -3,62 +3,207 @@ unit Main;
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
|
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
|
|
|
- Quick.Config, Vcl.StdCtrls;
|
|
|
+ Winapi.Windows,
|
|
|
+ Winapi.Messages,
|
|
|
+ System.SysUtils,
|
|
|
+ System.Variants,
|
|
|
+ System.Classes,
|
|
|
+ Vcl.Graphics,
|
|
|
+ Vcl.Controls,
|
|
|
+ Vcl.Forms,
|
|
|
+ Vcl.Dialogs,
|
|
|
+ Vcl.StdCtrls,
|
|
|
+ Quick.Config,
|
|
|
+ Quick.Config.Provider.Registry,
|
|
|
+ System.Generics.Collections,
|
|
|
+ Quick.Config.Provider.Json;
|
|
|
|
|
|
type
|
|
|
|
|
|
+ TMyPriority = (msLow, msMed, msHigh);
|
|
|
+
|
|
|
TWinPos = record
|
|
|
public
|
|
|
PosX : Integer;
|
|
|
PosY : Integer;
|
|
|
end;
|
|
|
|
|
|
+ TProcessType = record
|
|
|
+ Id : Integer;
|
|
|
+ Priority : TMyPriority;
|
|
|
+ Redundant : Boolean;
|
|
|
+ end;
|
|
|
+
|
|
|
+ TWorker = class
|
|
|
+ Name : string;
|
|
|
+ Active : Boolean;
|
|
|
+ end;
|
|
|
+
|
|
|
TMyConfig = class(TAppConfig)
|
|
|
+ private
|
|
|
+ fTitle : string;
|
|
|
+ fHidden : Boolean;
|
|
|
+ fSessionName: string;
|
|
|
public
|
|
|
+ Sizes : array of Integer;
|
|
|
LastFilename : string;
|
|
|
WindowPos : TWinPos;
|
|
|
+ History : array of TProcessType;
|
|
|
+ Complex : TProcessType;
|
|
|
+ ModifyDate : TDateTime;
|
|
|
+ WorkList : TObjectList<TWorker>;
|
|
|
+ destructor Destroy; override;
|
|
|
+ property Title : string read fTitle write fTitle;
|
|
|
+ property SessionName : string read fSessionName write fSessionName;
|
|
|
end;
|
|
|
|
|
|
TMainForm = class(TForm)
|
|
|
meInfo: TMemo;
|
|
|
- btnLoad: TButton;
|
|
|
- btnSave: TButton;
|
|
|
+ btnLoadJson: TButton;
|
|
|
+ btnSaveJson: TButton;
|
|
|
+ btnLoadRegistry: TButton;
|
|
|
+ SaveRegistry: TButton;
|
|
|
procedure FormCreate(Sender: TObject);
|
|
|
- procedure btnLoadClick(Sender: TObject);
|
|
|
- procedure btnSaveClick(Sender: TObject);
|
|
|
- private
|
|
|
- { Private declarations }
|
|
|
- public
|
|
|
- { Public declarations }
|
|
|
+ procedure btnLoadJsonClick(Sender: TObject);
|
|
|
+ procedure btnSaveJsonClick(Sender: TObject);
|
|
|
+ procedure SaveRegistryClick(Sender: TObject);
|
|
|
+ procedure btnLoadRegistryClick(Sender: TObject);
|
|
|
+ procedure SetConfig(cConfig: TMyConfig);
|
|
|
+ function TestConfig(cConfig1, cConfig2: TMyConfig) : Boolean;
|
|
|
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
MainForm: TMainForm;
|
|
|
- MyConfig : TMyConfig;
|
|
|
+ ConfigJson : TMyConfig;
|
|
|
+ ConfigReg : TMyConfig;
|
|
|
+ ConfigTest : TMyConfig;
|
|
|
+ AppConfigJson : TAppConfigJsonProvider<TMyConfig>;
|
|
|
+ AppConfigReg : TAppConfigRegistryProvider<TMyConfig>;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
-procedure TMainForm.btnLoadClick(Sender: TObject);
|
|
|
+procedure TMainForm.btnLoadJsonClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ meInfo.Lines.Add('Load ConfigJson');
|
|
|
+ AppConfigJson.Load(ConfigJson);
|
|
|
+ meInfo.Lines.Add(ConfigJson.ToJSON);
|
|
|
+ if TestConfig(ConfigTest,ConfigJson) then meInfo.Lines.Add('Test passed successfully!');
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TMainForm.btnLoadRegistryClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ meInfo.Lines.Add('Load ConfigReg');
|
|
|
+ AppConfigReg.Load(ConfigReg);
|
|
|
+ meInfo.Lines.Add(ConfigReg.ToJSON);
|
|
|
+ if TestConfig(ConfigTest,ConfigReg) then meInfo.Lines.Add('Test passed successfully!');
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TMainForm.btnSaveJsonClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ SetConfig(ConfigJson);
|
|
|
+ AppConfigJson.Save(ConfigJson);
|
|
|
+ meInfo.Lines.Add('Saved Config in Json at ' + DateTimeToStr(ConfigJson.LastSaved));
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TMainForm.SaveRegistryClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ SetConfig(ConfigReg);
|
|
|
+ AppConfigReg.Save(ConfigReg);
|
|
|
+ meInfo.Lines.Add('Saved Config in Registry at ' + DateTimeToStr(ConfigReg.LastSaved));
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TMainForm.SetConfig(cConfig : TMyConfig);
|
|
|
+var
|
|
|
+ protype : TProcessType;
|
|
|
+ i : Integer;
|
|
|
+ worker : TWorker;
|
|
|
+begin
|
|
|
+ cConfig.LastFilename := 'library.txt';
|
|
|
+ cConfig.Sizes := [23,11,554,12,34,29,77,30,48,59,773,221,98,3,22,983,122,231,433,12,31,987];
|
|
|
+ cConfig.WindowPos.PosX := 640;
|
|
|
+ cConfig.WindowPos.PosX := 480;
|
|
|
+ cConfig.Complex.Priority := msHigh;
|
|
|
+ cConfig.Complex.Redundant := False;
|
|
|
+ cConfig.Title := 'a fresh title';
|
|
|
+ cConfig.SessionName := 'First Session';
|
|
|
+ if Assigned(cConfig.WorkList) then cconfig.WorkList.Free;
|
|
|
+ cConfig.WorkList := TObjectList<TWorker>.Create(True);
|
|
|
+ for I := 0 to 22 do
|
|
|
+ begin
|
|
|
+ worker := TWorker.Create;
|
|
|
+ worker.Name := 'Process ' + i.ToString;
|
|
|
+ worker.Active := Boolean(Random(1));
|
|
|
+ cConfig.WorkList.Add(worker);
|
|
|
+ end;
|
|
|
+ for i := 0 to 15 do
|
|
|
+ begin
|
|
|
+ protype.Id := i;
|
|
|
+ protype.Priority := msLow;
|
|
|
+ protype.Redundant := True;
|
|
|
+ cConfig.History := cConfig.History + [protype];
|
|
|
+ end;
|
|
|
+ cConfig.ModifyDate := Now();
|
|
|
+end;
|
|
|
+
|
|
|
+function TMainForm.TestConfig(cConfig1, cConfig2 : TMyConfig) : Boolean;
|
|
|
+var
|
|
|
+ i : Integer;
|
|
|
begin
|
|
|
- MyConfig.Load(True);
|
|
|
- meInfo.Lines.Text := MyConfig.AsJsonString;
|
|
|
+ try
|
|
|
+ Assert(cConfig1.LastFilename = cConfig2.LastFilename);
|
|
|
+ for i := Low(cConfig1.Sizes) to High(cConfig1.Sizes) do
|
|
|
+ Assert(cConfig1.Sizes[i] = cConfig2.Sizes[i]);
|
|
|
+ Assert(cConfig1.WindowPos.PosX = cConfig2.WindowPos.PosX);
|
|
|
+ Assert(cConfig1.WindowPos.PosX = cConfig2.WindowPos.PosX);
|
|
|
+ Assert(cConfig1.Complex.Priority = cConfig2.Complex.Priority);
|
|
|
+ Assert(cConfig1.Complex.Redundant = cConfig2.Complex.Redundant);
|
|
|
+ Assert(cConfig1.Title = cConfig2.Title);
|
|
|
+ for i := 0 to cConfig1.WorkList.Count - 1 do
|
|
|
+ begin
|
|
|
+ Assert(cConfig1.WorkList[i].Name = cConfig2.WorkList[i].Name);
|
|
|
+ Assert(cConfig1.WorkList[i].Active = cConfig2.WorkList[i].Active);
|
|
|
+ end;
|
|
|
+ for i := 0 to High(cConfig1.History) do
|
|
|
+ begin
|
|
|
+ Assert(cConfig1.History[i].Priority = cConfig2.History[i].Priority);
|
|
|
+ Assert(cConfig1.History[i].Redundant = cConfig2.History[i].Redundant);
|
|
|
+ end;
|
|
|
+ Result := True;
|
|
|
+ except
|
|
|
+ ShowMessage('Configuration not has been saved previously or has a corruption problem');
|
|
|
+ end;
|
|
|
end;
|
|
|
|
|
|
-procedure TMainForm.btnSaveClick(Sender: TObject);
|
|
|
+procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
begin
|
|
|
- MyConfig.LastFilename := 'notes.txt';
|
|
|
- MyConfig.WindowPos.PosX := 200;
|
|
|
- MyConfig.WindowPos.PosX := 100;
|
|
|
- MyConfig.Save;
|
|
|
+ if Assigned(AppConfigJson) then AppConfigJson.Free;
|
|
|
+ if Assigned(AppConfigReg) then AppConfigReg.Free;
|
|
|
+ if Assigned(ConfigTest) then ConfigTest.Free;
|
|
|
+ if Assigned(ConfigReg) then ConfigReg.Free;
|
|
|
+ if Assigned(ConfigJson) then ConfigJson.Free;
|
|
|
end;
|
|
|
|
|
|
procedure TMainForm.FormCreate(Sender: TObject);
|
|
|
begin
|
|
|
- MyConfig := TMyConfig.Create('prueba.json');
|
|
|
+ ConfigTest := TMyConfig.Create;
|
|
|
+ SetConfig(ConfigTest);
|
|
|
+ AppConfigJson := TAppConfigJsonProvider<TMyConfig>.Create(ConfigJson);
|
|
|
+ AppConfigJson.CreateIfNotExists := True;
|
|
|
+ AppConfigJson.Filename := 'Config.json';
|
|
|
+ AppConfigReg := TAppConfigRegistryProvider<TMyConfig>.Create(ConfigReg);
|
|
|
+ AppConfigReg.HRoot := HKEY_CURRENT_USER;
|
|
|
+ AppConfigReg.MainKey := '_AppConfig';
|
|
|
+end;
|
|
|
+
|
|
|
+{ TMyConfig }
|
|
|
+
|
|
|
+destructor TMyConfig.Destroy;
|
|
|
+begin
|
|
|
+ if Assigned(WorkList) then WorkList.Free;
|
|
|
+ inherited;
|
|
|
end;
|
|
|
|
|
|
end.
|
Unknown