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