TAO/examples/Borland/ChatClient.cpp

   1 //---------------------------------------------------------------------------
   2 #include "pch.h"
   3 #pragma hdrstop
   4 #include "ace/ace.h"
   5 #include "tao/corba.h"
   6 #include "ChatClientWnd.h"
   7 USEFORM("ChatClientWnd.cpp", ChatClientWindow);
   8 //---------------------------------------------------------------------------
   9 #pragma package(smart_init)
  10
  11 void ace_init(void)
  12 {
  13   ACE::init();
  14 }
  15 #pragma startup ace_init
  16
  17 void ace_fini(void)
  18 {
  19   ACE::fini();
  20 }
  21 #pragma exit ace_fini
  22 //---------------------------------------------------------------------------
  23 WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  24 {
  25   try
  26     {
  27       Application->Initialize ();
  28       Application->Title = "CORBA Chat Client";
  29       Application->CreateForm(__classid(TChatClientWindow), &ChatClientWindow);
  30       Application->Run ();
  31     }
  32   catch (Exception &exception)
  33     {
  34       Application->ShowException (&exception);
  35     }
  36   catch (const CORBA::Exception &exception)
  37     {
  38       ShowMessage (String ("CORBA exception: ") + exception._rep_id ());
  39     }
  40   catch (...)
  41     {
  42       ShowMessage ("Unknown exception");
  43     }
  44
  45   return 0;
  46 }
  47 //---------------------------------------------------------------------------
  48
  49