Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/uTMGOptions.pas

Timestamp:

Jun 10, 2010, 3:13:12 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/uTMGOptions.pas (modified) (4 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/uTMGOptions.pas

@@ -41 +41 @@
     RPCBrokerV.Param[1].Value := 'R';
     RPCBrokerV.Param[1].ptype := literal;
-    //RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
-    USE_SERVER_INI := StrToBool(RPCBrokerV.StrCall);
+    //RPCResult := RPCBrokerV.StrCall;
+    CallBroker;
+    if RPCBrokerV.Results.Count >0 then begin
+      USE_SERVER_INI := StrToBool(RPCBrokerV.Results.Strings[0]);  {returns 1 if available, 0 if not available}
+    end else begin
+      USE_SERVER_INI := false;
+    end;
     Initialized := true;
   end;
@@ -55 +60 @@
     RPCBrokerV.Param[2].Value := Value;
     RPCBrokerV.Param[2].ptype := literal;
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
   end;
 
@@ -67 +73 @@
     RPCBrokerV.Param[2].ptype := literal;
     RPCBrokerV.param[2].value := Default;
-    Result := Piece(RPCBrokerV.StrCall,'^',2);
+    //Result := Piece(RPCBrokerV.StrCall,'^',2);
+    CallBroker;
+    if RPCBrokerV.Results.Count > 0 then begin
+      Result := Piece(RPCBrokerV.Results.Strings[0],'^',2);
+    end else begin
+      Result := Default;
+    end;
   end;
 
@@ -94 +106 @@
   Procedure WriteInteger(const Key: String; Value: Integer; AsDefault : boolean = false);
   begin
-    if Initialized = False then TMGOptionsInitialize;
+   if Initialized = False then TMGOptionsInitialize;
     if AsDefault then begin
       if USE_SERVER_INI then begin