1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/msw/webview_ie.cpp
3 // Purpose: wxMSW wxWebViewIE class implementation for web view component
4 // Author: Marianne Gagnon
6 // Copyright: (c) 2010 Marianne Gagnon, Steven Lamerton
7 // Licence: wxWindows licence
8 /////////////////////////////////////////////////////////////////////////////
10 // For compilers that support precompilation, includes "wx.h".
11 #include "wx/wxprec.h"
13 #if defined(__BORLANDC__)
17 #include "wx/msw/webview_ie.h"
27 // Various definitions are missing from mingw
29 typedef enum CommandStateChangeConstants
{
30 CSC_UPDATECOMMANDS
= (int) 0xFFFFFFFF,
31 CSC_NAVIGATEFORWARD
= 0x1,
32 CSC_NAVIGATEBACK
= 0x2
33 } CommandStateChangeConstants
;
35 #define DISPID_COMMANDSTATECHANGE 105
36 #define DISPID_NAVIGATECOMPLETE2 252
37 #define DISPID_NAVIGATEERROR 271
38 #define DISPID_NEWWINDOW3 273
39 #define OLECMDID_OPTICAL_ZOOM 63
40 #define INET_E_ERROR_FIRST 0x800C0002L
41 #define INET_E_INVALID_URL 0x800C0002L
42 #define INET_E_NO_SESSION 0x800C0003L
43 #define INET_E_CANNOT_CONNECT 0x800C0004L
44 #define INET_E_RESOURCE_NOT_FOUND 0x800C0005L
45 #define INET_E_OBJECT_NOT_FOUND 0x800C0006L
46 #define INET_E_DATA_NOT_AVAILABLE 0x800C0007L
47 #define INET_E_DOWNLOAD_FAILURE 0x800C0008L
48 #define INET_E_AUTHENTICATION_REQUIRED 0x800C0009L
49 #define INET_E_NO_VALID_MEDIA 0x800C000AL
50 #define INET_E_CONNECTION_TIMEOUT 0x800C000BL
51 #define INET_E_INVALID_REQUEST 0x800C000CL
52 #define INET_E_UNKNOWN_PROTOCOL 0x800C000DL
53 #define INET_E_SECURITY_PROBLEM 0x800C000EL
54 #define INET_E_CANNOT_LOAD_DATA 0x800C000FL
55 #define INET_E_CANNOT_INSTANTIATE_OBJECT 0x800C0010L
56 #define INET_E_QUERYOPTION_UNKNOWN 0x800C0013L
57 #define INET_E_REDIRECT_FAILED 0x800C0014L
58 #define INET_E_REDIRECT_TO_DIR 0x800C0015L
59 #define INET_E_CANNOT_LOCK_REQUEST 0x800C0016L
60 #define INET_E_USE_EXTEND_BINDING 0x800C0017L
61 #define INET_E_TERMINATED_BIND 0x800C0018L
62 #define INET_E_INVALID_CERTIFICATE 0x800C0019L
63 #define INET_E_CODE_DOWNLOAD_DECLINED 0x800C0100L
64 #define INET_E_RESULT_DISPATCHED 0x800C0200L
65 #define INET_E_CANNOT_REPLACE_SFP_FILE 0x800C0300L
66 #define INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY 0x800C0500L
67 #define INET_E_CODE_INSTALL_SUPPRESSED 0x800C0400L
69 #define REFRESH_NORMAL 0
70 #define REFRESH_COMPLETELY 3
73 BEGIN_EVENT_TABLE(wxWebViewIE
, wxControl
)
74 EVT_ACTIVEX(wxID_ANY
, wxWebViewIE
::onActiveXEvent
)
75 EVT_ERASE_BACKGROUND(wxWebViewIE
::onEraseBg
)
78 bool wxWebViewIE
::Create(wxWindow
* parent
,
86 if (!wxControl
::Create(parent
, id
, pos
, size
, style
,
87 wxDefaultValidator
, name
))
93 m_canNavigateBack
= false;
94 m_canNavigateForward
= false;
96 m_historyLoadingFromList
= false;
97 m_historyEnabled
= true;
98 m_historyPosition
= -1;
100 if (::CoCreateInstance(CLSID_WebBrowser
, NULL
,
101 CLSCTX_INPROC_SERVER
, // CLSCTX_INPROC,
102 IID_IWebBrowser2
, (void**)&m_webBrowser
) != 0)
104 wxLogError("Failed to initialize IE, CoCreateInstance returned an error");
108 m_ie
.SetDispatchPtr(m_webBrowser
); // wxAutomationObject will release itself
110 m_webBrowser
->put_RegisterAsBrowser(VARIANT_TRUE
);
111 m_webBrowser
->put_RegisterAsDropTarget(VARIANT_TRUE
);
112 //m_webBrowser->put_Silent(VARIANT_FALSE);
114 m_container
= new wxActiveXContainer(this, IID_IWebBrowser2
, m_webBrowser
);
116 SetBackgroundStyle(wxBG_STYLE_PAINT
);
117 SetDoubleBuffered(true);
123 void wxWebViewIE
::LoadUrl(const wxString
& url
)
125 wxVariant out
= m_ie
.CallMethod("Navigate", (BSTR
) url
.wc_str(),
126 NULL
, NULL
, NULL
, NULL
);
128 // FIXME: why is out value null??
129 //(HRESULT)(out.GetLong()) == S_OK;
132 void wxWebViewIE
::SetPage(const wxString
& html
, const wxString
& baseUrl
)
134 LoadUrl("about:blank");
136 // Let the wx events generated for navigation events be processed, so
137 // that the underlying IE component completes its Document object.
138 // FIXME: calling wxYield is not elegant nor very reliable probably
141 // TODO: consider the "baseUrl" parameter if possible
142 // TODO: consider encoding
143 BSTR bstr
= SysAllocString(html
.wc_str());
145 // Creates a new one-dimensional array
146 SAFEARRAY
*psaStrings
= SafeArrayCreateVector(VT_VARIANT
, 0, 1);
147 if (psaStrings
!= NULL
)
150 HRESULT hr
= SafeArrayAccessData(psaStrings
, (LPVOID
*)¶m
);
152 param
->bstrVal
= bstr
;
154 hr
= SafeArrayUnaccessData(psaStrings
);
155 IHTMLDocument2
* document
= GetDocument();
156 document
->write(psaStrings
);
158 // SafeArrayDestroy calls SysFreeString for each BSTR
159 SafeArrayDestroy(psaStrings
);
163 wxLogError("wxWebViewIE::SetPage() : psaStrings is NULL");
168 wxString wxWebViewIE
::GetPageSource()
170 IHTMLDocument2
* document
= GetDocument();
171 IHTMLElement
*bodyTag
= NULL
;
172 IHTMLElement
*htmlTag
= NULL
;
173 document
->get_body(&bodyTag
);
174 wxASSERT(bodyTag
!= NULL
);
177 bodyTag
->get_parentElement(&htmlTag
);
178 wxASSERT(htmlTag
!= NULL
);
181 htmlTag
->get_outerHTML(&bstr
);
186 //wxMessageBox(wxString(bstr));
188 // TODO: check encoding
189 return wxString(bstr
);
192 // FIXME? retrieve OLECMDID_GETZOOMRANGE instead of hardcoding range 0-4
193 wxWebViewZoom wxWebViewIE
::GetZoom()
195 const int zoom
= GetIETextZoom();
200 return wxWEB_VIEW_ZOOM_TINY
;
203 return wxWEB_VIEW_ZOOM_SMALL
;
206 return wxWEB_VIEW_ZOOM_MEDIUM
;
209 return wxWEB_VIEW_ZOOM_LARGE
;
212 return wxWEB_VIEW_ZOOM_LARGEST
;
216 return wxWEB_VIEW_ZOOM_MEDIUM
;
219 void wxWebViewIE
::SetZoom(wxWebViewZoom zoom
)
221 // I know I could cast from enum to int since wxWebViewZoom happens to
222 // match with IE's zoom levels, but I don't like doing that, what if enum
226 case wxWEB_VIEW_ZOOM_TINY
:
229 case wxWEB_VIEW_ZOOM_SMALL
:
232 case wxWEB_VIEW_ZOOM_MEDIUM
:
235 case wxWEB_VIEW_ZOOM_LARGE
:
238 case wxWEB_VIEW_ZOOM_LARGEST
:
246 void wxWebViewIE
::SetIETextZoom(int level
)
249 VariantInit (&zoomVariant
);
250 V_VT(&zoomVariant
) = VT_I4
;
251 V_I4(&zoomVariant
) = level
;
253 HRESULT result
= m_webBrowser
->ExecWB(OLECMDID_ZOOM
,
254 OLECMDEXECOPT_DONTPROMPTUSER
,
256 wxASSERT (result
== S_OK
);
258 VariantClear (&zoomVariant
);
261 int wxWebViewIE
::GetIETextZoom()
264 VariantInit (&zoomVariant
);
265 V_VT(&zoomVariant
) = VT_I4
;
266 V_I4(&zoomVariant
) = 4;
268 HRESULT result
= m_webBrowser
->ExecWB(OLECMDID_ZOOM
,
269 OLECMDEXECOPT_DONTPROMPTUSER
,
271 wxASSERT (result
== S_OK
);
273 int zoom
= V_I4(&zoomVariant
);
274 // wxMessageBox(wxString::Format("Zoom : %i", zoom));
275 VariantClear (&zoomVariant
);
280 void wxWebViewIE
::SetIEOpticalZoom(float zoom
)
282 // TODO: add support for optical zoom (IE7+ only)
284 // TODO: get range from OLECMDID_OPTICAL_GETZOOMRANGE instead of hardcoding?
285 wxASSERT(zoom
>= 10.0f
);
286 wxASSERT(zoom
<= 1000.0f
);
289 VariantInit (&zoomVariant
);
290 V_VT(&zoomVariant
) = VT_I4
;
291 V_I4(&zoomVariant
) = (zoom
* 100.0f
);
293 HRESULT result
= m_webBrowser
->ExecWB((OLECMDID
)OLECMDID_OPTICAL_ZOOM
,
294 OLECMDEXECOPT_DODEFAULT
,
297 wxASSERT (result
== S_OK
);
300 float wxWebViewIE
::GetIEOpticalZoom()
302 // TODO: add support for optical zoom (IE7+ only)
305 VariantInit (&zoomVariant
);
306 V_VT(&zoomVariant
) = VT_I4
;
307 V_I4(&zoomVariant
) = -1;
309 HRESULT result
= m_webBrowser
->ExecWB((OLECMDID
)OLECMDID_OPTICAL_ZOOM
,
310 OLECMDEXECOPT_DODEFAULT
, NULL
,
312 wxASSERT (result
== S_OK
);
314 const int zoom
= V_I4(&zoomVariant
);
315 VariantClear (&zoomVariant
);
317 return zoom
/ 100.0f
;
320 void wxWebViewIE
::SetZoomType(wxWebViewZoomType
)
322 // TODO: add support for optical zoom (IE7+ only)
326 wxWebViewZoomType wxWebViewIE
::GetZoomType() const
328 // TODO: add support for optical zoom (IE7+ only)
329 return wxWEB_VIEW_ZOOM_TYPE_TEXT
;
332 bool wxWebViewIE
::CanSetZoomType(wxWebViewZoomType
) const
334 // both are supported
335 // TODO: IE6 only supports text zoom, check if it's IE6 first
339 void wxWebViewIE
::Print()
341 m_webBrowser
->ExecWB(OLECMDID_PRINTPREVIEW
,
342 OLECMDEXECOPT_DODEFAULT
, NULL
, NULL
);
345 bool wxWebViewIE
::CanGoBack()
348 return m_historyPosition
> 0;
353 bool wxWebViewIE
::CanGoForward()
356 return m_historyPosition
!= m_historyList
.size() - 1;
361 void wxWebViewIE
::LoadHistoryItem(wxSharedPtr
<wxWebHistoryItem
> item
)
364 for(unsigned int i
= 0; i
< m_historyList
.size(); i
++)
366 //We compare the actual pointers to find the correct item
367 if(m_historyList
[i
].get() == item
.get())
370 wxASSERT_MSG(pos
!= m_historyList
.size(), "invalid history item");
371 m_historyLoadingFromList
= true;
372 LoadUrl(item
->GetUrl());
373 m_historyPosition
= pos
;
376 wxVector
<wxSharedPtr
<wxWebHistoryItem
> > wxWebViewIE
::GetBackwardHistory()
378 wxVector
<wxSharedPtr
<wxWebHistoryItem
> > backhist
;
379 //As we don't have std::copy or an iterator constructor in the wxwidgets
380 //native vector we construct it by hand
381 for(int i
= 0; i
< m_historyPosition
; i
++)
383 backhist
.push_back(m_historyList
[i
]);
388 wxVector
<wxSharedPtr
<wxWebHistoryItem
> > wxWebViewIE
::GetForwardHistory()
390 wxVector
<wxSharedPtr
<wxWebHistoryItem
> > forwardhist
;
391 //As we don't have std::copy or an iterator constructor in the wxwidgets
392 //native vector we construct it by hand
393 for(int i
= m_historyPosition
+ 1; i
< m_historyList
.size(); i
++)
395 forwardhist
.push_back(m_historyList
[i
]);
400 void wxWebViewIE
::GoBack()
402 LoadHistoryItem(m_historyList
[m_historyPosition
- 1]);
405 void wxWebViewIE
::GoForward()
407 LoadHistoryItem(m_historyList
[m_historyPosition
+ 1]);
410 void wxWebViewIE
::Stop()
412 wxVariant out
= m_ie
.CallMethod("Stop");
414 // FIXME: why is out value null??
415 //return (HRESULT)(out.GetLong()) == S_OK;
418 void wxWebViewIE
::ClearHistory()
420 m_historyList
.clear();
421 m_historyPosition
= -1;
424 void wxWebViewIE
::EnableHistory(bool enable
)
426 m_historyEnabled
= enable
;
427 m_historyList
.clear();
428 m_historyPosition
= -1;
431 void wxWebViewIE
::Reload(wxWebViewReloadFlags flags
)
435 V_VT(&level
) = VT_I2
;
439 case wxWEB_VIEW_RELOAD_DEFAULT
:
440 V_I2(&level
) = REFRESH_NORMAL
;
442 case wxWEB_VIEW_RELOAD_NO_CACHE
:
443 V_I2(&level
) = REFRESH_COMPLETELY
;
446 wxFAIL_MSG("Unexpected reload type");
449 m_webBrowser
->Refresh2(&level
);
452 bool wxWebViewIE
::IsOfflineMode()
454 wxVariant out
= m_ie
.GetProperty("Offline");
456 wxASSERT(out
.GetType() == "bool");
458 return out
.GetBool();
461 void wxWebViewIE
::SetOfflineMode(bool offline
)
463 // FIXME: the wxWidgets docs do not really document what the return
464 // parameter of PutProperty is
465 const bool success
= m_ie
.PutProperty("Offline", (offline ?
471 bool wxWebViewIE
::IsBusy()
473 if (m_isBusy
) return true;
475 wxVariant out
= m_ie
.GetProperty("Busy");
477 wxASSERT(out
.GetType() == "bool");
479 return out
.GetBool();
482 wxString wxWebViewIE
::GetCurrentURL()
484 wxVariant out
= m_ie
.GetProperty("LocationURL");
486 wxASSERT(out
.GetType() == "string");
487 return out
.GetString();
490 wxString wxWebViewIE
::GetCurrentTitle()
492 IHTMLDocument2
* document
= GetDocument();
495 document
->get_nameProp(&title
);
496 return wxString(title
);
499 bool wxWebViewIE
::CanCut()
501 return CanExecCommand("Cut");
504 bool wxWebViewIE
::CanCopy()
506 return CanExecCommand("Copy");
508 bool wxWebViewIE
::CanPaste()
510 return CanExecCommand("Paste");
513 void wxWebViewIE
::Cut()
518 void wxWebViewIE
::Copy()
523 void wxWebViewIE
::Paste()
525 ExecCommand("Paste");
528 bool wxWebViewIE
::CanUndo()
530 return CanExecCommand("Undo");
532 bool wxWebViewIE
::CanRedo()
534 return CanExecCommand("Redo");
537 void wxWebViewIE
::Undo()
542 void wxWebViewIE
::Redo()
547 void wxWebViewIE
::SetEditable(bool enable
)
549 IHTMLDocument2
* document
= GetDocument();
551 document
->put_designMode(SysAllocString(L
"On"));
553 document
->put_designMode(SysAllocString(L
"Off"));
556 bool wxWebViewIE
::IsEditable()
558 IHTMLDocument2
* document
= GetDocument();
560 document
->get_designMode(&mode
);
561 if(wxString(mode
) == "On")
567 bool wxWebViewIE
::CanExecCommand(wxString command
)
569 IHTMLDocument2
* document
= GetDocument();
571 VARIANT_BOOL enabled
;
572 document
->queryCommandEnabled(SysAllocString(command
.wc_str()), &enabled
);
574 return (enabled
== VARIANT_TRUE
);
577 void wxWebViewIE
::ExecCommand(wxString command
)
579 IHTMLDocument2
* document
= GetDocument();
580 document
->execCommand(SysAllocString(command
.wc_str()), VARIANT_FALSE
, VARIANT(), NULL
);
583 IHTMLDocument2
* wxWebViewIE
::GetDocument()
585 wxVariant variant
= m_ie
.GetProperty("Document");
586 IHTMLDocument2
* document
= (IHTMLDocument2
*)variant
.GetVoidPtr();
593 void wxWebViewIE
::onActiveXEvent(wxActiveXEvent
& evt
)
595 if (m_webBrowser
== NULL
) return;
597 switch (evt
.GetDispatchId())
599 case DISPID_BEFORENAVIGATE2
:
603 wxString url
= evt
[1].GetString();
604 wxString target
= evt
[3].GetString();
606 wxWebNavigationEvent
event(wxEVT_COMMAND_WEB_VIEW_NAVIGATING
,
607 GetId(), url
, target
, true);
608 event
.SetEventObject(this);
609 HandleWindowEvent(event
);
611 if (event
.IsVetoed())
613 wxActiveXEventNativeMSW
* nativeParams
=
614 evt
.GetNativeParameters();
615 *V_BOOLREF(&nativeParams
->pDispParams
->rgvarg
[0]) = VARIANT_TRUE
;
618 // at this point, either the navigation event has been cancelled
619 // and we're not busy, either it was accepted and IWebBrowser2's
620 // Busy property will be true; so we don't need our override
627 case DISPID_NAVIGATECOMPLETE2
:
629 wxString url
= evt
[1].GetString();
630 // TODO: set target parameter if possible
631 wxString target
= wxEmptyString
;
632 wxWebNavigationEvent
event(wxEVT_COMMAND_WEB_VIEW_NAVIGATED
,
633 GetId(), url
, target
, false);
634 event
.SetEventObject(this);
635 HandleWindowEvent(event
);
639 case DISPID_PROGRESSCHANGE
:
645 case DISPID_DOCUMENTCOMPLETE
:
647 //Only send a complete even if we are actually finished, this brings
648 //the event in to line with webkit
650 m_webBrowser
->get_ReadyState( &rs
);
651 if(rs
!= READYSTATE_COMPLETE
)
654 wxString url
= evt
[1].GetString();
656 //As we are complete we also add to the history list, but not if the
657 //page is not the main page, ie it is a subframe
658 if(m_historyEnabled
&& !m_historyLoadingFromList
&& url
== GetCurrentURL())
660 //If we are not at the end of the list, then erase everything
661 //between us and the end before adding the new page
662 if(m_historyPosition
!= m_historyList
.size() - 1)
664 m_historyList
.erase(m_historyList
.begin() + m_historyPosition
+ 1,
665 m_historyList
.end());
667 wxSharedPtr
<wxWebHistoryItem
> item(new wxWebHistoryItem(url
, GetCurrentTitle()));
668 m_historyList
.push_back(item
);
671 //Reset as we are done now
672 m_historyLoadingFromList
= false;
673 // TODO: set target parameter if possible
674 wxString target
= wxEmptyString
;
675 wxWebNavigationEvent
event(wxEVT_COMMAND_WEB_VIEW_LOADED
, GetId(),
677 event
.SetEventObject(this);
678 HandleWindowEvent(event
);
682 case DISPID_STATUSTEXTCHANGE
:
687 case DISPID_TITLECHANGE
:
692 case DISPID_NAVIGATEERROR
:
694 wxWebNavigationError errorType
= wxWEB_NAV_ERR_OTHER
;
695 wxString errorCode
= "?";
696 switch (evt
[3].GetLong())
698 case INET_E_INVALID_URL
: // (0x800C0002L or -2146697214)
699 errorCode
= "INET_E_INVALID_URL";
700 errorType
= wxWEB_NAV_ERR_REQUEST
;
702 case INET_E_NO_SESSION
: // (0x800C0003L or -2146697213)
703 errorCode
= "INET_E_NO_SESSION";
704 errorType
= wxWEB_NAV_ERR_CONNECTION
;
706 case INET_E_CANNOT_CONNECT
: // (0x800C0004L or -2146697212)
707 errorCode
= "INET_E_CANNOT_CONNECT";
708 errorType
= wxWEB_NAV_ERR_CONNECTION
;
710 case INET_E_RESOURCE_NOT_FOUND
: // (0x800C0005L or -2146697211)
711 errorCode
= "INET_E_RESOURCE_NOT_FOUND";
712 errorType
= wxWEB_NAV_ERR_NOT_FOUND
;
714 case INET_E_OBJECT_NOT_FOUND
: // (0x800C0006L or -2146697210)
715 errorCode
= "INET_E_OBJECT_NOT_FOUND";
716 errorType
= wxWEB_NAV_ERR_NOT_FOUND
;
718 case INET_E_DATA_NOT_AVAILABLE
: // (0x800C0007L or -2146697209)
719 errorCode
= "INET_E_DATA_NOT_AVAILABLE";
720 errorType
= wxWEB_NAV_ERR_NOT_FOUND
;
722 case INET_E_DOWNLOAD_FAILURE
: // (0x800C0008L or -2146697208)
723 errorCode
= "INET_E_DOWNLOAD_FAILURE";
724 errorType
= wxWEB_NAV_ERR_CONNECTION
;
726 case INET_E_AUTHENTICATION_REQUIRED
: // (0x800C0009L or -2146697207)
727 errorCode
= "INET_E_AUTHENTICATION_REQUIRED";
728 errorType
= wxWEB_NAV_ERR_AUTH
;
730 case INET_E_NO_VALID_MEDIA
: // (0x800C000AL or -2146697206)
731 errorCode
= "INET_E_NO_VALID_MEDIA";
732 errorType
= wxWEB_NAV_ERR_REQUEST
;
734 case INET_E_CONNECTION_TIMEOUT
: // (0x800C000BL or -2146697205)
735 errorCode
= "INET_E_CONNECTION_TIMEOUT";
736 errorType
= wxWEB_NAV_ERR_CONNECTION
;
738 case INET_E_INVALID_REQUEST
: // (0x800C000CL or -2146697204)
739 errorCode
= "INET_E_INVALID_REQUEST";
740 errorType
= wxWEB_NAV_ERR_REQUEST
;
742 case INET_E_UNKNOWN_PROTOCOL
: // (0x800C000DL or -2146697203)
743 errorCode
= "INET_E_UNKNOWN_PROTOCOL";
744 errorType
= wxWEB_NAV_ERR_REQUEST
;
746 case INET_E_SECURITY_PROBLEM
: // (0x800C000EL or -2146697202)
747 errorCode
= "INET_E_SECURITY_PROBLEM";
748 errorType
= wxWEB_NAV_ERR_SECURITY
;
750 case INET_E_CANNOT_LOAD_DATA
: // (0x800C000FL or -2146697201)
751 errorCode
= "INET_E_CANNOT_LOAD_DATA";
752 errorType
= wxWEB_NAV_ERR_OTHER
;
754 case INET_E_CANNOT_INSTANTIATE_OBJECT
:
755 // CoCreateInstance will return an error code if this happens,
756 // we'll handle this above.
759 case INET_E_REDIRECT_FAILED
: // (0x800C0014L or -2146697196)
760 errorCode
= "INET_E_REDIRECT_FAILED";
761 errorType
= wxWEB_NAV_ERR_OTHER
;
763 case INET_E_REDIRECT_TO_DIR
: // (0x800C0015L or -2146697195)
764 errorCode
= "INET_E_REDIRECT_TO_DIR";
765 errorType
= wxWEB_NAV_ERR_REQUEST
;
767 case INET_E_CANNOT_LOCK_REQUEST
: // (0x800C0016L or -2146697194)
768 errorCode
= "INET_E_CANNOT_LOCK_REQUEST";
769 errorType
= wxWEB_NAV_ERR_OTHER
;
771 case INET_E_USE_EXTEND_BINDING
: // (0x800C0017L or -2146697193)
772 errorCode
= "INET_E_USE_EXTEND_BINDING";
773 errorType
= wxWEB_NAV_ERR_OTHER
;
775 case INET_E_TERMINATED_BIND
: // (0x800C0018L or -2146697192)
776 errorCode
= "INET_E_TERMINATED_BIND";
777 errorType
= wxWEB_NAV_ERR_OTHER
;
779 case INET_E_INVALID_CERTIFICATE
: // (0x800C0019L or -2146697191)
780 errorCode
= "INET_E_INVALID_CERTIFICATE";
781 errorType
= wxWEB_NAV_ERR_CERTIFICATE
;
783 case INET_E_CODE_DOWNLOAD_DECLINED
: // (0x800C0100L or -2146696960)
784 errorCode
= "INET_E_CODE_DOWNLOAD_DECLINED";
785 errorType
= wxWEB_NAV_ERR_USER_CANCELLED
;
787 case INET_E_RESULT_DISPATCHED
: // (0x800C0200L or -2146696704)
788 // cancel request cancelled...
789 errorCode
= "INET_E_RESULT_DISPATCHED";
790 errorType
= wxWEB_NAV_ERR_OTHER
;
792 case INET_E_CANNOT_REPLACE_SFP_FILE
: // (0x800C0300L or -2146696448)
793 errorCode
= "INET_E_CANNOT_REPLACE_SFP_FILE";
794 errorType
= wxWEB_NAV_ERR_SECURITY
;
796 case INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY
:
797 errorCode
= "INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY";
798 errorType
= wxWEB_NAV_ERR_SECURITY
;
800 case INET_E_CODE_INSTALL_SUPPRESSED
:
801 errorCode
= "INET_E_CODE_INSTALL_SUPPRESSED";
802 errorType
= wxWEB_NAV_ERR_SECURITY
;
806 wxString url
= evt
[1].GetString();
807 wxString target
= evt
[2].GetString();
808 wxWebNavigationEvent
event(wxEVT_COMMAND_WEB_VIEW_ERROR
, GetId(),
810 event
.SetEventObject(this);
811 event
.SetInt(errorType
);
812 event
.SetString(errorCode
);
813 HandleWindowEvent(event
);
817 case DISPID_COMMANDSTATECHANGE
:
819 long commandId
= evt
[0].GetLong();
820 bool enable
= evt
[1].GetBool();
821 if (commandId
== CSC_NAVIGATEBACK
)
823 m_canNavigateBack
= enable
;
825 else if (commandId
== CSC_NAVIGATEFORWARD
)
827 m_canNavigateForward
= enable
;
831 case DISPID_NEWWINDOW3
:
833 wxString url
= evt
[4].GetString();
835 wxWebNavigationEvent
event(wxEVT_COMMAND_WEB_VIEW_NEWWINDOW
,
836 GetId(), url
, wxEmptyString
, true);
837 event
.SetEventObject(this);
838 HandleWindowEvent(event
);
840 //If we veto the event then we cancel the new window
841 if (event
.IsVetoed())
843 wxActiveXEventNativeMSW
* nativeParams
= evt
.GetNativeParameters();
844 *V_BOOLREF(&nativeParams
->pDispParams
->rgvarg
[3]) = VARIANT_TRUE
;