| Last change
 on this file since 1617 was             453, checked in by Kevin Toppenberg, 17 years ago | 
        
          | 
Initial upload of TMG-CPRS 1.0.26.69
 | 
        
          | File size:
            1.0 KB | 
      
      
| Rev | Line |  | 
|---|
| [453] | 1 | { ************************************************************** | 
|---|
|  | 2 | Package: XWB - Kernel RPCBroker | 
|---|
|  | 3 | Date Created: Sept 18, 1997 (Version 1.1) | 
|---|
|  | 4 | Site Name: Oakland, OI Field Office, Dept of Veteran Affairs | 
|---|
|  | 5 | Developers: Danila Manapsal, Don Craven, Joel Ivey | 
|---|
|  | 6 | Description: Registers TSharedRPCBroker. | 
|---|
|  | 7 | Current Release: Version 1.1 Patch 40 (January 7, 2005)) | 
|---|
|  | 8 | *************************************************************** } | 
|---|
|  | 9 |  | 
|---|
|  | 10 |  | 
|---|
|  | 11 | unit SharedRPCBrokerReg; | 
|---|
|  | 12 |  | 
|---|
|  | 13 | {$I IISBase.inc} | 
|---|
|  | 14 |  | 
|---|
|  | 15 | interface | 
|---|
|  | 16 |  | 
|---|
|  | 17 | procedure Register; | 
|---|
|  | 18 |  | 
|---|
|  | 19 | implementation | 
|---|
|  | 20 |  | 
|---|
|  | 21 | uses Classes, | 
|---|
|  | 22 | {$IFDEF D6_OR_HIGHER} | 
|---|
|  | 23 | DesignIntf, DesignEditors, DesignMenus, | 
|---|
|  | 24 | {$ELSE} | 
|---|
|  | 25 | DsgnIntf, | 
|---|
|  | 26 | {$ENDIF} | 
|---|
|  | 27 | //kt mod 6/29/07 Remove line --> ExptIntf, //Delphi units | 
|---|
|  | 28 | {$IFDEF D5_OR_HIGHER} | 
|---|
|  | 29 | RPCSharedBrokerSessionMgr1_TLB,             //Broker units | 
|---|
|  | 30 | {$ENDIF} | 
|---|
|  | 31 | SharedRPCBroker; | 
|---|
|  | 32 |  | 
|---|
|  | 33 |  | 
|---|
|  | 34 | procedure Register; | 
|---|
|  | 35 | begin | 
|---|
|  | 36 |  | 
|---|
|  | 37 | {$IFDEF D5_OR_HIGHER} | 
|---|
|  | 38 | RegisterComponents('Kernel',[TSharedRPCBroker, TSharedBroker]); | 
|---|
|  | 39 | {$ELSE} | 
|---|
|  | 40 | RegisterComponents('Kernel',[TSharedRPCBroker]); | 
|---|
|  | 41 | {$ENDIF} | 
|---|
|  | 42 |  | 
|---|
|  | 43 | end; | 
|---|
|  | 44 |  | 
|---|
|  | 45 | end. | 
|---|
|  | 46 |  | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.