Changeset 361 for PersistentData/UPDClient.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Demo for PersistentData package.

File:

• PersistentData/UPDClient.pas (modified) (6 diffs)

PersistentData/UPDClient.pas

@@ -80 +80 @@
   { TPDClient }
 
-  TPDClient = class
+  TPDClient = class(TComponent)
   private
+    FSchema: string;
+    procedure SetConnected(AValue: Boolean);
   protected
     procedure InitSystemTypes; virtual;
     procedure Init; virtual;
     function GetConnected: Boolean; virtual;
+    function GetConnectionString: string; virtual;
+    procedure SetConnectionString(AValue: string); virtual;
   public
-    Host: string;
-    Port: Word;
-    Schema: string;
-    User: string;
-    Password: string;
     Types: TPDTypeList;
     Version: string;
+    BackendName: string;
     procedure ObjectLoad(AObject: TObjectProxy); virtual; abstract;
     procedure ObjectSave(AObject: TObjectProxy); virtual; abstract;
@@ -104 +104 @@
     procedure CheckTypes;
     function TypeExists(Name: string): Boolean; virtual; abstract;
-    constructor Create; virtual;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Connect; virtual;
@@ -111 +111 @@
     procedure Uninstall; virtual;
     procedure Update; virtual;
-    property Connected: Boolean read GetConnected;
-  end;
+  published
+    property Schema: string read FSchema write FSchema;
+    property Connected: Boolean read GetConnected write SetConnected;
+    property ConnectionString: string read GetConnectionString
+      write SetConnectionString;
+  end;
+
+  TPDClientClass = class of TPDClient;
 
 implementation
@@ -238 +244 @@
 
 { TPDClient }
+
+function TPDClient.GetConnectionString: string;
+begin
+  Result := '';
+end;
+
+procedure TPDClient.SetConnectionString(AValue: string);
+begin
+
+end;
+
+procedure TPDClient.SetConnected(AValue: Boolean);
+begin
+  if AValue then Connect else Disconnect;
+end;
 
 procedure TPDClient.InitSystemTypes;
@@ -330 +351 @@
 end;
 
-constructor TPDClient.Create;
-begin
+constructor TPDClient.Create(AOwner: TComponent);
+begin
+  inherited;
   Types := TPDTypeList.Create;
   Types.Client := Self;
@@ -345 +367 @@
 procedure TPDClient.Connect;
 begin
-  raise Exception.Create(SNotSupported);
 end;
 
 procedure TPDClient.Disconnect;
 begin
-  raise Exception.Create(SNotSupported);
 end;