Changeset 361 for PersistentData/Backend

Timestamp:

May 8, 2012, 10:24:35 PM (13 years ago)

Author:

chronos

Message:

• Added: Demo for PersistentData package.

Location:

PersistentData/Backend

Files:

• UPDClientINI.pas (modified) (2 diffs)
• UPDClientMemory.pas (added)
• UPDClientMySQL.pas (modified) (4 diffs)
• UPDClientRegistry.pas (modified) (2 diffs)
• UPDClientXMLRPC.pas (modified) (2 diffs)

PersistentData/Backend/UPDClientINI.pas

@@ -13 +13 @@
 
   TPDClientINI = class(TPDClient)
+  public
     IniFile: TIniFile;
     //procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
     //procedure SetItemList(Condition: TCondition; ItemList: TItemList); override;
     FileName: string;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Connect; override;
@@ -39 +40 @@
 end;*)
 
-constructor TPDClientINI.Create;
+constructor TPDClientINI.Create(AOwner: TComponent);
 begin
-  inherited Create;
+  inherited;
+  BackendName := 'INI';
 end;
 

PersistentData/Backend/UPDClientMySQL.pas

@@ -14 +14 @@
   TPDClientMySQL = class(TPDClient)
   protected
+    FHost: string;
+    FPort: Word;
+    FUser: string;
+    FPassword: string;
+    FDatabase: TSqlDatabase;
     procedure InitSystemTypes; override;
     function GetConnected: Boolean; override;
     procedure Init; override;
   public
-    Database: TSqlDatabase;
     procedure ObjectLoad(AObject: TObjectProxy); override;
     procedure ObjectSave(AObject: TObjectProxy); override;
@@ -29 +33 @@
     procedure Install;
     procedure Uninstall;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Connect; override;
     procedure Disconnect; override;
+  published
+    property Database: TSqlDatabase read FDatabase write FDatabase;
+    property Host: string read FHost write FHost;
+    property Port: Word read FPort write FPort;
+    property User: string read FUser write FUser;
+    property Password: string read FPassword write FPassword;
   end;
 
@@ -236 +246 @@
 end;
 
-constructor TPDClientMySQL.Create;
+constructor TPDClientMySQL.Create(AOwner: TComponent);
 begin
   inherited;
-  Database := TSqlDatabase.Create(nil);
+  FDatabase := TSqlDatabase.Create(nil);
+  BackendName := 'MySQL';
 end;
 
 destructor TPDClientMySQL.Destroy;
 begin
-  FreeAndNil(Database);
+  FreeAndNil(FDatabase);
   inherited Destroy;
 end;
@@ -250 +261 @@
 procedure TPDClientMySQL.Connect;
 begin
-  Database.Port := Port;
-  Database.UserName := User;
-  Database.Password := Password;
-  Database.HostName := Host;
-  Database.Database := Schema;
-  Database.Connect;
-  Init;
+  if not Connected then begin
+    Database.Port := Port;
+    Database.UserName := User;
+    Database.Password := Password;
+    Database.HostName := Host;
+    Database.Database := Schema;
+    Database.Connect;
+    Init;
+  end;
 end;
 
 procedure TPDClientMySQL.Disconnect;
 begin
-  Database.Disconnect;
+  if Connected then Database.Disconnect;
 end;
 

PersistentData/Backend/UPDClientRegistry.pas

@@ -16 +16 @@
     //procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
     //procedure SetItemList(Condition: TCondition; ItemList: TItemList); override;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -36 +36 @@
 end;*)
 
-constructor TPDClientRegistry.Create;
+constructor TPDClientRegistry.Create(AOwner: TComponent);
 begin
+  inherited;
   Reg := TRegistry.Create;
-  inherited Create;
+  BackendName := 'Windows registry';
 end;
 

PersistentData/Backend/UPDClientXMLRPC.pas

@@ -13 +13 @@
 
   TPDClientXMLRPC = class(TPDClient)
+    constructor Create(AOwner: TComponent); override;
   end;
 
@@ -18 +19 @@
 
 
+{ TPDClientXMLRPC }
+
+constructor TPDClientXMLRPC.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  BackendName := 'XMLRPC';
+end;
+
 end.