Changeset 460 for cprs/branches/foia-cprs/CPRS-Lib/ORNet.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Lib/ORNet.pas (modified) (3 diffs)

cprs/branches/foia-cprs/CPRS-Lib/ORNet.pas

@@ -1 +1 @@
 unit ORNet;
 
+{$DEFINE CCOWBROKER}
+
 interface
 
-uses SysUtils, Windows, Classes, Forms, Controls, ORFn, TRPCB, RPCConf1, Dialogs; //, SharedRPCBroker;
+uses SysUtils, Windows, Classes, Forms, Controls, ORFn, TRPCB, RPCConf1, Dialogs    
+{$IFDEF CCOWBROKER}, CCOWRPCBroker {$ENDIF} ;  //, SharedRPCBroker;
+
 
 procedure SetBrokerServer(const AName: string; APort: Integer; WantDebug: Boolean);
@@ -32 +36 @@
 
 var
-  //RPCBrokerV: TSharedRPCBroker;                        // an RPC Broker object - used by all calls
+{$IFDEF CCOWBROKER}
+  RPCBrokerV: TCCOWRPCBroker;
+{$ELSE}
   RPCBrokerV: TRPCBroker;
+  //RPCBrokerV: TSharedRPCBroker;
+{$ENDIF}
   RPCLastCall: string;
-  
+
 implementation
 
@@ -59 +67 @@
   if RPCBrokerV = nil then
   begin
+{$IFDEF CCOWBROKER}
+    RPCBrokerV := TCCOWRPCBroker.Create(Application);
+{$ELSE}
+    RPCBrokerV := TRPCBroker.Create(Application);
     //RPCBrokerV := TSharedRPCBroker.Create(Application);
-    RPCBrokerV := TRPCBroker.Create(Application);
+{$ENDIF}
     with RPCBrokerV do
     begin