home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Corba / Account / accountserver.dpr < prev    next >
Text File  |  1999-08-11  |  775b  |  31 lines
  1. program AccountServer;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {
  6.   This Demo demonstrates how to create a Console CORBA Server
  7.   and a Console CORBA Client. In order to run this Server,
  8.   please make sure you have the OSAGENT either started
  9.   up with a -C option on Win95/NT or running as a service under NT.
  10. }
  11.  
  12. uses
  13.   SysUtils,
  14.   CorbaObj,
  15.   // The _TLB unit contains Client's STUB Class and Server's SKELETON Class
  16.   AccountServer_TLB in 'AccountServer_TLB.pas',
  17.   // The Impl Unit contains the Server's Implementation
  18.   AccountServerImpl in 'AccountServerImpl.pas' {Account: CoClass};
  19.  
  20. {$R *.TLB} {CORBA}
  21.  
  22. begin
  23.   CORBAInitialize;
  24.   try
  25.     WriteLn('Account Server is ready');
  26.     BOA.ImplIsReady;
  27.   except
  28.     on E:Exception do WriteLn(E.Message);
  29.   end;
  30. end.
  31.