]>
git.saurik.com Git - wxWidgets.git/blob - samples/wxsocket/client.cpp
3 * Purpose: wxSocket: client demo
4 * Author: LAVAUX Guilhem
7 * Copyright: (c) 1997, LAVAUX Guilhem
11 #pragma implementation
15 // For compilers that support precompilation, includes "wx.h".
16 #include "wx/wxprec.h"
26 #include "wx/wfstream.h"
27 #include "wx/socket.h"
29 #include "wx/protocol/http.h"
31 #if defined(__WXMOTIF__) || defined(__WXGTK__)
32 #include "mondrian.xpm"
35 // Define a new application type
36 class MyApp
: public wxApp
38 virtual bool OnInit(void);
43 // Define a new frame type
44 class MyFrame
: public wxFrame
46 DECLARE_CLASS(MyFrame
)
52 void OnCloseTest(wxCommandEvent
& evt
);
53 void OnExecTest1(wxCommandEvent
& evt
);
54 void OnExecUrlTest(wxCommandEvent
& evt
);
55 void OnQuitApp(wxCommandEvent
& evt
);
56 void OnExecOpenConnection(wxCommandEvent
& evt
);
57 void OnExecCloseConnection(wxCommandEvent
& evt
);
64 IMPLEMENT_CLASS(MyFrame
, wxFrame
)
67 * Define a new derived SocketClient
69 class MyClient
: public wxSocketClient
74 void OnNotify(wxRequestNotify
WXUNUSED(flags
)) { frame
->UpdateStatus(); }
77 // ID for the menu quit command
78 const int SKDEMO_QUIT
= 101;
79 const int SKDEMO_CONNECT
= 102;
80 const int SKDEMO_TEST1
= 103;
81 const int SKDEMO_TEST2
= 104;
82 const int SKDEMO_CLOSE
= 105;
83 const int SKDEMO_TEST3
= 106;
84 const int ID_TEST_CLOSE
= 107;
89 * `Main program' equivalent, creating windows and returning main app frame
91 bool MyApp::OnInit(void)
93 // Create the main frame window
94 MyFrame
*frame
= new MyFrame();
97 frame
->SetIcon(wxICON(mondrian
));
100 wxMenu
*file_menu
= new wxMenu();
102 file_menu
->Append(SKDEMO_QUIT
, "Exit");
103 wxMenuBar
*menu_bar
= new wxMenuBar
;
104 menu_bar
->Append(file_menu
, "File");
106 wxMenu
*socket_menu
= new wxMenu();
107 socket_menu
->Append(SKDEMO_CONNECT
, "Open session");
108 socket_menu
->AppendSeparator();
109 socket_menu
->Append(SKDEMO_TEST1
, "Start test 1");
110 socket_menu
->AppendSeparator();
111 socket_menu
->Append(SKDEMO_CLOSE
, "Close session");
112 socket_menu
->AppendSeparator();
113 socket_menu
->Append(SKDEMO_TEST3
, "Start URL test");
115 menu_bar
->Append(socket_menu
, "Socket");
117 frame
->SetMenuBar(menu_bar
);
119 // Make a panel with a message
120 (void)new wxPanel(frame
, -1, wxPoint(0, 0), wxSize(300, 100));
125 // Return the main frame window
130 * MyFrame Constructor
133 wxFrame(NULL
, -1, "wxSocket client demo",
134 wxDefaultPosition
, wxSize(300, 200), wxDEFAULT_FRAME_STYLE
)
137 wxSocketHandler::Master();
139 sock
= new MyClient();
140 sock
->SetFlags(wxSocketBase::WAITALL
);
141 wxSocketHandler::Master().Register(sock
);
143 sock
->SetNotify(wxSocketBase::REQ_LOST
);
153 void MyFrame::OnQuitApp(wxCommandEvent
& WXUNUSED(evt
))
158 void MyFrame::OnExecOpenConnection(wxCommandEvent
& WXUNUSED(evt
))
162 if (sock
->IsConnected())
165 wxString hname
= wxGetTextFromUser("Enter the address of the wxSocket Sample Server",
166 "Connect ...", "localhost");
167 addr
.Hostname(hname
);
170 sock
->Connect(addr
, TRUE
);
171 if (!sock
->IsConnected())
172 wxMessageBox("Can't connect to the specified host", "Alert !");
177 void MyFrame::OnExecCloseConnection(wxCommandEvent
& WXUNUSED(evt
))
184 BEGIN_EVENT_TABLE(MyFrame
, wxFrame
)
185 EVT_BUTTON(ID_TEST_CLOSE
, MyFrame::OnCloseTest
)
186 EVT_MENU(SKDEMO_TEST1
, MyFrame::OnExecTest1
)
187 EVT_MENU(SKDEMO_TEST3
, MyFrame::OnExecUrlTest
)
188 EVT_MENU(SKDEMO_QUIT
, MyFrame::OnQuitApp
)
189 EVT_MENU(SKDEMO_CONNECT
, MyFrame::OnExecOpenConnection
)
190 EVT_MENU(SKDEMO_CLOSE
, MyFrame::OnExecCloseConnection
)
193 void MyFrame::OnCloseTest(wxCommandEvent
& evt
)
195 wxButton
*button
= (wxButton
*)evt
.GetEventObject();
196 wxDialog
*dlg
= (wxDialog
*)button
->GetParent();
201 void MyFrame::UpdateStatus()
203 if (!sock
->IsConnected()) {
204 SetStatusText("Not connected", 0);
205 SetStatusText("", 1);
211 wxSprintf(s
, _T("Connected to %s"), WXSTRINGCAST addr
.Hostname());
213 wxSprintf(s
, _T("Service: %d"), addr
.Service());
218 void MyFrame::OnExecTest1(wxCommandEvent
& WXUNUSED(evt
))
220 if (!sock
->IsConnected())
223 wxDialog
*dlgbox
= new wxDialog(this, -1, "Test 1", wxDefaultPosition
, wxSize(414, 250));
224 wxTextCtrl
*text_win
= new wxTextCtrl(dlgbox
, -1, "",
225 wxPoint(0, 0), wxSize(400, 200),
227 (void)new wxButton(dlgbox
, ID_TEST_CLOSE
, "Close",
228 wxPoint(100, 210), wxSize(100, -1));
234 text_win
->WriteText("Initializing test 1 ...\n");
239 buf
= copystring(_T("Hi ! Hi ! Hi !\n"));
240 buf2
= new wxChar
[wxStrlen(buf
)+1];
245 text_win
->WriteText("Sending some byte to the server ...");
247 sock
->Write((char *)buf
, wxStrlen(buf
)+1);
248 text_win
->WriteText("done\n");
250 text_win
->WriteText("Receiving some byte from the server ...");
252 sock
->Read((char *)buf2
, wxStrlen(buf
)+1);
253 text_win
->WriteText("done\n");
256 text_win
->WriteText("Comparing the two buffers ...");
257 if (memcmp(buf
, buf2
, wxStrlen(buf
)+1) != 0) {
258 text_win
->WriteText("Fail\n");
262 text_win
->WriteText("done\nTest 1 passed !\n");
273 void MyFrame::OnExecUrlTest(wxCommandEvent
& WXUNUSED(evt
))
275 wxString urlname
= wxGetTextFromUser("Enter an URL to get",
276 "URL:", "http://localhost");
279 wxInputStream
*datas
= url
.GetInputStream();
282 wxMessageBox("Error in getting data from the URL.", "Alert !");
284 wxFileOutputStream
*str_out
= new wxFileOutputStream("test.url");
285 str_out
->Write(*datas
);
287 wxMessageBox("Success !! Click on OK to see the text.", "OK");