diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2002-12-02 18:46:49 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2002-12-02 18:46:49 +0000 |
commit | f30b0f426eeb74918c5f2c022ca65840487acf17 (patch) | |
tree | 57de5d719775a2a0fc07ac6e4c7f4854a2382d0a /TAO/examples | |
parent | fa509ce6919aecbf990db899964cc607c97ecbb1 (diff) | |
download | ATCD-f30b0f426eeb74918c5f2c022ca65840487acf17.tar.gz |
ChangeLogTag: Mon Dec 02 18:41:12 UTC 2002 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/examples')
-rw-r--r-- | TAO/examples/Borland/ChatClient.cpp | 8 | ||||
-rw-r--r-- | TAO/examples/Borland/ChatClientWnd.cpp | 6 | ||||
-rw-r--r-- | TAO/examples/Borland/ORBThread.cpp | 2 | ||||
-rw-r--r-- | TAO/examples/Borland/README | 10 |
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. |