samples/ipc/client.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        client.cpp
   3 // Purpose:     DDE sample: client
   4 // Author:      Julian Smart
   5 // Modified by:    Jurgen Doornik
   6 // Created:     25/01/99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // ============================================================================
  13 // declarations
  14 // ============================================================================
  15
  16 // ----------------------------------------------------------------------------
  17 // headers
  18 // ----------------------------------------------------------------------------
  19
  20 // For compilers that support precompilation, includes "wx.h".
  21 #include "wx/wxprec.h"
  22
  23 #ifdef __BORLANDC__
  24     #pragma hdrstop
  25 #endif
  26
  27 #ifndef WX_PRECOMP
  28     #include "wx/wx.h"
  29 #endif
  30
  31 // Settings common to both executables: determines whether
  32 // we're using TCP/IP or real DDE.
  33 #include "ipcsetup.h"
  34
  35 #if defined(__WXGTK__) || defined(__WXX11__) || defined(__WXMOTIF__) || defined(__WXMAC__)
  36 #include "mondrian.xpm"
  37 #endif
  38
  39 #include "wx/datetime.h"
  40 #include "client.h"
  41
  42 // ----------------------------------------------------------------------------
  43 // wxWin macros
  44 // ----------------------------------------------------------------------------
  45
  46 IMPLEMENT_APP(MyApp)
  47
  48 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
  49     EVT_MENU(wxID_EXIT, MyFrame::OnExit)
  50     EVT_CLOSE( MyFrame::OnClose )
  51     EVT_BUTTON( ID_START,       MyFrame::OnStart )
  52     EVT_CHOICE( ID_SERVERNAME,  MyFrame::OnServername )
  53     EVT_CHOICE( ID_HOSTNAME,    MyFrame::OnHostname )
  54     EVT_CHOICE( ID_TOPIC,       MyFrame::OnTopic )
  55     EVT_BUTTON( ID_DISCONNECT,  MyFrame::OnDisconnect )
  56     EVT_BUTTON( ID_STARTADVISE, MyFrame::OnStartAdvise )
  57     EVT_BUTTON( ID_STOPADVISE,  MyFrame::OnStopAdvise )
  58     EVT_BUTTON( ID_POKE,        MyFrame::OnPoke )
  59     EVT_BUTTON( ID_EXECUTE,     MyFrame::OnExecute )
  60     EVT_BUTTON( ID_REQUEST,     MyFrame::OnRequest )
  61 END_EVENT_TABLE()
  62
  63 // ----------------------------------------------------------------------------
  64 // globals
  65 // ----------------------------------------------------------------------------
  66
  67 // ============================================================================
  68 // implementation
  69 // ============================================================================
  70
  71 // ----------------------------------------------------------------------------
  72 // MyApp
  73 // ----------------------------------------------------------------------------
  74
  75 // The `main program' equivalent, creating the windows and returning the
  76 // main frame
  77 bool MyApp::OnInit()
  78 {
  79     if ( !wxApp::OnInit() )
  80         return false;
  81
  82     // Create the main frame window
  83     m_frame = new MyFrame(NULL, _T("Client"));
  84     m_frame->Show(true);
  85
  86     return true;
  87 }
  88
  89 int MyApp::OnExit()
  90 {
  91
  92     return 0;
  93 }
  94
  95 // Define my frame constructor
  96 MyFrame::MyFrame(wxFrame *frame, const wxString& title)
  97         : wxFrame(frame, wxID_ANY, title, wxDefaultPosition, wxSize(400, 300))
  98 {
  99     // Give it an icon
 100     SetIcon(wxICON(mondrian));
 101
 102     // Make a menubar
 103     wxMenu *file_menu = new wxMenu;
 104
 105     file_menu->Append(wxID_EXIT, _T("&Quit\tCtrl-Q"));
 106
 107     wxMenuBar *menu_bar = new wxMenuBar;
 108
 109     menu_bar->Append(file_menu, _T("&File"));
 110
 111     // Associate the menu bar with the frame
 112     SetMenuBar(menu_bar);
 113
 114     // set a dialog background
 115     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE));
 116
 117     // add the controls to the frame
 118     wxString strs4[] =
 119     {
 120         IPC_SERVICE, _T("...")
 121     };
 122     wxString strs5[] =
 123     {
 124         IPC_HOST, _T("...")
 125     };
 126     wxString strs6[] =
 127     {
 128         IPC_TOPIC, _T("...")
 129     };
 130
 131     wxBoxSizer *item0 = new wxBoxSizer( wxVERTICAL );
 132
 133     wxBoxSizer *item1 = new wxBoxSizer( wxHORIZONTAL );
 134
 135     wxGridSizer *item2 = new wxGridSizer( 4, 0, 0 );
 136
 137     wxButton *item3 = new wxButton( this, ID_START, wxT("Connect to server"), wxDefaultPosition, wxDefaultSize, 0 );
 138     item2->Add( item3, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 139
 140     wxChoice *item5 = new wxChoice( this, ID_HOSTNAME, wxDefaultPosition, wxSize(100,-1), 2, strs5, 0 );
 141     item2->Add( item5, 0, wxALIGN_CENTER|wxALL, 5 );
 142
 143     wxChoice *item4 = new wxChoice( this, ID_SERVERNAME, wxDefaultPosition, wxSize(100,-1), 2, strs4, 0 );
 144     item2->Add( item4, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 145
 146     wxChoice *item6 = new wxChoice( this, ID_TOPIC, wxDefaultPosition, wxSize(100,-1), 2, strs6, 0 );
 147     item2->Add( item6, 0, wxALIGN_CENTER|wxALL, 5 );
 148
 149     wxButton *item7 = new wxButton( this, ID_DISCONNECT, wxT("Disconnect "), wxDefaultPosition, wxDefaultSize, 0 );
 150     item2->Add( item7, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 151
 152     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 153
 154     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 155
 156     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 157
 158     wxButton *item8 = new wxButton( this, ID_STARTADVISE, wxT("StartAdvise"), wxDefaultPosition, wxDefaultSize, 0 );
 159     item2->Add( item8, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 160
 161     wxButton *item9 = new wxButton( this, ID_STOPADVISE, wxT("StopAdvise"), wxDefaultPosition, wxDefaultSize, 0 );
 162     item2->Add( item9, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 163
 164     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 165
 166     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 167
 168     wxButton *item10 = new wxButton( this, ID_EXECUTE, wxT("Execute"), wxDefaultPosition, wxDefaultSize, 0 );
 169     item2->Add( item10, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 170
 171     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 172
 173     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 174
 175     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 176
 177     wxButton *item11 = new wxButton( this, ID_POKE, wxT("Poke"), wxDefaultPosition, wxDefaultSize, 0 );
 178     item2->Add( item11, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 179
 180     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 181
 182     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 183
 184     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 185
 186     wxButton *item12 = new wxButton( this, ID_REQUEST, wxT("Request"), wxDefaultPosition, wxDefaultSize, 0 );
 187     item2->Add( item12, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 188
 189     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 190
 191     item1->Add( item2, 1, wxALIGN_CENTER|wxALL, 5 );
 192
 193     item0->Add( item1, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 194
 195     wxStaticBox *item14 = new wxStaticBox( this, -1, wxT("Client log") );
 196     wxStaticBoxSizer *item13 = new wxStaticBoxSizer( item14, wxVERTICAL );
 197
 198     wxTextCtrl *item15 = new wxTextCtrl( this, ID_LOG, wxEmptyString, wxDefaultPosition, wxSize(500,140), wxTE_MULTILINE );
 199     item13->Add( item15, 1, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 200
 201     item0->Add( item13, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 202
 203     this->SetSizer( item0 );
 204     item0->SetSizeHints( this );
 205
 206     // status
 207     m_client = NULL;
 208     GetServername()->SetSelection(0);
 209     GetHostname()->SetSelection(0);
 210     GetTopic()->SetSelection(0);
 211     wxLogTextCtrl *logWindow = new wxLogTextCtrl(GetLog());
 212     delete wxLog::SetActiveTarget(logWindow);
 213     wxLogMessage(_T("Click on Connect to connect to the server"));
 214     EnableControls();
 215 }
 216
 217 void MyFrame::EnableControls()
 218 {
 219     GetStart()->Enable(m_client == NULL);
 220     GetServername()->Enable(m_client == NULL);
 221     GetHostname()->Enable(m_client == NULL);
 222     GetTopic()->Enable(m_client == NULL);
 223
 224     const bool isConnected = (m_client != NULL && m_client->IsConnected());
 225     GetDisconnect()->Enable(m_client != NULL && isConnected);
 226     GetStartAdvise()->Enable(m_client != NULL && isConnected);
 227     GetStopAdvise()->Enable(m_client != NULL && isConnected);
 228     GetExecute()->Enable(m_client != NULL && isConnected);
 229     GetPoke()->Enable(m_client != NULL && isConnected);
 230     GetRequest()->Enable(m_client != NULL && isConnected);
 231 }
 232
 233 void MyFrame::OnClose(wxCloseEvent& event)
 234 {
 235     if (m_client)
 236     {
 237         delete m_client;
 238         m_client = NULL;
 239     }
 240     event.Skip();
 241 }
 242
 243 void MyFrame::OnExit(wxCommandEvent& WXUNUSED(event))
 244 {
 245     Close();
 246 }
 247
 248 void MyFrame::OnStart(wxCommandEvent& WXUNUSED(event))
 249 {
 250     // Connect to the client
 251     wxString servername = GetServername()->GetStringSelection();
 252     wxString hostname = GetHostname()->GetStringSelection();
 253     wxString topic = GetTopic()->GetStringSelection();
 254
 255     m_client = new MyClient;
 256     bool retval = m_client->Connect(hostname, servername, topic);
 257
 258     wxLogMessage(_T("Client host=\"%s\" port=\"%s\" topic=\"%s\" %s"),
 259         hostname.c_str(), servername.c_str(), topic.c_str(),
 260         retval ? _T("connected") : _T("failed to connect"));
 261
 262     if (!retval)
 263     {
 264         delete m_client;
 265         m_client = NULL;
 266     }
 267     EnableControls();
 268 }
 269
 270 void MyFrame::OnServername( wxCommandEvent& WXUNUSED(event) )
 271 {
 272     if (GetServername()->GetStringSelection() == _T("..."))
 273     {
 274         wxString s = wxGetTextFromUser(_T("Specify the name of the server"),
 275             _T("Server Name"), wxEmptyString, this);
 276         if (!s.IsEmpty() && s != IPC_SERVICE)
 277         {
 278             GetServername()->Insert(s, 0);
 279             GetServername()->SetSelection(0);
 280         }
 281     }
 282 }
 283
 284 void MyFrame::OnHostname( wxCommandEvent& WXUNUSED(event) )
 285 {
 286     if (GetHostname()->GetStringSelection() == _T("..."))
 287     {
 288         wxString s = wxGetTextFromUser(_T("Specify the name of the host (ignored under DDE)"),
 289             _T("Host Name"), wxEmptyString, this);
 290         if (!s.IsEmpty() && s != IPC_HOST)
 291         {
 292             GetHostname()->Insert(s, 0);
 293             GetHostname()->SetSelection(0);
 294         }
 295     }
 296 }
 297
 298 void MyFrame::OnTopic( wxCommandEvent& WXUNUSED(event) )
 299 {
 300     if (GetTopic()->GetStringSelection() == _T("..."))
 301     {
 302         wxString s = wxGetTextFromUser(_T("Specify the name of the topic"),
 303             _T("Topic Name"), wxEmptyString, this);
 304         if (!s.IsEmpty() && s != IPC_TOPIC)
 305         {
 306             GetTopic()->Insert(s, 0);
 307             GetTopic()->SetSelection(0);
 308         }
 309     }
 310 }
 311
 312 void MyFrame::OnDisconnect(wxCommandEvent& WXUNUSED(event))
 313 {
 314     Disconnect();
 315 }
 316
 317 void MyFrame::Disconnect()
 318 {
 319     delete m_client;
 320     m_client = NULL;
 321     EnableControls();
 322 }
 323
 324 void MyFrame::OnStartAdvise(wxCommandEvent& WXUNUSED(event))
 325 {
 326     m_client->GetConnection()->StartAdvise(_T("something"));
 327 }
 328
 329 void MyFrame::OnStopAdvise(wxCommandEvent& WXUNUSED(event))
 330 {
 331     m_client->GetConnection()->StopAdvise(_T("something"));
 332 }
 333
 334 void MyFrame::OnExecute(wxCommandEvent& WXUNUSED(event))
 335 {
 336     if (m_client->IsConnected())
 337     {
 338         wxString s = _T("Date");
 339
 340         m_client->GetConnection()->Execute(s);
 341         m_client->GetConnection()->Execute((const char *)s.c_str(), s.length() + 1);
 342         char bytes[3];
 343         bytes[0] = '1';
 344         bytes[1] = '2';
 345         bytes[2] = '3';
 346         m_client->GetConnection()->Execute(bytes, WXSIZEOF(bytes));
 347     }
 348 }
 349
 350 void MyFrame::OnPoke(wxCommandEvent& WXUNUSED(event))
 351 {
 352     if (m_client->IsConnected())
 353     {
 354         wxString s = wxDateTime::Now().Format();
 355         m_client->GetConnection()->Poke(_T("Date"), s);
 356         s = wxDateTime::Now().FormatTime() + _T(" ") + wxDateTime::Now().FormatDate();
 357         m_client->GetConnection()->Poke(_T("Date"), (const char *)s.c_str(), s.length() + 1);
 358         char bytes[3];
 359         bytes[0] = '1'; bytes[1] = '2'; bytes[2] = '3';
 360         m_client->GetConnection()->Poke(_T("bytes[3]"), bytes, 3, wxIPC_PRIVATE);
 361     }
 362 }
 363
 364 void MyFrame::OnRequest(wxCommandEvent& WXUNUSED(event))
 365 {
 366     if (m_client->IsConnected())
 367     {
 368         size_t size;
 369         m_client->GetConnection()->Request(_T("Date"));
 370         m_client->GetConnection()->Request(_T("Date+len"), &size);
 371         m_client->GetConnection()->Request(_T("bytes[3]"), &size, wxIPC_PRIVATE);
 372     }
 373 }
 374
 375 // ----------------------------------------------------------------------------
 376 // MyClient
 377 // ----------------------------------------------------------------------------
 378 MyClient::MyClient() : wxClient()
 379 {
 380     m_connection = NULL;
 381 }
 382
 383 bool MyClient::Connect(const wxString& sHost, const wxString& sService, const wxString& sTopic)
 384 {
 385     // suppress the log messages from MakeConnection()
 386     wxLogNull nolog;
 387
 388     m_connection = (MyConnection *)MakeConnection(sHost, sService, sTopic);
 389     return m_connection    != NULL;
 390 }
 391
 392 wxConnectionBase *MyClient::OnMakeConnection()
 393 {
 394     return new MyConnection;
 395 }
 396
 397 void MyClient::Disconnect()
 398 {
 399     if (m_connection)
 400     {
 401         m_connection->Disconnect();
 402         delete m_connection;
 403         m_connection = NULL;
 404         wxGetApp().GetFrame()->EnableControls();
 405         wxLogMessage(_T("Client disconnected from server"));
 406     }
 407 }
 408
 409 MyClient::~MyClient()
 410 {
 411     Disconnect();
 412 }
 413
 414 // ----------------------------------------------------------------------------
 415 // MyConnection
 416 // ----------------------------------------------------------------------------
 417
 418 bool MyConnection::OnAdvise(const wxString& topic, const wxString& item, const void *data,
 419     size_t size, wxIPCFormat format)
 420 {
 421     Log(_T("OnAdvise"), topic, item, data, size, format);
 422     return true;
 423 }
 424
 425 bool MyConnection::OnDisconnect()
 426 {
 427     wxLogMessage(_T("OnDisconnect()"));
 428     wxGetApp().GetFrame()->Disconnect();
 429     return true;
 430 }
 431
 432 bool MyConnection::DoExecute(const void *data, size_t size, wxIPCFormat format)
 433 {
 434     Log(_T("Execute"), wxEmptyString, wxEmptyString, data, size, format);
 435     bool retval = wxConnection::DoExecute(data, size, format);
 436     if (!retval)
 437         wxLogMessage(_T("Execute failed!"));
 438     return retval;
 439 }
 440
 441 const void *MyConnection::Request(const wxString& item, size_t *size, wxIPCFormat format)
 442 {
 443     const void *data =  wxConnection::Request(item, size, format);
 444     Log(_T("Request"), wxEmptyString, item, data, size ? *size : wxNO_LEN, format);
 445     return data;
 446 }
 447
 448 bool MyConnection::DoPoke(const wxString& item, const void *data, size_t size, wxIPCFormat format)
 449 {
 450     Log(_T("Poke"), wxEmptyString, item, data, size, format);
 451     return wxConnection::DoPoke(item, data, size, format);
 452 }