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

Timestamp:

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

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fWebTab.pas (modified) (2 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fWebTab.pas

@@ -68 +68 @@
     RPCBrokerV.Param[1].Value := 'R';
     RPCBrokerV.Param[1].ptype := literal;
-    RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
+    //RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
+    CallBroker;
+    if RPCBrokerV.Results.Count > 0 then begin
+      RPCResult := RPCBrokerV.Results.Strings[0];
+    end else begin
+      RPCResult := '';
+    end;
     TMG_URL_RPC_Checked := true;
     TMG_URL_RPC_Available := (RPCResult='1');
@@ -76 +82 @@
     if (URLList <> nil) then begin
       RPCBrokerV.remoteprocedure := 'TMG CPRS GET URL LIST';
-      RPCBrokerV.Call;
+      //RPCBrokerV.Call;
+      CallBroker;
       URLList.Assign(RPCBrokerV.Results);
       if RPCBrokerV.Results.Count>0 then Result := RPCBrokerV.Results.Strings[0]