Changeset 45 for trunk/Application/UChronisClient.pas

Timestamp:

Mar 12, 2012, 10:23:40 AM (13 years ago)

Author:

chronos

Message:

• Modified: TChronisBase.Active property control Client connection instead of direct call of Client.Connect and Client.Disconnect methods.

File:

• trunk/Application/UChronisClient.pas (modified) (2 diffs)

trunk/Application/UChronisClient.pas

@@ -112 +112 @@
   end;
 
-
 implementation
 
@@ -251 +250 @@
   NewProxy.Load;
   if NewProxy.Objects.Count > 0 then begin
-    DbVersion := TObjectProxy(NewProxy.Objects[0]).Properties.Values['Version'];
+    NewObject := TObjectProxy.Create;
+    NewObject.Client := Self;
+    NewObject.SchemaName := Schema;
+    NewObject.ObjectName := SystemVersionObject;
+    NewObject.Id := 1;
+    NewObject.Load;
+
+    DbVersion := NewObject.Properties.Values['Version'];
     if Version <> DbVersion then
       raise Exception.Create(Format(SVersionMismatch, [Version, DbVersion]));