]> git.saurik.com Git - wxWidgets.git/blob - src/msw/dialup.cpp
Pass focus window to submenu items too (no reason I can think of not to).
[wxWidgets.git] / src / msw / dialup.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: msw/dialup.cpp
3 // Purpose: MSW implementation of network/dialup classes and functions
4 // Author: Vadim Zeitlin
5 // Modified by:
6 // Created: 07.07.99
7 // RCS-ID: $Id$
8 // Copyright: (c) Vadim Zeitlin
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 // these functions require Win32
28 #if defined(__WIN16__) && wxUSE_DIALUP_MANAGER
29 #undef wxUSE_DIALUP_MANAGER
30 #define wxUSE_DIALUP_MANAGER 0
31 #endif // wxUSE_DIALUP_MANAGER && Win16
32
33 #if wxUSE_DIALUP_MANAGER
34
35 #ifndef WX_PRECOMP
36 #include "wx/log.h"
37 #include "wx/intl.h"
38 #include "wx/event.h"
39 #endif
40
41 #include "wx/timer.h"
42 #include "wx/app.h"
43 #include "wx/generic/choicdgg.h"
44
45 #include "wx/dynlib.h"
46 #include "wx/dialup.h"
47
48 DEFINE_EVENT_TYPE(wxEVT_DIALUP_CONNECTED)
49 DEFINE_EVENT_TYPE(wxEVT_DIALUP_DISCONNECTED)
50
51 // Doesn't yet compile under VC++ 4, BC++, Watcom C++,
52 // Wine: no wininet.h
53 #if (!defined(__BORLANDC__) || (__BORLANDC__>=0x550)) && \
54 (!defined(__GNUWIN32__) || wxCHECK_W32API_VERSION(0, 5)) && \
55 !defined(__GNUWIN32_OLD__) && \
56 !defined(__WATCOMC__) && \
57 !defined(__WINE__) && \
58 (!defined(__VISUALC__) || (__VISUALC__ >= 1020))
59
60 #include <ras.h>
61 #include <raserror.h>
62
63 #include <wininet.h>
64
65 // Not in VC++ 5
66 #ifndef INTERNET_CONNECTION_LAN
67 #define INTERNET_CONNECTION_LAN 2
68 #endif
69 #ifndef INTERNET_CONNECTION_PROXY
70 #define INTERNET_CONNECTION_PROXY 4
71 #endif
72
73 // ----------------------------------------------------------------------------
74 // constants
75 // ----------------------------------------------------------------------------
76
77 // this message is sent by the secondary thread when RAS status changes
78 #define wxWM_RAS_STATUS_CHANGED (WM_USER + 10010)
79 #define wxWM_RAS_DIALING_PROGRESS (WM_USER + 10011)
80
81 // ----------------------------------------------------------------------------
82 // types
83 // ----------------------------------------------------------------------------
84
85 // the signatures of RAS functions: all this is quite heavy, but we must do it
86 // to allow running wxWin programs on machine which don't have RAS installed
87 // (this does exist) - if we link with rasapi32.lib, the program will fail on
88 // startup because of the missing DLL...
89
90 #ifndef UNICODE
91 typedef DWORD (APIENTRY * RASDIAL)( LPRASDIALEXTENSIONS, LPCSTR, LPRASDIALPARAMSA, DWORD, LPVOID, LPHRASCONN );
92 typedef DWORD (APIENTRY * RASENUMCONNECTIONS)( LPRASCONNA, LPDWORD, LPDWORD );
93 typedef DWORD (APIENTRY * RASENUMENTRIES)( LPCSTR, LPCSTR, LPRASENTRYNAMEA, LPDWORD, LPDWORD );
94 typedef DWORD (APIENTRY * RASGETCONNECTSTATUS)( HRASCONN, LPRASCONNSTATUSA );
95 typedef DWORD (APIENTRY * RASGETERRORSTRING)( UINT, LPSTR, DWORD );
96 typedef DWORD (APIENTRY * RASHANGUP)( HRASCONN );
97 typedef DWORD (APIENTRY * RASGETPROJECTIONINFO)( HRASCONN, RASPROJECTION, LPVOID, LPDWORD );
98 typedef DWORD (APIENTRY * RASCREATEPHONEBOOKENTRY)( HWND, LPCSTR );
99 typedef DWORD (APIENTRY * RASEDITPHONEBOOKENTRY)( HWND, LPCSTR, LPCSTR );
100 typedef DWORD (APIENTRY * RASSETENTRYDIALPARAMS)( LPCSTR, LPRASDIALPARAMSA, BOOL );
101 typedef DWORD (APIENTRY * RASGETENTRYDIALPARAMS)( LPCSTR, LPRASDIALPARAMSA, LPBOOL );
102 typedef DWORD (APIENTRY * RASENUMDEVICES)( LPRASDEVINFOA, LPDWORD, LPDWORD );
103 typedef DWORD (APIENTRY * RASGETCOUNTRYINFO)( LPRASCTRYINFOA, LPDWORD );
104 typedef DWORD (APIENTRY * RASGETENTRYPROPERTIES)( LPCSTR, LPCSTR, LPRASENTRYA, LPDWORD, LPBYTE, LPDWORD );
105 typedef DWORD (APIENTRY * RASSETENTRYPROPERTIES)( LPCSTR, LPCSTR, LPRASENTRYA, DWORD, LPBYTE, DWORD );
106 typedef DWORD (APIENTRY * RASRENAMEENTRY)( LPCSTR, LPCSTR, LPCSTR );
107 typedef DWORD (APIENTRY * RASDELETEENTRY)( LPCSTR, LPCSTR );
108 typedef DWORD (APIENTRY * RASVALIDATEENTRYNAME)( LPCSTR, LPCSTR );
109 typedef DWORD (APIENTRY * RASCONNECTIONNOTIFICATION)( HRASCONN, HANDLE, DWORD );
110
111 static const wxChar gs_funcSuffix = _T('A');
112 #else // Unicode
113 typedef DWORD (APIENTRY * RASDIAL)( LPRASDIALEXTENSIONS, LPCWSTR, LPRASDIALPARAMSW, DWORD, LPVOID, LPHRASCONN );
114 typedef DWORD (APIENTRY * RASENUMCONNECTIONS)( LPRASCONNW, LPDWORD, LPDWORD );
115 typedef DWORD (APIENTRY * RASENUMENTRIES)( LPCWSTR, LPCWSTR, LPRASENTRYNAMEW, LPDWORD, LPDWORD );
116 typedef DWORD (APIENTRY * RASGETCONNECTSTATUS)( HRASCONN, LPRASCONNSTATUSW );
117 typedef DWORD (APIENTRY * RASGETERRORSTRING)( UINT, LPWSTR, DWORD );
118 typedef DWORD (APIENTRY * RASHANGUP)( HRASCONN );
119 typedef DWORD (APIENTRY * RASGETPROJECTIONINFO)( HRASCONN, RASPROJECTION, LPVOID, LPDWORD );
120 typedef DWORD (APIENTRY * RASCREATEPHONEBOOKENTRY)( HWND, LPCWSTR );
121 typedef DWORD (APIENTRY * RASEDITPHONEBOOKENTRY)( HWND, LPCWSTR, LPCWSTR );
122 typedef DWORD (APIENTRY * RASSETENTRYDIALPARAMS)( LPCWSTR, LPRASDIALPARAMSW, BOOL );
123 typedef DWORD (APIENTRY * RASGETENTRYDIALPARAMS)( LPCWSTR, LPRASDIALPARAMSW, LPBOOL );
124 typedef DWORD (APIENTRY * RASENUMDEVICES)( LPRASDEVINFOW, LPDWORD, LPDWORD );
125 typedef DWORD (APIENTRY * RASGETCOUNTRYINFO)( LPRASCTRYINFOW, LPDWORD );
126 typedef DWORD (APIENTRY * RASGETENTRYPROPERTIES)( LPCWSTR, LPCWSTR, LPRASENTRYW, LPDWORD, LPBYTE, LPDWORD );
127 typedef DWORD (APIENTRY * RASSETENTRYPROPERTIES)( LPCWSTR, LPCWSTR, LPRASENTRYW, DWORD, LPBYTE, DWORD );
128 typedef DWORD (APIENTRY * RASRENAMEENTRY)( LPCWSTR, LPCWSTR, LPCWSTR );
129 typedef DWORD (APIENTRY * RASDELETEENTRY)( LPCWSTR, LPCWSTR );
130 typedef DWORD (APIENTRY * RASVALIDATEENTRYNAME)( LPCWSTR, LPCWSTR );
131 typedef DWORD (APIENTRY * RASCONNECTIONNOTIFICATION)( HRASCONN, HANDLE, DWORD );
132
133 static const wxChar gs_funcSuffix = _T('W');
134 #endif // ASCII/Unicode
135
136 // structure passed to the secondary thread
137 struct WXDLLEXPORT wxRasThreadData
138 {
139 wxRasThreadData()
140 {
141 hWnd = 0;
142 hEventRas = hEventQuit = INVALID_HANDLE_VALUE;
143 dialUpManager = NULL;
144 }
145
146 HWND hWnd; // window to send notifications to
147 HANDLE hEventRas, // event which RAS signals when status changes
148 hEventQuit; // event which we signal when we terminate
149
150 class WXDLLEXPORT wxDialUpManagerMSW *dialUpManager; // the owner
151 };
152
153 // ----------------------------------------------------------------------------
154 // wxDialUpManager class for MSW
155 // ----------------------------------------------------------------------------
156
157 class WXDLLEXPORT wxDialUpManagerMSW : public wxDialUpManager
158 {
159 public:
160 // ctor & dtor
161 wxDialUpManagerMSW();
162 virtual ~wxDialUpManagerMSW();
163
164 // implement base class pure virtuals
165 virtual bool IsOk() const;
166 virtual size_t GetISPNames(wxArrayString& names) const;
167 virtual bool Dial(const wxString& nameOfISP,
168 const wxString& username,
169 const wxString& password,
170 bool async);
171 virtual bool IsDialing() const;
172 virtual bool CancelDialing();
173 virtual bool HangUp();
174 virtual bool IsAlwaysOnline() const;
175 virtual bool IsOnline() const;
176 virtual void SetOnlineStatus(bool isOnline = TRUE);
177 virtual bool EnableAutoCheckOnlineStatus(size_t nSeconds);
178 virtual void DisableAutoCheckOnlineStatus();
179 virtual void SetWellKnownHost(const wxString& hostname, int port);
180 virtual void SetConnectCommand(const wxString& commandDial,
181 const wxString& commandHangup);
182
183 // for RasTimer
184 void CheckRasStatus();
185
186 // for wxRasStatusWindowProc
187 void OnConnectStatusChange();
188 void OnDialProgress(RASCONNSTATE rasconnstate, DWORD dwError);
189
190 // for wxRasDialFunc
191 static HWND GetRasWindow() { return ms_hwndRas; }
192 static wxDialUpManagerMSW *GetDialer() { return ms_dialer; }
193
194 private:
195 // return the error string for the given RAS error code
196 static wxString GetErrorString(DWORD error);
197
198 // find the (first) handle of the active connection
199 static HRASCONN FindActiveConnection();
200
201 // notify the application about status change
202 void NotifyApp(bool connected, bool fromOurselves = FALSE) const;
203
204 // destroy the thread data and the thread itself
205 void CleanUpThreadData();
206
207 // timer used for polling RAS status
208 class WXDLLEXPORT RasTimer : public wxTimer
209 {
210 public:
211 RasTimer(wxDialUpManagerMSW *dialUpManager)
212 { m_dialUpManager = dialUpManager; }
213
214 virtual void Notify() { m_dialUpManager->CheckRasStatus(); }
215
216 private:
217 wxDialUpManagerMSW *m_dialUpManager;
218 } m_timerStatusPolling;
219
220 // thread handle for the thread sitting on connection change event
221 HANDLE m_hThread;
222
223 // data used by this thread and our hidden window to send messages between
224 // each other
225 wxRasThreadData m_data;
226
227 // the handle of rasapi32.dll when it's loaded
228 wxDynamicLibrary m_dllRas;
229
230 // the hidden window we use for passing messages between threads
231 static HWND ms_hwndRas;
232
233 // the handle of the connection we initiated or 0 if none
234 static HRASCONN ms_hRasConnection;
235
236 // the pointers to RAS functions
237 static RASDIAL ms_pfnRasDial;
238 static RASENUMCONNECTIONS ms_pfnRasEnumConnections;
239 static RASENUMENTRIES ms_pfnRasEnumEntries;
240 static RASGETCONNECTSTATUS ms_pfnRasGetConnectStatus;
241 static RASGETERRORSTRING ms_pfnRasGetErrorString;
242 static RASHANGUP ms_pfnRasHangUp;
243 static RASGETPROJECTIONINFO ms_pfnRasGetProjectionInfo;
244 static RASCREATEPHONEBOOKENTRY ms_pfnRasCreatePhonebookEntry;
245 static RASEDITPHONEBOOKENTRY ms_pfnRasEditPhonebookEntry;
246 static RASSETENTRYDIALPARAMS ms_pfnRasSetEntryDialParams;
247 static RASGETENTRYDIALPARAMS ms_pfnRasGetEntryDialParams;
248 static RASENUMDEVICES ms_pfnRasEnumDevices;
249 static RASGETCOUNTRYINFO ms_pfnRasGetCountryInfo;
250 static RASGETENTRYPROPERTIES ms_pfnRasGetEntryProperties;
251 static RASSETENTRYPROPERTIES ms_pfnRasSetEntryProperties;
252 static RASRENAMEENTRY ms_pfnRasRenameEntry;
253 static RASDELETEENTRY ms_pfnRasDeleteEntry;
254 static RASVALIDATEENTRYNAME ms_pfnRasValidateEntryName;
255
256 // this function is not supported by Win95
257 static RASCONNECTIONNOTIFICATION ms_pfnRasConnectionNotification;
258
259 // if this flag is different from -1, it overrides IsOnline()
260 static int ms_userSpecifiedOnlineStatus;
261
262 // this flag tells us if we're online
263 static int ms_isConnected;
264
265 // this flag tells us whether a call to RasDial() is in progress
266 static wxDialUpManagerMSW *ms_dialer;
267 };
268
269 // ----------------------------------------------------------------------------
270 // private functions
271 // ----------------------------------------------------------------------------
272
273 static LRESULT WINAPI wxRasStatusWindowProc(HWND hWnd, UINT message,
274 WPARAM wParam, LPARAM lParam);
275
276 static DWORD wxRasMonitorThread(wxRasThreadData *data);
277
278 static void WINAPI wxRasDialFunc(UINT unMsg,
279 RASCONNSTATE rasconnstate,
280 DWORD dwError);
281
282 // ============================================================================
283 // implementation
284 // ============================================================================
285
286 // ----------------------------------------------------------------------------
287 // init the static variables
288 // ----------------------------------------------------------------------------
289
290 HRASCONN wxDialUpManagerMSW::ms_hRasConnection = 0;
291
292 HWND wxDialUpManagerMSW::ms_hwndRas = 0;
293
294 RASDIAL wxDialUpManagerMSW::ms_pfnRasDial = 0;
295 RASENUMCONNECTIONS wxDialUpManagerMSW::ms_pfnRasEnumConnections = 0;
296 RASENUMENTRIES wxDialUpManagerMSW::ms_pfnRasEnumEntries = 0;
297 RASGETCONNECTSTATUS wxDialUpManagerMSW::ms_pfnRasGetConnectStatus = 0;
298 RASGETERRORSTRING wxDialUpManagerMSW::ms_pfnRasGetErrorString = 0;
299 RASHANGUP wxDialUpManagerMSW::ms_pfnRasHangUp = 0;
300 RASGETPROJECTIONINFO wxDialUpManagerMSW::ms_pfnRasGetProjectionInfo = 0;
301 RASCREATEPHONEBOOKENTRY wxDialUpManagerMSW::ms_pfnRasCreatePhonebookEntry = 0;
302 RASEDITPHONEBOOKENTRY wxDialUpManagerMSW::ms_pfnRasEditPhonebookEntry = 0;
303 RASSETENTRYDIALPARAMS wxDialUpManagerMSW::ms_pfnRasSetEntryDialParams = 0;
304 RASGETENTRYDIALPARAMS wxDialUpManagerMSW::ms_pfnRasGetEntryDialParams = 0;
305 RASENUMDEVICES wxDialUpManagerMSW::ms_pfnRasEnumDevices = 0;
306 RASGETCOUNTRYINFO wxDialUpManagerMSW::ms_pfnRasGetCountryInfo = 0;
307 RASGETENTRYPROPERTIES wxDialUpManagerMSW::ms_pfnRasGetEntryProperties = 0;
308 RASSETENTRYPROPERTIES wxDialUpManagerMSW::ms_pfnRasSetEntryProperties = 0;
309 RASRENAMEENTRY wxDialUpManagerMSW::ms_pfnRasRenameEntry = 0;
310 RASDELETEENTRY wxDialUpManagerMSW::ms_pfnRasDeleteEntry = 0;
311 RASVALIDATEENTRYNAME wxDialUpManagerMSW::ms_pfnRasValidateEntryName = 0;
312 RASCONNECTIONNOTIFICATION wxDialUpManagerMSW::ms_pfnRasConnectionNotification = 0;
313
314 int wxDialUpManagerMSW::ms_userSpecifiedOnlineStatus = -1;
315 int wxDialUpManagerMSW::ms_isConnected = -1;
316 wxDialUpManagerMSW *wxDialUpManagerMSW::ms_dialer = NULL;
317
318 // ----------------------------------------------------------------------------
319 // ctor and dtor: the dynamic linking happens here
320 // ----------------------------------------------------------------------------
321
322 // the static creator function is implemented here
323 wxDialUpManager *wxDialUpManager::Create()
324 {
325 return new wxDialUpManagerMSW;
326 }
327
328 #ifdef __VISUALC__
329 // warning about "'this' : used in base member initializer list" - so what?
330 #pragma warning(disable:4355)
331 #endif // VC++
332
333 wxDialUpManagerMSW::wxDialUpManagerMSW()
334 : m_timerStatusPolling(this),
335 m_dllRas(_T("RASAPI32"))
336 {
337 // initialize our data
338 m_hThread = 0;
339
340 if ( !m_dllRas.IsLoaded() )
341 {
342 wxLogError(_("Dial up functions are unavailable because the remote access service (RAS) is not installed on this machine. Please install it."));
343 }
344 else if ( !ms_pfnRasDial )
345 {
346 // resolve the functions we need
347
348 // this will contain the name of the function we failed to resolve
349 // if any at the end
350 const char *funcName = NULL;
351
352 // get the function from rasapi32.dll and abort if it's not found
353 #define RESOLVE_RAS_FUNCTION(type, name) \
354 ms_pfn##name = (type)m_dllRas.GetSymbol( wxString(_T(#name)) \
355 + gs_funcSuffix); \
356 if ( !ms_pfn##name ) \
357 { \
358 funcName = #name; \
359 goto exit; \
360 }
361
362 // a variant of above macro which doesn't abort if the function is
363 // not found in the DLL
364 #define RESOLVE_OPTIONAL_RAS_FUNCTION(type, name) \
365 ms_pfn##name = (type)m_dllRas.GetSymbol( wxString(_T(#name)) \
366 + gs_funcSuffix);
367
368 RESOLVE_RAS_FUNCTION(RASDIAL, RasDial);
369 RESOLVE_RAS_FUNCTION(RASENUMCONNECTIONS, RasEnumConnections);
370 RESOLVE_RAS_FUNCTION(RASENUMENTRIES, RasEnumEntries);
371 RESOLVE_RAS_FUNCTION(RASGETCONNECTSTATUS, RasGetConnectStatus);
372 RESOLVE_RAS_FUNCTION(RASGETERRORSTRING, RasGetErrorString);
373 RESOLVE_RAS_FUNCTION(RASHANGUP, RasHangUp);
374 RESOLVE_RAS_FUNCTION(RASGETENTRYDIALPARAMS, RasGetEntryDialParams);
375
376 // suppress error messages about missing (non essential) functions
377 {
378 wxLogNull noLog;
379
380 RESOLVE_OPTIONAL_RAS_FUNCTION(RASGETPROJECTIONINFO, RasGetProjectionInfo);
381 RESOLVE_OPTIONAL_RAS_FUNCTION(RASCREATEPHONEBOOKENTRY, RasCreatePhonebookEntry);
382 RESOLVE_OPTIONAL_RAS_FUNCTION(RASEDITPHONEBOOKENTRY, RasEditPhonebookEntry);
383 RESOLVE_OPTIONAL_RAS_FUNCTION(RASSETENTRYDIALPARAMS, RasSetEntryDialParams);
384 RESOLVE_OPTIONAL_RAS_FUNCTION(RASGETENTRYPROPERTIES, RasGetEntryProperties);
385 RESOLVE_OPTIONAL_RAS_FUNCTION(RASSETENTRYPROPERTIES, RasSetEntryProperties);
386 RESOLVE_OPTIONAL_RAS_FUNCTION(RASRENAMEENTRY, RasRenameEntry);
387 RESOLVE_OPTIONAL_RAS_FUNCTION(RASDELETEENTRY, RasDeleteEntry);
388 RESOLVE_OPTIONAL_RAS_FUNCTION(RASVALIDATEENTRYNAME, RasValidateEntryName);
389 RESOLVE_OPTIONAL_RAS_FUNCTION(RASGETCOUNTRYINFO, RasGetCountryInfo);
390 RESOLVE_OPTIONAL_RAS_FUNCTION(RASENUMDEVICES, RasEnumDevices);
391 RESOLVE_OPTIONAL_RAS_FUNCTION(RASCONNECTIONNOTIFICATION, RasConnectionNotification);
392 }
393
394 // keep your preprocessor name space clean
395 #undef RESOLVE_RAS_FUNCTION
396 #undef RESOLVE_OPTIONAL_RAS_FUNCTION
397
398 exit:
399 if ( funcName )
400 {
401 static const wxChar *msg = wxTRANSLATE(
402 "The version of remote access service (RAS) installed on this machine is too\
403 old, please upgrade (the following required function is missing: %s)."
404 );
405
406 wxLogError(wxGetTranslation(msg), funcName);
407 m_dllRas.Unload();
408 return;
409 }
410 }
411
412 // enable auto check by default
413 EnableAutoCheckOnlineStatus(0);
414 }
415
416 wxDialUpManagerMSW::~wxDialUpManagerMSW()
417 {
418 CleanUpThreadData();
419 }
420
421 // ----------------------------------------------------------------------------
422 // helper functions
423 // ----------------------------------------------------------------------------
424
425 wxString wxDialUpManagerMSW::GetErrorString(DWORD error)
426 {
427 wxChar buffer[512]; // this should be more than enough according to MS docs
428 DWORD dwRet = ms_pfnRasGetErrorString(error, buffer, WXSIZEOF(buffer));
429 switch ( dwRet )
430 {
431 case ERROR_INVALID_PARAMETER:
432 // this was a standard Win32 error probably
433 return wxString(wxSysErrorMsg(error));
434
435 default:
436 {
437 wxLogSysError(dwRet,
438 _("Failed to retrieve text of RAS error message"));
439
440 wxString msg;
441 msg.Printf(_("unknown error (error code %08x)."), error);
442 return msg;
443 }
444
445 case 0:
446 // we want the error message to start from a lower case letter
447 buffer[0] = wxTolower(buffer[0]);
448
449 return wxString(buffer);
450 }
451 }
452
453 HRASCONN wxDialUpManagerMSW::FindActiveConnection()
454 {
455 // enumerate connections
456 DWORD cbBuf = sizeof(RASCONN);
457 LPRASCONN lpRasConn = (LPRASCONN)malloc(cbBuf);
458 if ( !lpRasConn )
459 {
460 // out of memory
461 return 0;
462 }
463
464 lpRasConn->dwSize = sizeof(RASCONN);
465
466 DWORD nConnections = 0;
467 DWORD dwRet = ERROR_BUFFER_TOO_SMALL;
468
469 while ( dwRet == ERROR_BUFFER_TOO_SMALL )
470 {
471 dwRet = ms_pfnRasEnumConnections(lpRasConn, &cbBuf, &nConnections);
472
473 if ( dwRet == ERROR_BUFFER_TOO_SMALL )
474 {
475 LPRASCONN lpRasConnOld = lpRasConn;
476 lpRasConn = (LPRASCONN)realloc(lpRasConn, cbBuf);
477 if ( !lpRasConn )
478 {
479 // out of memory
480 free(lpRasConnOld);
481
482 return 0;
483 }
484 }
485 else if ( dwRet == 0 )
486 {
487 // ok, success
488 break;
489 }
490 else
491 {
492 // an error occured
493 wxLogError(_("Cannot find active dialup connection: %s"),
494 GetErrorString(dwRet).c_str());
495 return 0;
496 }
497 }
498
499 HRASCONN hrasconn;
500
501 switch ( nConnections )
502 {
503 case 0:
504 // no connections
505 hrasconn = 0;
506 break;
507
508 default:
509 // more than 1 connection - we don't know what to do with this
510 // case, so give a warning but continue (taking the first
511 // connection) - the warning is really needed because this function
512 // is used, for example, to select the connection to hang up and so
513 // we may hang up the wrong connection here...
514 wxLogWarning(_("Several active dialup connections found, choosing one randomly."));
515 // fall through
516
517 case 1:
518 // exactly 1 connection, great
519 hrasconn = lpRasConn->hrasconn;
520 }
521
522 free(lpRasConn);
523
524 return hrasconn;
525 }
526
527 void wxDialUpManagerMSW::CleanUpThreadData()
528 {
529 if ( m_hThread )
530 {
531 if ( !SetEvent(m_data.hEventQuit) )
532 {
533 wxLogLastError(_T("SetEvent(RasThreadQuit)"));
534 }
535
536 CloseHandle(m_hThread);
537
538 m_hThread = 0;
539 }
540
541 if ( m_data.hWnd )
542 {
543 DestroyWindow(m_data.hWnd);
544
545 m_data.hWnd = 0;
546 }
547
548 if ( m_data.hEventQuit )
549 {
550 CloseHandle(m_data.hEventQuit);
551
552 m_data.hEventQuit = 0;
553 }
554
555 if ( m_data.hEventRas )
556 {
557 CloseHandle(m_data.hEventRas);
558
559 m_data.hEventRas = 0;
560 }
561 }
562
563 // ----------------------------------------------------------------------------
564 // connection status
565 // ----------------------------------------------------------------------------
566
567 void wxDialUpManagerMSW::CheckRasStatus()
568 {
569 // use int, not bool to compare with -1
570 int isConnected = FindActiveConnection() != 0;
571 if ( isConnected != ms_isConnected )
572 {
573 if ( ms_isConnected != -1 )
574 {
575 // notify the program
576 NotifyApp(isConnected != 0);
577 }
578 // else: it's the first time we're called, just update the flag
579
580 ms_isConnected = isConnected;
581 }
582 }
583
584 void wxDialUpManagerMSW::NotifyApp(bool connected, bool fromOurselves) const
585 {
586 wxDialUpEvent event(connected, fromOurselves);
587 (void)wxTheApp->ProcessEvent(event);
588 }
589
590 // this function is called whenever the status of any RAS connection on this
591 // machine changes by RAS itself
592 void wxDialUpManagerMSW::OnConnectStatusChange()
593 {
594 // we know that status changed, but we don't know whether we're connected
595 // or not - so find it out
596 CheckRasStatus();
597 }
598
599 // this function is called by our callback which we give to RasDial() when
600 // calling it asynchronously
601 void wxDialUpManagerMSW::OnDialProgress(RASCONNSTATE rasconnstate,
602 DWORD dwError)
603 {
604 if ( !GetDialer() )
605 {
606 // this probably means that CancelDialing() was called and we get
607 // "disconnected" notification
608 return;
609 }
610
611 // we're only interested in 2 events: connected and disconnected
612 if ( dwError )
613 {
614 wxLogError(_("Failed to establish dialup connection: %s"),
615 GetErrorString(dwError).c_str());
616
617 // we should still call RasHangUp() if we got a non 0 connection
618 if ( ms_hRasConnection )
619 {
620 ms_pfnRasHangUp(ms_hRasConnection);
621 ms_hRasConnection = 0;
622 }
623
624 ms_dialer = NULL;
625
626 NotifyApp(FALSE /* !connected */, TRUE /* we dialed ourselves */);
627 }
628 else if ( rasconnstate == RASCS_Connected )
629 {
630 ms_isConnected = TRUE;
631 ms_dialer = NULL;
632
633 NotifyApp(TRUE /* connected */, TRUE /* we dialed ourselves */);
634 }
635 }
636
637 // ----------------------------------------------------------------------------
638 // implementation of wxDialUpManager functions
639 // ----------------------------------------------------------------------------
640
641 bool wxDialUpManagerMSW::IsOk() const
642 {
643 return m_dllRas.IsLoaded();
644 }
645
646 size_t wxDialUpManagerMSW::GetISPNames(wxArrayString& names) const
647 {
648 // fetch the entries
649 DWORD size = sizeof(RASENTRYNAME);
650 RASENTRYNAME *rasEntries = (RASENTRYNAME *)malloc(size);
651 rasEntries->dwSize = sizeof(RASENTRYNAME);
652
653 DWORD nEntries;
654 DWORD dwRet;
655 do
656 {
657 dwRet = ms_pfnRasEnumEntries
658 (
659 NULL, // reserved
660 NULL, // default phone book (or all)
661 rasEntries, // [out] buffer for the entries
662 &size, // [in/out] size of the buffer
663 &nEntries // [out] number of entries fetched
664 );
665
666 if ( dwRet == ERROR_BUFFER_TOO_SMALL )
667 {
668 // reallocate the buffer
669 rasEntries = (RASENTRYNAME *)realloc(rasEntries, size);
670 }
671 else if ( dwRet != 0 )
672 {
673 // some other error - abort
674 wxLogError(_("Failed to get ISP names: %s"),
675 GetErrorString(dwRet).c_str());
676
677 free(rasEntries);
678
679 return 0u;
680 }
681 }
682 while ( dwRet != 0 );
683
684 // process them
685 names.Empty();
686 for ( size_t n = 0; n < (size_t)nEntries; n++ )
687 {
688 names.Add(rasEntries[n].szEntryName);
689 }
690
691 free(rasEntries);
692
693 // return the number of entries
694 return names.GetCount();
695 }
696
697 bool wxDialUpManagerMSW::Dial(const wxString& nameOfISP,
698 const wxString& username,
699 const wxString& password,
700 bool async)
701 {
702 // check preconditions
703 wxCHECK_MSG( IsOk(), FALSE, wxT("using uninitialized wxDialUpManager") );
704
705 if ( ms_hRasConnection )
706 {
707 wxFAIL_MSG(wxT("there is already an active connection"));
708
709 return TRUE;
710 }
711
712 // get the default ISP if none given
713 wxString entryName(nameOfISP);
714 if ( !entryName )
715 {
716 wxArrayString names;
717 size_t count = GetISPNames(names);
718 switch ( count )
719 {
720 case 0:
721 // no known ISPs, abort
722 wxLogError(_("Failed to connect: no ISP to dial."));
723
724 return FALSE;
725
726 case 1:
727 // only one ISP, choose it
728 entryName = names[0u];
729 break;
730
731 default:
732 // several ISPs, let the user choose
733 {
734 wxString *strings = new wxString[count];
735 for ( size_t i = 0; i < count; i++ )
736 {
737 strings[i] = names[i];
738 }
739
740 entryName = wxGetSingleChoice
741 (
742 _("Choose ISP to dial"),
743 _("Please choose which ISP do you want to connect to"),
744 count,
745 strings
746 );
747
748 delete [] strings;
749
750 if ( !entryName )
751 {
752 // cancelled by user
753 return FALSE;
754 }
755 }
756 }
757 }
758
759 RASDIALPARAMS rasDialParams;
760 rasDialParams.dwSize = sizeof(rasDialParams);
761 wxStrncpy(rasDialParams.szEntryName, entryName, RAS_MaxEntryName);
762
763 // do we have the username and password?
764 if ( !username || !password )
765 {
766 BOOL gotPassword;
767 DWORD dwRet = ms_pfnRasGetEntryDialParams
768 (
769 NULL, // default phonebook
770 &rasDialParams, // [in/out] the params of this entry
771 &gotPassword // [out] did we get password?
772 );
773
774 if ( dwRet != 0 )
775 {
776 wxLogError(_("Failed to connect: missing username/password."));
777
778 return FALSE;
779 }
780 }
781 else
782 {
783 wxStrncpy(rasDialParams.szUserName, username, UNLEN);
784 wxStrncpy(rasDialParams.szPassword, password, PWLEN);
785 }
786
787 // default values for other fields
788 rasDialParams.szPhoneNumber[0] = '\0';
789 rasDialParams.szCallbackNumber[0] = '\0';
790 rasDialParams.szCallbackNumber[0] = '\0';
791
792 rasDialParams.szDomain[0] = '*';
793 rasDialParams.szDomain[1] = '\0';
794
795 // apparently, this is not really necessary - passing NULL instead of the
796 // phone book has the same effect
797 #if 0
798 wxString phoneBook;
799 if ( wxGetOsVersion() == wxWINDOWS_NT )
800 {
801 // first get the length
802 UINT nLen = ::GetSystemDirectory(NULL, 0);
803 nLen++;
804
805 if ( !::GetSystemDirectory(phoneBook.GetWriteBuf(nLen), nLen) )
806 {
807 wxLogSysError(_("Cannot find the location of address book file"));
808 }
809
810 phoneBook.UngetWriteBuf();
811
812 // this is the default phone book
813 phoneBook << "\\ras\\rasphone.pbk";
814 }
815 #endif // 0
816
817 // TODO may be we should disable auto check while async dialing is in
818 // progress?
819
820 ms_dialer = this;
821
822 DWORD dwRet = ms_pfnRasDial
823 (
824 NULL, // no extended features
825 NULL, // default phone book file (NT only)
826 &rasDialParams,
827 0, // use callback for notifications
828 async ? (void *)wxRasDialFunc // cast needed for gcc 3.1
829 : 0, // no notifications, sync operation
830 &ms_hRasConnection
831 );
832
833 if ( dwRet != 0 )
834 {
835 // can't pass a wxWCharBuffer through ( ... )
836 wxLogError(_("Failed to %s dialup connection: %s"),
837 wxString(async ? _("initiate") : _("establish")).c_str(),
838 GetErrorString(dwRet).c_str());
839
840 // we should still call RasHangUp() if we got a non 0 connection
841 if ( ms_hRasConnection )
842 {
843 ms_pfnRasHangUp(ms_hRasConnection);
844 ms_hRasConnection = 0;
845 }
846
847 ms_dialer = NULL;
848
849 return FALSE;
850 }
851
852 // for async dialing, we're not yet connected
853 if ( !async )
854 {
855 ms_isConnected = TRUE;
856 }
857
858 return TRUE;
859 }
860
861 bool wxDialUpManagerMSW::IsDialing() const
862 {
863 return GetDialer() != NULL;
864 }
865
866 bool wxDialUpManagerMSW::CancelDialing()
867 {
868 if ( !GetDialer() )
869 {
870 // silently ignore
871 return FALSE;
872 }
873
874 wxASSERT_MSG( ms_hRasConnection, wxT("dialing but no connection?") );
875
876 ms_dialer = NULL;
877
878 return HangUp();
879 }
880
881 bool wxDialUpManagerMSW::HangUp()
882 {
883 wxCHECK_MSG( IsOk(), FALSE, wxT("using uninitialized wxDialUpManager") );
884
885 // we may terminate either the connection we initiated or another one which
886 // is active now
887 HRASCONN hRasConn;
888 if ( ms_hRasConnection )
889 {
890 hRasConn = ms_hRasConnection;
891
892 ms_hRasConnection = 0;
893 }
894 else
895 {
896 hRasConn = FindActiveConnection();
897 }
898
899 if ( !hRasConn )
900 {
901 wxLogError(_("Cannot hang up - no active dialup connection."));
902
903 return FALSE;
904 }
905
906 DWORD dwRet = ms_pfnRasHangUp(hRasConn);
907 if ( dwRet != 0 )
908 {
909 wxLogError(_("Failed to terminate the dialup connection: %s"),
910 GetErrorString(dwRet).c_str());
911 }
912
913 ms_isConnected = FALSE;
914
915 return TRUE;
916 }
917
918 bool wxDialUpManagerMSW::IsAlwaysOnline() const
919 {
920 // assume no permanent connection by default
921 bool isAlwaysOnline = FALSE;
922
923 // try to use WinInet functions
924
925 // NB: we could probably use wxDynamicLibrary here just as well,
926 // but we allow multiple instances of wxDialUpManagerMSW so
927 // we might as well use the ref counted version here too.
928
929 wxDynamicLibrary hDll(_T("WININET"));
930 if ( hDll.IsLoaded() )
931 {
932 typedef BOOL (WINAPI *INTERNETGETCONNECTEDSTATE)(LPDWORD, DWORD);
933 INTERNETGETCONNECTEDSTATE pfnInternetGetConnectedState;
934
935 #define RESOLVE_FUNCTION(type, name) \
936 pfn##name = (type)hDll.GetSymbol(_T(#name))
937
938 RESOLVE_FUNCTION(INTERNETGETCONNECTEDSTATE, InternetGetConnectedState);
939
940 if ( pfnInternetGetConnectedState )
941 {
942 DWORD flags = 0;
943 if ( pfnInternetGetConnectedState(&flags, 0 /* reserved */) )
944 {
945 // there is some connection to the net, see of which type
946 isAlwaysOnline = (flags & (INTERNET_CONNECTION_LAN |
947 INTERNET_CONNECTION_PROXY)) != 0;
948 }
949 //else: no Internet connection at all
950 }
951 }
952
953 return isAlwaysOnline;
954 }
955
956 bool wxDialUpManagerMSW::IsOnline() const
957 {
958 wxCHECK_MSG( IsOk(), FALSE, wxT("using uninitialized wxDialUpManager") );
959
960 if ( ms_userSpecifiedOnlineStatus != -1 )
961 {
962 // user specified flag overrides our logic
963 return ms_userSpecifiedOnlineStatus != 0;
964 }
965 else
966 {
967 // return TRUE if there is at least one active connection
968 return FindActiveConnection() != 0;
969 }
970 }
971
972 void wxDialUpManagerMSW::SetOnlineStatus(bool isOnline)
973 {
974 wxCHECK_RET( IsOk(), wxT("using uninitialized wxDialUpManager") );
975
976 ms_userSpecifiedOnlineStatus = isOnline;
977 }
978
979 bool wxDialUpManagerMSW::EnableAutoCheckOnlineStatus(size_t nSeconds)
980 {
981 wxCHECK_MSG( IsOk(), FALSE, wxT("using uninitialized wxDialUpManager") );
982
983 bool ok = ms_pfnRasConnectionNotification != 0;
984
985 if ( ok )
986 {
987 // we're running under NT 4.0, Windows 98 or later and can use
988 // RasConnectionNotification() to be notified by a secondary thread
989
990 // first, see if we don't have this thread already running
991 if ( m_hThread != 0 )
992 {
993 DWORD dwSuspendCount = 2;
994 while ( dwSuspendCount > 1 )
995 {
996 dwSuspendCount = ResumeThread(m_hThread);
997 if ( dwSuspendCount == (DWORD)-1 )
998 {
999 wxLogLastError(wxT("ResumeThread(RasThread)"));
1000
1001 ok = FALSE;
1002 }
1003 }
1004
1005 if ( ok )
1006 {
1007 return TRUE;
1008 }
1009 }
1010 }
1011
1012 // create all the stuff we need to be notified about RAS connection
1013 // status change
1014
1015 if ( ok )
1016 {
1017 // first create an event to wait on
1018 m_data.hEventRas = CreateEvent
1019 (
1020 NULL, // security attribute (default)
1021 FALSE, // manual reset (not)
1022 FALSE, // initial state (not signaled)
1023 NULL // name (no)
1024 );
1025 if ( !m_data.hEventRas )
1026 {
1027 wxLogLastError(wxT("CreateEvent(RasStatus)"));
1028
1029 ok = FALSE;
1030 }
1031 }
1032
1033 if ( ok )
1034 {
1035 // create the event we use to quit the thread
1036 m_data.hEventQuit = CreateEvent(NULL, FALSE, FALSE, NULL);
1037 if ( !m_data.hEventQuit )
1038 {
1039 wxLogLastError(wxT("CreateEvent(RasThreadQuit)"));
1040
1041 CleanUpThreadData();
1042
1043 ok = FALSE;
1044 }
1045 }
1046
1047 if ( ok && !ms_hwndRas )
1048 {
1049 // create a hidden window to receive notification about connections
1050 // status change
1051 extern const wxChar *wxCanvasClassName;
1052 ms_hwndRas = ::CreateWindow(wxCanvasClassName, NULL,
1053 0, 0, 0, 0,
1054 0, NULL,
1055 (HMENU)NULL, wxGetInstance(), 0);
1056 if ( !ms_hwndRas )
1057 {
1058 wxLogLastError(wxT("CreateWindow(RasHiddenWindow)"));
1059
1060 CleanUpThreadData();
1061
1062 ok = FALSE;
1063 }
1064
1065 // and subclass it
1066 FARPROC windowProc = MakeProcInstance
1067 (
1068 (FARPROC)wxRasStatusWindowProc,
1069 wxGetInstance()
1070 );
1071
1072 ::SetWindowLong(ms_hwndRas, GWL_WNDPROC, (LONG) windowProc);
1073 }
1074
1075 m_data.hWnd = ms_hwndRas;
1076
1077 if ( ok )
1078 {
1079 // start the secondary thread
1080 m_data.dialUpManager = this;
1081
1082 DWORD tid;
1083 m_hThread = CreateThread
1084 (
1085 NULL,
1086 0,
1087 (LPTHREAD_START_ROUTINE)wxRasMonitorThread,
1088 (void *)&m_data,
1089 0,
1090 &tid
1091 );
1092
1093 if ( !m_hThread )
1094 {
1095 wxLogLastError(wxT("CreateThread(RasStatusThread)"));
1096
1097 CleanUpThreadData();
1098 }
1099 }
1100
1101 if ( ok )
1102 {
1103 // start receiving RAS notifications
1104 DWORD dwRet = ms_pfnRasConnectionNotification
1105 (
1106 (HRASCONN)INVALID_HANDLE_VALUE,
1107 m_data.hEventRas,
1108 3 /* RASCN_Connection | RASCN_Disconnection */
1109 );
1110
1111 if ( dwRet != 0 )
1112 {
1113 wxLogDebug(wxT("RasConnectionNotification() failed: %s"),
1114 GetErrorString(dwRet).c_str());
1115
1116 CleanUpThreadData();
1117 }
1118 else
1119 {
1120 return TRUE;
1121 }
1122 }
1123
1124 // we're running under Windows 95 and have to poll ourselves
1125 // (or, alternatively, the code above for NT/98 failed)
1126 m_timerStatusPolling.Stop();
1127 if ( nSeconds == 0 )
1128 {
1129 // default value
1130 nSeconds = 60;
1131 }
1132 m_timerStatusPolling.Start(nSeconds * 1000);
1133
1134 return TRUE;
1135 }
1136
1137 void wxDialUpManagerMSW::DisableAutoCheckOnlineStatus()
1138 {
1139 wxCHECK_RET( IsOk(), wxT("using uninitialized wxDialUpManager") );
1140
1141 if ( m_hThread )
1142 {
1143 // we have running secondary thread, it's just enough to suspend it
1144 if ( SuspendThread(m_hThread) == (DWORD)-1 )
1145 {
1146 wxLogLastError(wxT("SuspendThread(RasThread)"));
1147 }
1148 }
1149 else
1150 {
1151 // even simpler - just stop the timer
1152 m_timerStatusPolling.Stop();
1153 }
1154 }
1155
1156 // ----------------------------------------------------------------------------
1157 // stubs which don't do anything in MSW version
1158 // ----------------------------------------------------------------------------
1159
1160 void wxDialUpManagerMSW::SetWellKnownHost(const wxString& WXUNUSED(hostname),
1161 int WXUNUSED(port))
1162 {
1163 wxCHECK_RET( IsOk(), wxT("using uninitialized wxDialUpManager") );
1164
1165 // nothing to do - we don't use this
1166 }
1167
1168 void wxDialUpManagerMSW::SetConnectCommand(const wxString& WXUNUSED(dial),
1169 const wxString& WXUNUSED(hangup))
1170 {
1171 wxCHECK_RET( IsOk(), wxT("using uninitialized wxDialUpManager") );
1172
1173 // nothing to do - we don't use this
1174 }
1175
1176 // ----------------------------------------------------------------------------
1177 // callbacks
1178 // ----------------------------------------------------------------------------
1179
1180 static DWORD wxRasMonitorThread(wxRasThreadData *data)
1181 {
1182 HANDLE handles[2];
1183 handles[0] = data->hEventRas;
1184 handles[1] = data->hEventQuit;
1185
1186 bool cont = TRUE;
1187 while ( cont )
1188 {
1189 DWORD dwRet = WaitForMultipleObjects(2, handles, FALSE, INFINITE);
1190
1191 switch ( dwRet )
1192 {
1193 case WAIT_OBJECT_0:
1194 // RAS connection status changed
1195 SendMessage(data->hWnd, wxWM_RAS_STATUS_CHANGED,
1196 0, (LPARAM)data);
1197 break;
1198
1199 case WAIT_OBJECT_0 + 1:
1200 cont = FALSE;
1201 break;
1202
1203 case WAIT_FAILED:
1204 wxLogLastError(wxT("WaitForMultipleObjects(RasMonitor)"));
1205 break;
1206 }
1207 }
1208
1209 return 0;
1210 }
1211
1212 static LRESULT APIENTRY wxRasStatusWindowProc(HWND hWnd, UINT message,
1213 WPARAM wParam, LPARAM lParam)
1214 {
1215 switch ( message )
1216 {
1217 case wxWM_RAS_STATUS_CHANGED:
1218 {
1219 wxRasThreadData *data = (wxRasThreadData *)lParam;
1220 data->dialUpManager->OnConnectStatusChange();
1221 }
1222 break;
1223
1224 case wxWM_RAS_DIALING_PROGRESS:
1225 {
1226 wxDialUpManagerMSW *dialMan = wxDialUpManagerMSW::GetDialer();
1227
1228 dialMan->OnDialProgress((RASCONNSTATE)wParam, lParam);
1229 }
1230 break;
1231
1232 default:
1233 return ::DefWindowProc(hWnd, message, wParam, lParam);
1234 }
1235
1236 return 0;
1237 }
1238
1239 static void WINAPI wxRasDialFunc(UINT unMsg,
1240 RASCONNSTATE rasconnstate,
1241 DWORD dwError)
1242 {
1243 wxDialUpManagerMSW *dialUpManager = wxDialUpManagerMSW::GetDialer();
1244
1245 wxCHECK_RET( dialUpManager, wxT("who started to dial then?") );
1246
1247 SendMessage(dialUpManager->GetRasWindow(), wxWM_RAS_DIALING_PROGRESS,
1248 rasconnstate, dwError);
1249 }
1250
1251 #endif // __BORLANDC__
1252
1253 #endif // wxUSE_DIALUP_MANAGER
1254