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     // Create the main frame window
  80     m_frame = new MyFrame(NULL, _T("Client"));
  81     m_frame->Show(true);
  82
  83     return true;
  84 }
  85
  86 int MyApp::OnExit()
  87 {
  88
  89     return 0;
  90 }
  91
  92 // Define my frame constructor
  93 MyFrame::MyFrame(wxFrame *frame, const wxString& title)
  94         : wxFrame(frame, wxID_ANY, title, wxDefaultPosition, wxSize(400, 300))
  95 {
  96     // Give it an icon
  97     SetIcon(wxICON(mondrian));
  98
  99     // Make a menubar
 100     wxMenu *file_menu = new wxMenu;
 101
 102     file_menu->Append(wxID_EXIT, _T("&Quit\tCtrl-Q"));
 103
 104     wxMenuBar *menu_bar = new wxMenuBar;
 105
 106     menu_bar->Append(file_menu, _T("&File"));
 107
 108     // Associate the menu bar with the frame
 109     SetMenuBar(menu_bar);
 110
 111     // set a dialog background
 112     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE));
 113
 114     // add the controls to the frame
 115     wxString strs4[] =
 116     {
 117         IPC_SERVICE, _T("...")
 118     };
 119     wxString strs5[] =
 120     {
 121         IPC_HOST, _T("...")
 122     };
 123     wxString strs6[] =
 124     {
 125         IPC_TOPIC, _T("...")
 126     };
 127
 128     wxBoxSizer *item0 = new wxBoxSizer( wxVERTICAL );
 129
 130     wxBoxSizer *item1 = new wxBoxSizer( wxHORIZONTAL );
 131
 132     wxGridSizer *item2 = new wxGridSizer( 4, 0, 0 );
 133
 134     wxButton *item3 = new wxButton( this, ID_START, wxT("Connect to server"), wxDefaultPosition, wxDefaultSize, 0 );
 135     item2->Add( item3, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 136
 137     wxChoice *item5 = new wxChoice( this, ID_HOSTNAME, wxDefaultPosition, wxSize(100,-1), 2, strs5, 0 );
 138     item2->Add( item5, 0, wxALIGN_CENTER|wxALL, 5 );
 139
 140     wxChoice *item4 = new wxChoice( this, ID_SERVERNAME, wxDefaultPosition, wxSize(100,-1), 2, strs4, 0 );
 141     item2->Add( item4, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 142
 143     wxChoice *item6 = new wxChoice( this, ID_TOPIC, wxDefaultPosition, wxSize(100,-1), 2, strs6, 0 );
 144     item2->Add( item6, 0, wxALIGN_CENTER|wxALL, 5 );
 145
 146     wxButton *item7 = new wxButton( this, ID_DISCONNECT, wxT("Disconnect "), wxDefaultPosition, wxDefaultSize, 0 );
 147     item2->Add( item7, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 148
 149     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 150
 151     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 152
 153     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 154
 155     wxButton *item8 = new wxButton( this, ID_STARTADVISE, wxT("StartAdvise"), wxDefaultPosition, wxDefaultSize, 0 );
 156     item2->Add( item8, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 157
 158     wxButton *item9 = new wxButton( this, ID_STOPADVISE, wxT("StopAdvise"), wxDefaultPosition, wxDefaultSize, 0 );
 159     item2->Add( item9, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 160
 161     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 162
 163     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 164
 165     wxButton *item10 = new wxButton( this, ID_EXECUTE, wxT("Execute"), wxDefaultPosition, wxDefaultSize, 0 );
 166     item2->Add( item10, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 167
 168     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 169
 170     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 171
 172     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 173
 174     wxButton *item11 = new wxButton( this, ID_POKE, wxT("Poke"), wxDefaultPosition, wxDefaultSize, 0 );
 175     item2->Add( item11, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 176
 177     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 178
 179     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 180
 181     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 182
 183     wxButton *item12 = new wxButton( this, ID_REQUEST, wxT("Request"), wxDefaultPosition, wxDefaultSize, 0 );
 184     item2->Add( item12, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 185
 186     item2->Add( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 187
 188     item1->Add( item2, 1, wxALIGN_CENTER|wxALL, 5 );
 189
 190     item0->Add( item1, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 191
 192     wxStaticBox *item14 = new wxStaticBox( this, -1, wxT("Client log") );
 193     wxStaticBoxSizer *item13 = new wxStaticBoxSizer( item14, wxVERTICAL );
 194
 195     wxTextCtrl *item15 = new wxTextCtrl( this, ID_LOG, wxEmptyString, wxDefaultPosition, wxSize(500,140), wxTE_MULTILINE );
 196     item13->Add( item15, 1, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 197
 198     item0->Add( item13, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 199
 200     this->SetSizer( item0 );
 201     item0->SetSizeHints( this );
 202
 203     // status
 204     m_client = NULL;
 205     GetServername()->SetSelection(0);
 206     GetHostname()->SetSelection(0);
 207     GetTopic()->SetSelection(0);
 208     wxLogTextCtrl *logWindow = new wxLogTextCtrl(GetLog());
 209     delete wxLog::SetActiveTarget(logWindow);
 210     wxLogMessage(_T("Click on Connect to connect to the server"));
 211     EnableControls();
 212 }
 213
 214 void MyFrame::EnableControls()
 215 {
 216     GetStart()->Enable(m_client == NULL);
 217     GetServername()->Enable(m_client == NULL);
 218     GetHostname()->Enable(m_client == NULL);
 219     GetTopic()->Enable(m_client == NULL);
 220
 221     const bool isConnected = (m_client != NULL && m_client->IsConnected());
 222     GetDisconnect()->Enable(m_client != NULL && isConnected);
 223     GetStartAdvise()->Enable(m_client != NULL && isConnected);
 224     GetStopAdvise()->Enable(m_client != NULL && isConnected);
 225     GetExecute()->Enable(m_client != NULL && isConnected);
 226     GetPoke()->Enable(m_client != NULL && isConnected);
 227     GetRequest()->Enable(m_client != NULL && isConnected);
 228 }
 229
 230 void MyFrame::OnClose(wxCloseEvent& event)
 231 {
 232     if (m_client)
 233     {
 234         delete m_client;
 235         m_client = NULL;
 236     }
 237     event.Skip();
 238 }
 239
 240 void MyFrame::OnExit(wxCommandEvent& WXUNUSED(event))
 241 {
 242     Close();
 243 }
 244
 245 void MyFrame::OnStart(wxCommandEvent& WXUNUSED(event))
 246 {
 247     // Connect to the client
 248     wxString servername = GetServername()->GetStringSelection();
 249     wxString hostname = GetHostname()->GetStringSelection();
 250     wxString topic = GetTopic()->GetStringSelection();
 251
 252     m_client = new MyClient;
 253     bool retval = m_client->Connect(hostname, servername, topic);
 254
 255     wxLogMessage(_T("Client host=\"%s\" port=\"%s\" topic=\"%s\" %s"),
 256         hostname.c_str(), servername.c_str(), topic.c_str(),
 257         retval ? _T("connected") : _T("failed to connect"));
 258
 259     if (!retval)
 260     {
 261         delete m_client;
 262         m_client = NULL;
 263     }
 264     EnableControls();
 265 }
 266
 267 void MyFrame::OnServername( wxCommandEvent& WXUNUSED(event) )
 268 {
 269     if (GetServername()->GetStringSelection() == _T("..."))
 270     {
 271         wxString s = wxGetTextFromUser(_T("Specify the name of the server"),
 272             _T("Server Name"), wxEmptyString, this);
 273         if (!s.IsEmpty() && s != IPC_SERVICE)
 274         {
 275             GetServername()->Insert(s, 0);
 276             GetServername()->SetSelection(0);
 277         }
 278     }
 279 }
 280
 281 void MyFrame::OnHostname( wxCommandEvent& WXUNUSED(event) )
 282 {
 283     if (GetHostname()->GetStringSelection() == _T("..."))
 284     {
 285         wxString s = wxGetTextFromUser(_T("Specify the name of the host (ignored under DDE)"),
 286             _T("Host Name"), wxEmptyString, this);
 287         if (!s.IsEmpty() && s != IPC_HOST)
 288         {
 289             GetHostname()->Insert(s, 0);
 290             GetHostname()->SetSelection(0);
 291         }
 292     }
 293 }
 294
 295 void MyFrame::OnTopic( wxCommandEvent& WXUNUSED(event) )
 296 {
 297     if (GetTopic()->GetStringSelection() == _T("..."))
 298     {
 299         wxString s = wxGetTextFromUser(_T("Specify the name of the topic"),
 300             _T("Topic Name"), wxEmptyString, this);
 301         if (!s.IsEmpty() && s != IPC_TOPIC)
 302         {
 303             GetTopic()->Insert(s, 0);
 304             GetTopic()->SetSelection(0);
 305         }
 306     }
 307 }
 308
 309 void MyFrame::OnDisconnect(wxCommandEvent& WXUNUSED(event))
 310 {
 311     Disconnect();
 312 }
 313
 314 void MyFrame::Disconnect()
 315 {
 316     delete m_client;
 317     m_client = NULL;
 318     EnableControls();
 319 }
 320
 321 void MyFrame::OnStartAdvise(wxCommandEvent& WXUNUSED(event))
 322 {
 323     m_client->GetConnection()->StartAdvise(_T("something"));
 324 }
 325
 326 void MyFrame::OnStopAdvise(wxCommandEvent& WXUNUSED(event))
 327 {
 328     m_client->GetConnection()->StopAdvise(_T("something"));
 329 }
 330
 331 void MyFrame::OnExecute(wxCommandEvent& WXUNUSED(event))
 332 {
 333     if (m_client->IsConnected())
 334     {
 335         wxString s = _T("Date");
 336
 337         m_client->GetConnection()->Execute((wxChar *)s.c_str());
 338         m_client->GetConnection()->Execute((wxChar *)s.c_str(), (s.Length() + 1) * sizeof(wxChar));
 339 #if wxUSE_DDE_FOR_IPC
 340         wxLogMessage(_T("DDE Execute can only be used to send text strings, not arbitrary data.\nThe type argument will be ignored, text truncated, converted to Unicode and null terminated."));
 341 #endif
 342         char bytes[3];
 343         bytes[0] = '1'; bytes[1] = '2'; bytes[2] = '3';
 344         m_client->GetConnection()->Execute((wxChar *)bytes, 3, wxIPC_PRIVATE);
 345     }
 346 }
 347
 348 void MyFrame::OnPoke(wxCommandEvent& WXUNUSED(event))
 349 {
 350     if (m_client->IsConnected())
 351     {
 352         wxString s = wxDateTime::Now().Format();
 353         m_client->GetConnection()->Poke(_T("Date"), (wxChar *)s.c_str());
 354         s = wxDateTime::Now().FormatTime() + _T(" ") + wxDateTime::Now().FormatDate();
 355         m_client->GetConnection()->Poke(_T("Date"), (wxChar *)s.c_str(), (s.Length() + 1) * sizeof(wxChar));
 356         char bytes[3];
 357         bytes[0] = '1'; bytes[1] = '2'; bytes[2] = '3';
 358         m_client->GetConnection()->Poke(_T("bytes[3]"), (wxChar *)bytes, 3, wxIPC_PRIVATE);
 359     }
 360 }
 361
 362 void MyFrame::OnRequest(wxCommandEvent& WXUNUSED(event))
 363 {
 364     if (m_client->IsConnected())
 365     {
 366         int size;
 367         m_client->GetConnection()->Request(_T("Date"));
 368         m_client->GetConnection()->Request(_T("Date+len"), &size);
 369         m_client->GetConnection()->Request(_T("bytes[3]"), &size, wxIPC_PRIVATE);
 370     }
 371 }
 372
 373 // ----------------------------------------------------------------------------
 374 // MyClient
 375 // ----------------------------------------------------------------------------
 376 MyClient::MyClient() : wxClient()
 377 {
 378     m_connection = NULL;
 379 }
 380
 381 bool MyClient::Connect(const wxString& sHost, const wxString& sService, const wxString& sTopic)
 382 {
 383     // suppress the log messages from MakeConnection()
 384     wxLogNull nolog;
 385
 386     m_connection = (MyConnection *)MakeConnection(sHost, sService, sTopic);
 387     return m_connection    != NULL;
 388 }
 389
 390 wxConnectionBase *MyClient::OnMakeConnection()
 391 {
 392     return new MyConnection;
 393 }
 394
 395 void MyClient::Disconnect()
 396 {
 397     if (m_connection)
 398     {
 399         m_connection->Disconnect();
 400         delete m_connection;
 401         m_connection = NULL;
 402         wxGetApp().GetFrame()->EnableControls();
 403         wxLogMessage(_T("Client disconnected from server"));
 404     }
 405 }
 406
 407 MyClient::~MyClient()
 408 {
 409     Disconnect();
 410 }
 411
 412 // ----------------------------------------------------------------------------
 413 // MyConnection
 414 // ----------------------------------------------------------------------------
 415
 416 void MyConnection::Log(const wxString& command, const wxString& topic,
 417     const wxString& item, wxChar *data, int size, wxIPCFormat format)
 418 {
 419     wxString s;
 420     if (topic.IsEmpty() && item.IsEmpty())
 421         s.Printf(_T("%s("), command.c_str());
 422     else if (topic.IsEmpty())
 423         s.Printf(_T("%s(item=\"%s\","), command.c_str(), item.c_str());
 424     else if (item.IsEmpty())
 425         s.Printf(_T("%s(topic=\"%s\","), command.c_str(), topic.c_str());
 426     else
 427         s.Printf(_T("%s(topic=\"%s\",item=\"%s\","), command.c_str(), topic.c_str(), item.c_str());
 428
 429     if (format == wxIPC_TEXT || format == wxIPC_UNICODETEXT)
 430         wxLogMessage(_T("%s\"%s\",%d)"), s.c_str(), data, size);
 431     else if (format == wxIPC_PRIVATE)
 432     {
 433         if (size == 3)
 434         {
 435             char *bytes = (char *)data;
 436             wxLogMessage(_T("%s'%c%c%c',%d)"), s.c_str(), bytes[0], bytes[1], bytes[2], size);
 437         }
 438         else
 439             wxLogMessage(_T("%s...,%d)"), s.c_str(), size);
 440     }
 441     else if (format == wxIPC_INVALID)
 442         wxLogMessage(_T("%s[invalid data],%d)"), s.c_str(), size);
 443 }
 444
 445 bool MyConnection::OnAdvise(const wxString& topic, const wxString& item, wxChar *data,
 446     int size, wxIPCFormat format)
 447 {
 448     Log(_T("OnAdvise"), topic, item, data, size, format);
 449     return true;
 450 }
 451
 452 bool MyConnection::OnDisconnect()
 453 {
 454     wxLogMessage(_T("OnDisconnect()"));
 455     wxGetApp().GetFrame()->Disconnect();
 456     return true;
 457 }
 458
 459 bool MyConnection::Execute(const wxChar *data, int size, wxIPCFormat format)
 460 {
 461     Log(_T("Execute"), wxEmptyString, wxEmptyString, (wxChar *)data, size, format);
 462     bool retval = wxConnection::Execute(data, size, format);
 463     if (!retval)
 464         wxLogMessage(_T("Execute failed!"));
 465     return retval;
 466 }
 467
 468 wxChar *MyConnection::Request(const wxString& item, int *size, wxIPCFormat format)
 469 {
 470     wxChar *data =  wxConnection::Request(item, size, format);
 471     Log(_T("Request"), wxEmptyString, item, data, size ? *size : -1, format);
 472     return data;
 473 }
 474
 475 bool MyConnection::Poke(const wxString& item, wxChar *data, int size, wxIPCFormat format)
 476 {
 477     Log(_T("Poke"), wxEmptyString, item, data, size, format);
 478     return wxConnection::Poke(item, data, size, format);
 479 }