home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Corba / Datamodule / corbaserver.dpr < prev    next >
Text File  |  1999-08-11  |  904b  |  31 lines
  1. program CORBAServer;
  2.  
  3. {
  4.   This is the CORBA Server part of the demo
  5.   This project is created via the wizard:
  6.   File | New MultiTier | CORBA Data Module.
  7.   'DemoCORBA' was entered as the ClassName.
  8.  
  9.   In order to run the Server, please make sure that
  10.   OSAGENT is either running as a service under NT
  11.   or has been started at the command prompt with a -C option.
  12. }
  13.  
  14. uses
  15.   Forms,
  16.   CORBAServerForm in 'CORBAServerForm.pas' {MainServerForm},
  17.   // The _TLB unit contains the STUB and SKELETON classes for DemoCORBA Object
  18.   CORBAServer_TLB in 'CORBAServer_TLB.pas',
  19.   // The Impl Unit contains the implementation of DemoCORBA Object
  20.   CORBAServerImpl in 'CORBAServerImpl.pas' {DemoCORBA: TCorbaDataModule} {DemoCORBA: CoClass};
  21.  
  22. {$R *.TLB} {CORBA}
  23.  
  24. {$R *.RES}
  25.  
  26. begin
  27.   Application.Initialize;
  28.   Application.CreateForm(TMainServerForm, MainServerForm);
  29.   Application.Run;
  30. end.
  31.