Changeset 52 for trunk/Client/Forms/UFormMain.pas

Timestamp:

Apr 3, 2012, 7:28:01 AM (13 years ago)

Author:

chronos

Message:

• Modified: Code related to persistence layer abstraction moved to separated package PersistentData.

File:

• trunk/Client/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Client/Forms/UFormMain.pas

@@ -92 +92 @@
 uses
   UFormItemView, UFormItemEdit, UFormItemAdd, UFormLogin, UFormSetting, UApplicationInfo,
-  UCore, UFormImportStructure, UFormAbout, UFormLoginProfile, UChronisClientDirect,
-  UChronisClient, UChronisClientMySQL, UChronisClientXMLRPC, UFormMenu;
+  UCore, UFormImportStructure, UFormAbout, UFormLoginProfile, UPDClientIni,
+  UPDClient, UPDClientMySQL, UPDClientXMLRPC, UFormMenu, UPDClientRegistry;
 
 {$R *.lfm}
@@ -241 +241 @@
       with TConnectProfile(Core.Profiles[Core.LastProfile]) do begin
         FreeAndNil(Core.System.Client);
-        if Protocol = cpMySQL then Core.System.Client := TChronisClientMySQL.Create
-          else if Protocol = cpDirect then Core.System.Client := TChronisClientDirect.Create
-          else if Protocol = cpXMLRPC then Core.System.Client := TChronisClientXMLRPC.Create;
+        if Protocol = cpMySQL then Core.System.Client := TPDClientMySQL.Create
+          //else if Protocol = cpDirect then Core.System.Client := TPDClientDirect.Create
+          else if Protocol = cpXMLRPC then Core.System.Client := TPDClientXMLRPC.Create
+          else if Protocol = cpINI then Core.System.Client := TPDClientIni.Create
+          else if Protocol = cpRegistry then Core.System.Client := TPDClientRegistry.Create;
         Core.System.Client.Host := HostName;
         Core.System.Client.Schema := Database;