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: client.cpp 42458 2006-10-26 16:49:39Z JS $
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 
BEGIN_EVENT_TABLE(MyFrame,wxFrame)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 
OnExit()86 int MyApp::OnExit()
87 {
88 
89     return 0;
90 }
91 
92 // Define my frame constructor
MyFrame(wxFrame * frame,const wxString & title)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 
EnableControls()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 
OnClose(wxCloseEvent & event)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 
OnExit(wxCommandEvent & WXUNUSED (event))240 void MyFrame::OnExit(wxCommandEvent& WXUNUSED(event))
241 {
242     Close();
243 }
244 
OnStart(wxCommandEvent & WXUNUSED (event))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 
OnServername(wxCommandEvent & WXUNUSED (event))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 
OnHostname(wxCommandEvent & WXUNUSED (event))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 
OnTopic(wxCommandEvent & WXUNUSED (event))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 
OnDisconnect(wxCommandEvent & WXUNUSED (event))309 void MyFrame::OnDisconnect(wxCommandEvent& WXUNUSED(event))
310 {
311     Disconnect();
312 }
313 
Disconnect()314 void MyFrame::Disconnect()
315 {
316     delete m_client;
317     m_client = NULL;
318     EnableControls();
319 }
320 
OnStartAdvise(wxCommandEvent & WXUNUSED (event))321 void MyFrame::OnStartAdvise(wxCommandEvent& WXUNUSED(event))
322 {
323     m_client->GetConnection()->StartAdvise(_T("something"));
324 }
325 
OnStopAdvise(wxCommandEvent & WXUNUSED (event))326 void MyFrame::OnStopAdvise(wxCommandEvent& WXUNUSED(event))
327 {
328     m_client->GetConnection()->StopAdvise(_T("something"));
329 }
330 
OnExecute(wxCommandEvent & WXUNUSED (event))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 
OnPoke(wxCommandEvent & WXUNUSED (event))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 
OnRequest(wxCommandEvent & WXUNUSED (event))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 // ----------------------------------------------------------------------------
MyClient()376 MyClient::MyClient() : wxClient()
377 {
378     m_connection = NULL;
379 }
380 
Connect(const wxString & sHost,const wxString & sService,const wxString & sTopic)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 
OnMakeConnection()390 wxConnectionBase *MyClient::OnMakeConnection()
391 {
392     return new MyConnection;
393 }
394 
Disconnect()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 
~MyClient()407 MyClient::~MyClient()
408 {
409     Disconnect();
410 }
411 
412 // ----------------------------------------------------------------------------
413 // MyConnection
414 // ----------------------------------------------------------------------------
415 
Log(const wxString & command,const wxString & topic,const wxString & item,wxChar * data,int size,wxIPCFormat format)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 
OnAdvise(const wxString & topic,const wxString & item,wxChar * data,int size,wxIPCFormat format)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 
OnDisconnect()452 bool MyConnection::OnDisconnect()
453 {
454     wxLogMessage(_T("OnDisconnect()"));
455     wxGetApp().GetFrame()->Disconnect();
456     return true;
457 }
458 
Execute(const wxChar * data,int size,wxIPCFormat format)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 
Request(const wxString & item,int * size,wxIPCFormat format)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 
Poke(const wxString & item,wxChar * data,int size,wxIPCFormat format)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 }
480