summaryrefslogtreecommitdiff
path: root/TAO/examples/Borland
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2002-12-02 18:46:49 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2002-12-02 18:46:49 +0000
commitf30b0f426eeb74918c5f2c022ca65840487acf17 (patch)
tree57de5d719775a2a0fc07ac6e4c7f4854a2382d0a /TAO/examples/Borland
parentfa509ce6919aecbf990db899964cc607c97ecbb1 (diff)
downloadATCD-f30b0f426eeb74918c5f2c022ca65840487acf17.tar.gz
ChangeLogTag: Mon Dec 02 18:41:12 UTC 2002 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/examples/Borland')
-rw-r--r--TAO/examples/Borland/ChatClient.cpp8
-rw-r--r--TAO/examples/Borland/ChatClientWnd.cpp6
-rw-r--r--TAO/examples/Borland/ORBThread.cpp2
-rw-r--r--TAO/examples/Borland/README10
4 files changed, 19 insertions, 7 deletions
diff --git a/TAO/examples/Borland/ChatClient.cpp b/TAO/examples/Borland/ChatClient.cpp
index 454698a9afa..82ec1e253d3 100644
--- a/TAO/examples/Borland/ChatClient.cpp
+++ b/TAO/examples/Borland/ChatClient.cpp
@@ -34,8 +34,8 @@ WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
Application->Initialize ();
Application->Title = "CORBA Chat Client";
- Application->CreateForm (__classid (TChatClientWindow), &ChatClientWindow);
- Application->Run ();
+ Application->CreateForm(__classid(TChatClientWindow), &ChatClientWindow);
+ Application->Run ();
}
catch (Exception &exception)
{
@@ -43,7 +43,7 @@ WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
}
catch (CORBA::Exception &exception)
{
- ShowMessage (String ("CORBA exception: ") + exception._id ());
+ ShowMessage (String ("CORBA exception: ") + exception._rep_id ());
}
catch (...)
{
@@ -53,3 +53,5 @@ WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
return 0;
}
//---------------------------------------------------------------------------
+
+
diff --git a/TAO/examples/Borland/ChatClientWnd.cpp b/TAO/examples/Borland/ChatClientWnd.cpp
index 8d8bf2f6052..1917fb6dbd6 100644
--- a/TAO/examples/Borland/ChatClientWnd.cpp
+++ b/TAO/examples/Borland/ChatClientWnd.cpp
@@ -61,7 +61,7 @@ __fastcall TChatClientWindow::TChatClientWindow (TComponent* Owner)
catch (CORBA::Exception &e)
{
ShowMessage ("CORBA Exception in TChatClientWindow constructor: "
- + String (e._id ()));
+ + String (e._rep_id ()));
throw;
}
}
@@ -94,7 +94,7 @@ void __fastcall TChatClientWindow::FormClose (TObject *Sender,
}
catch (CORBA::Exception &e)
{
- ShowMessage ("CORBA Exception in FormClose: " + String (e._id ()));
+ ShowMessage ("CORBA Exception in FormClose: " + String (e._rep_id ()));
}
}
//---------------------------------------------------------------------------
@@ -110,7 +110,7 @@ void __fastcall TChatClientWindow::InputMemoKeyPress (TObject *Sender, char &Key
}
catch (CORBA::Exception &e)
{
- ShowMessage ("CORBA Exception in InputMemoKeyPress: " + String (e._id ()));
+ ShowMessage ("CORBA Exception in InputMemoKeyPress: " + String (e._rep_id ()));
}
Key = 0;
diff --git a/TAO/examples/Borland/ORBThread.cpp b/TAO/examples/Borland/ORBThread.cpp
index 71b761ffb89..278b384362a 100644
--- a/TAO/examples/Borland/ORBThread.cpp
+++ b/TAO/examples/Borland/ORBThread.cpp
@@ -46,7 +46,7 @@ void __fastcall TORBThread::Execute ()
}
catch (CORBA::Exception& e)
{
- ShowMessage (e._id ());
+ ShowMessage (e._rep_id ());
Application->Terminate ();
}
}
diff --git a/TAO/examples/Borland/README b/TAO/examples/Borland/README
index 603ebd2b070..5e81dd95a76 100644
--- a/TAO/examples/Borland/README
+++ b/TAO/examples/Borland/README
@@ -1,5 +1,15 @@
$Id$
+Before compiling the example in The Borland C++ Builder IDE
+you must generate the client and server stubs using build_idl.bat.
+Please update the location of the tao_idl dependent on your build
+configuration. The default location is for a BCB4 Dynamic Debug
+Pascal configuration.
+
+In the project file you must also update the names of the ACE and
+TAO libraries that you use. The configured names are for the BCB4
+Dynamic Debug Pascal configuration.
+
This directory illustrates how to write a Borland C++ Builder
application using ACE+TAO. Please contact Jody Hagins
<jody@atdesk.com> if you have any questions.