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

Timestamp:

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

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas (modified) (1 diff)

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

@@ -4973 +4973 @@
     RPCBrokerV.Param[1].Value := 'R';
     RPCBrokerV.Param[1].ptype := literal;
-    RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
-    if strtoint(RPCResult) = 1 then begin
-       boolTMGPatchInstalled := True;
+    ///RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
+    CallBroker;
+    if RPCBrokerV.Results.Count>0 then begin
+      RPCResult := RPCBrokerV.Results.Strings[0];
+      boolTMGPatchInstalled := (StrToInt(RPCResult) = 1);
     end else begin
-       boolTMGPatchInstalled := False;
+      boolTMGPatchInstalled := False;
     end;
   end;