Changeset 1679 for cprs/trunk/CPRS-Lib/ORNet.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Lib/ORNet.pas (modified) (5 diffs)

cprs/trunk/CPRS-Lib/ORNet.pas

@@ -1 +1 @@
 unit ORNet;
 
-{$DEFINE CCOWBROKER}
+//{$DEFINE CCOWBROKER}
 
 interface
 
-uses SysUtils, Windows, Classes, Forms, Controls, ORFn, TRPCB, RPCConf1, Dialogs    
-{$IFDEF CCOWBROKER}, CCOWRPCBroker {$ENDIF} ;  //, SharedRPCBroker;
+uses SysUtils, Windows, Classes, Forms, Controls, ORFn, TRPCB, RPCConf1, Dialogs
+      ;  //, SharedRPCBroker;
 
 
@@ -26 +26 @@
 function DottedIPStr: string;
 procedure CallRPCWhenIdle(CallProc: TORIdleCallProc; Msg: String);
+function ShowRPCList: Boolean;
 
 procedure EnsureBroker;
@@ -36 +37 @@
 
 var
-{$IFDEF CCOWBROKER}
-  RPCBrokerV: TCCOWRPCBroker;
-{$ELSE}
   RPCBrokerV: TRPCBroker;
-  //RPCBrokerV: TSharedRPCBroker;
-{$ENDIF}
   RPCLastCall: string;
 
@@ -69 +65 @@
   if RPCBrokerV = nil then
   begin
-{$IFDEF CCOWBROKER}
-    RPCBrokerV := TCCOWRPCBroker.Create(Application);
-{$ELSE}
     RPCBrokerV := TRPCBroker.Create(Application);
-    //RPCBrokerV := TSharedRPCBroker.Create(Application);
-{$ENDIF}
     with RPCBrokerV do
     begin
@@ -512 +503 @@
 end;
 
+function ShowRPCList: Boolean;
+begin
+  if uShowRPCS then Result := True
+  else Result := False;
+end;
+
+
 initialization
   RPCBrokerV := nil;
   RPCLastCall := 'No RPCs called';
   uCallList := TList.Create;
-  uMaxCalls := 10;
+  uMaxCalls := 100;
   uShowRPCs := False;