blob: d3090a82aa1322f9f08a4dbb883440d239c296c5 (
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
51
52
53
54
55
56
57
|
// $Id$
//---------------------------------------------------------------------------
#include "pch.h"
#pragma hdrstop
#include "ace/ace.h"
#include "tao/corba.h"
#include "ChatClientWnd.h"
USERES("ChatClient.res");
USEFORM("ChatClientWnd.cpp", ChatClientWindow);
USEUNIT("BroadcasterC.cpp");
USEUNIT("BroadcasterS.cpp");
USEUNIT("ReceiverC.cpp");
USEUNIT("ReceiverS.cpp");
USEUNIT("ReceiverImpl.cpp");
USEUNIT("ORBThread.cpp");
//---------------------------------------------------------------------------
#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;
}
//---------------------------------------------------------------------------
|
