1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: DDE sample: client
4 // Author: Julian Smart
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
12 // ============================================================================
14 // ============================================================================
16 // ----------------------------------------------------------------------------
18 // ----------------------------------------------------------------------------
20 // For compilers that support precompilation, includes "wx.h".
21 #include "wx/wxprec.h"
31 // Settings common to both executables: determines whether
32 // we're using TCP/IP or real DDE.
36 #if defined(__WXGTK__) || defined(__WXX11__) || defined(__WXMOTIF__) || defined(__WXMAC__)
37 #include "mondrian.xpm"
42 // ----------------------------------------------------------------------------
44 // ----------------------------------------------------------------------------
48 BEGIN_EVENT_TABLE(MyFrame
, wxFrame
)
49 EVT_MENU(CLIENT_QUIT
, MyFrame::OnExit
)
50 EVT_MENU(CLIENT_EXECUTE
, MyFrame::OnExecute
)
51 EVT_MENU(CLIENT_POKE
, MyFrame::OnPoke
)
52 EVT_MENU(CLIENT_REQUEST
, MyFrame::OnRequest
)
55 // ----------------------------------------------------------------------------
57 // ----------------------------------------------------------------------------
59 char ipc_buffer
[4000];
60 wxListBox
*the_list
= NULL
;
62 MyConnection
*the_connection
= NULL
;
65 // ============================================================================
67 // ============================================================================
69 // ----------------------------------------------------------------------------
71 // ----------------------------------------------------------------------------
73 // The `main program' equivalent, creating the windows and returning the
77 // service name (DDE classes) or port number (TCP/IP based classes)
78 wxString service
= "4242";
80 // ignored under DDE, host name in TCP/IP based classes
81 wxString hostName
= "localhost";
88 // Create a new client
89 my_client
= new MyClient
;
91 // suppress the log messages from MakeConnection()
94 the_connection
= (MyConnection
*)my_client
->MakeConnection(hostName
, service
, "IPC TEST");
96 while ( !the_connection
)
98 if ( wxMessageBox("Failed to make connection to server.\nRetry?",
100 wxICON_ERROR
| wxYES_NO
| wxCANCEL
) != wxYES
)
106 the_connection
= (MyConnection
*)my_client
->MakeConnection(hostName
, service
, "IPC TEST");
110 if (!the_connection
->StartAdvise("Item"))
111 wxMessageBox("StartAdvise failed", "Client Demo Error");
113 // Create the main frame window
114 (new MyFrame(NULL
, "Client"))->Show(TRUE
);
123 the_connection
->Disconnect();
124 delete the_connection
;
125 the_connection
= NULL
;
128 // will delete the connection too
129 // Update: Seems it didn't delete the_connection, because there's a leak.
130 // Deletion is now explicitly done a few lines up.
138 // Define my frame constructor
139 MyFrame::MyFrame(wxFrame
*frame
, const wxString
& title
)
140 : wxFrame(frame
, -1, title
, wxDefaultPosition
, wxSize(300, 200))
143 SetIcon(wxICON(mondrian
));
146 wxMenu
*file_menu
= new wxMenu
;
148 file_menu
->Append(CLIENT_EXECUTE
, "&Execute\tCtrl-E");
149 file_menu
->Append(CLIENT_REQUEST
, "&Request\tCtrl-R");
150 file_menu
->Append(CLIENT_POKE
, "&Poke\tCtrl-P");
151 file_menu
->Append(CLIENT_QUIT
, "&Quit\tCtrl-Q");
153 wxMenuBar
*menu_bar
= new wxMenuBar
;
155 menu_bar
->Append(file_menu
, "&File");
157 // Associate the menu bar with the frame
158 SetMenuBar(menu_bar
);
160 // Make a listbox which shows the choices made in the server
161 the_list
= new wxListBox(this, CLIENT_LISTBOX
, wxPoint(5, 5));
162 the_list
->Append("Apple");
163 the_list
->Append("Pear");
164 the_list
->Append("Orange");
165 the_list
->Append("Banana");
166 the_list
->Append("Fruit");
169 void MyFrame::OnExecute(wxCommandEvent
& event
)
172 if (!the_connection
->Execute("Hello from the client!"))
173 wxMessageBox("Execute failed", "Client Demo Error");
176 void MyFrame::OnPoke(wxCommandEvent
& event
)
179 if (!the_connection
->Poke("An item", "Some data to poke at the server!"))
180 wxMessageBox("Poke failed", "Client Demo Error");
183 void MyFrame::OnRequest(wxCommandEvent
& event
)
187 char *data
= the_connection
->Request("An item");
189 wxMessageBox(data
, "Client: Request", wxOK
);
191 wxMessageBox("Request failed", "Client Demo Error");
195 void MyFrame::OnExit(wxCommandEvent
& event
)
200 wxConnectionBase
*MyClient::OnMakeConnection()
202 return new MyConnection
;
205 MyConnection::MyConnection()
206 : wxConnection(ipc_buffer
, WXSIZEOF(ipc_buffer
))
210 bool MyConnection::OnAdvise(const wxString
& topic
, const wxString
& item
, char *data
, int size
, wxIPCFormat format
)
214 int n
= the_list
->FindString(data
);
216 the_list
->SetSelection(n
);
221 bool MyConnection::OnDisconnect()
223 wxWindow
*win
= wxTheApp
->GetTopWindow();