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, 2011 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"
19 #if wxUSE_WEBVIEW && wxUSE_WEBVIEW_IE
26 #include "wx/msw/registry.h"
27 #include "wx/msw/missing.h"
28 #include "wx/filesys.h"
29 #include "wx/dynlib.h"
32 /* These GUID definitions are our own implementation to support interfaces
33 * normally in urlmon.h. See include/wx/msw/webview_ie.h
38 DEFINE_GUID(wxIID_IInternetProtocolRoot
,0x79eac9e3,0xbaf9,0x11ce,0x8c,0x82,0,0xaa,0,0x4b,0xa9,0xb);
39 DEFINE_GUID(wxIID_IInternetProtocol
,0x79eac9e4,0xbaf9,0x11ce,0x8c,0x82,0,0xaa,0,0x4b,0xa9,0xb);
40 DEFINE_GUID(wxIID_IDocHostUIHandler
, 0xbd3f23c0, 0xd43e, 0x11cf, 0x89, 0x3b, 0x00, 0xaa, 0x00, 0xbd, 0xce, 0x1a);
44 wxIMPLEMENT_DYNAMIC_CLASS(wxWebViewIE
, wxWebView
);
46 BEGIN_EVENT_TABLE(wxWebViewIE
, wxControl
)
47 EVT_ACTIVEX(wxID_ANY
, wxWebViewIE
::onActiveXEvent
)
48 EVT_ERASE_BACKGROUND(wxWebViewIE
::onEraseBg
)
51 bool wxWebViewIE
::Create(wxWindow
* parent
,
59 if (!wxControl
::Create(parent
, id
, pos
, size
, style
,
60 wxDefaultValidator
, name
))
67 m_historyLoadingFromList
= false;
68 m_historyEnabled
= true;
69 m_historyPosition
= -1;
70 m_zoomType
= wxWEB_VIEW_ZOOM_TYPE_TEXT
;
72 if (::CoCreateInstance(CLSID_WebBrowser
, NULL
,
73 CLSCTX_INPROC_SERVER
, // CLSCTX_INPROC,
74 IID_IWebBrowser2
, (void**)&m_webBrowser
) != 0)
76 wxLogError("Failed to initialize IE, CoCreateInstance returned an error");
80 m_ie
.SetDispatchPtr(m_webBrowser
); // wxAutomationObject will release itself
82 m_webBrowser
->put_RegisterAsBrowser(VARIANT_TRUE
);
83 m_webBrowser
->put_RegisterAsDropTarget(VARIANT_TRUE
);
85 m_uiHandler
= new DocHostUIHandler
;
86 m_uiHandler
->AddRef();
88 m_container
= new wxIEContainer(this, IID_IWebBrowser2
, m_webBrowser
, m_uiHandler
);
90 EnableControlFeature(21 /* FEATURE_DISABLE_NAVIGATION_SOUNDS */);
96 wxWebViewIE
::~wxWebViewIE()
98 for(unsigned int i
= 0; i
< m_factories
.size(); i
++)
100 m_factories
[i
]->Release();
103 m_uiHandler
->Release();
106 void wxWebViewIE
::LoadURL(const wxString
& url
)
108 m_ie
.CallMethod("Navigate", wxConvertStringToOle(url
));
111 void wxWebViewIE
::SetPage(const wxString
& html
, const wxString
& baseUrl
)
113 BSTR bstr
= SysAllocString(OLESTR(""));
114 SAFEARRAY
*psaStrings
= SafeArrayCreateVector(VT_VARIANT
, 0, 1);
115 if (psaStrings
!= NULL
)
118 HRESULT hr
= SafeArrayAccessData(psaStrings
, (LPVOID
*)¶m
);
120 param
->bstrVal
= bstr
;
122 hr
= SafeArrayUnaccessData(psaStrings
);
124 IHTMLDocument2
* document
= GetDocument();
129 document
->write(psaStrings
);
133 SafeArrayDestroy(psaStrings
);
135 bstr
= SysAllocString(html
.wc_str());
137 // Creates a new one-dimensional array
138 psaStrings
= SafeArrayCreateVector(VT_VARIANT
, 0, 1);
139 if (psaStrings
!= NULL
)
141 hr
= SafeArrayAccessData(psaStrings
, (LPVOID
*)¶m
);
143 param
->bstrVal
= bstr
;
144 hr
= SafeArrayUnaccessData(psaStrings
);
146 document
= GetDocument();
151 document
->write(psaStrings
);
154 // SafeArrayDestroy calls SysFreeString for each BSTR
155 SafeArrayDestroy(psaStrings
);
157 //We send the events when we are done to mimic webkit
159 wxWebViewEvent
event(wxEVT_COMMAND_WEB_VIEW_NAVIGATED
,
160 GetId(), baseUrl
, "");
161 event
.SetEventObject(this);
162 HandleWindowEvent(event
);
164 //Document complete event
165 event
.SetEventType(wxEVT_COMMAND_WEB_VIEW_LOADED
);
166 event
.SetEventObject(this);
167 HandleWindowEvent(event
);
171 wxLogError("wxWebViewIE::SetPage() : psaStrings is NULL");
176 wxLogError("wxWebViewIE::SetPage() : psaStrings is NULL during clear");
180 wxString wxWebViewIE
::GetPageSource() const
182 IHTMLDocument2
* document
= GetDocument();
186 IHTMLElement
*bodyTag
= NULL
;
187 IHTMLElement
*htmlTag
= NULL
;
189 HRESULT hr
= document
->get_body(&bodyTag
);
192 hr
= bodyTag
->get_parentElement(&htmlTag
);
196 htmlTag
->get_outerHTML(&bstr
);
197 source
= wxString(bstr
);
212 wxWebViewZoom wxWebViewIE
::GetZoom() const
216 case wxWEB_VIEW_ZOOM_TYPE_LAYOUT
:
217 return GetIEOpticalZoom();
218 case wxWEB_VIEW_ZOOM_TYPE_TEXT
:
219 return GetIETextZoom();
224 //Dummy return to stop compiler warnings
225 return wxWEB_VIEW_ZOOM_MEDIUM
;
229 void wxWebViewIE
::SetZoom(wxWebViewZoom zoom
)
233 case wxWEB_VIEW_ZOOM_TYPE_LAYOUT
:
234 SetIEOpticalZoom(zoom
);
236 case wxWEB_VIEW_ZOOM_TYPE_TEXT
:
244 void wxWebViewIE
::SetIETextZoom(wxWebViewZoom level
)
246 //We do not use OLECMDID_OPTICAL_GETZOOMRANGE as the docs say the range
247 //is 0 to 4 so the check is unnecessary, these match exactly with the
250 VariantInit (&zoomVariant
);
251 V_VT(&zoomVariant
) = VT_I4
;
252 V_I4(&zoomVariant
) = level
;
257 m_webBrowser
->ExecWB(OLECMDID_ZOOM
,
258 OLECMDEXECOPT_DONTPROMPTUSER
,
260 wxASSERT(result
== S_OK
);
263 wxWebViewZoom wxWebViewIE
::GetIETextZoom() const
266 VariantInit (&zoomVariant
);
267 V_VT(&zoomVariant
) = VT_I4
;
272 m_webBrowser
->ExecWB(OLECMDID_ZOOM
,
273 OLECMDEXECOPT_DONTPROMPTUSER
,
275 wxASSERT(result
== S_OK
);
277 //We can safely cast here as we know that the range matches our enum
278 return static_cast<wxWebViewZoom
>(V_I4(&zoomVariant
));
281 void wxWebViewIE
::SetIEOpticalZoom(wxWebViewZoom level
)
283 //We do not use OLECMDID_OPTICAL_GETZOOMRANGE as the docs say the range
284 //is 10 to 1000 so the check is unnecessary
286 VariantInit (&zoomVariant
);
287 V_VT(&zoomVariant
) = VT_I4
;
289 //We make a somewhat arbitray map here, taken from values used by webkit
292 case wxWEB_VIEW_ZOOM_TINY
:
293 V_I4(&zoomVariant
) = 60;
295 case wxWEB_VIEW_ZOOM_SMALL
:
296 V_I4(&zoomVariant
) = 80;
298 case wxWEB_VIEW_ZOOM_MEDIUM
:
299 V_I4(&zoomVariant
) = 100;
301 case wxWEB_VIEW_ZOOM_LARGE
:
302 V_I4(&zoomVariant
) = 130;
304 case wxWEB_VIEW_ZOOM_LARGEST
:
305 V_I4(&zoomVariant
) = 160;
314 m_webBrowser
->ExecWB((OLECMDID
)63 /*OLECMDID_OPTICAL_ZOOM*/,
315 OLECMDEXECOPT_DODEFAULT
,
318 wxASSERT(result
== S_OK
);
321 wxWebViewZoom wxWebViewIE
::GetIEOpticalZoom() const
324 VariantInit (&zoomVariant
);
325 V_VT(&zoomVariant
) = VT_I4
;
330 m_webBrowser
->ExecWB((OLECMDID
)63 /*OLECMDID_OPTICAL_ZOOM*/,
331 OLECMDEXECOPT_DODEFAULT
, NULL
,
333 wxASSERT(result
== S_OK
);
335 const int zoom
= V_I4(&zoomVariant
);
337 //We make a somewhat arbitray map here, taken from values used by webkit
340 return wxWEB_VIEW_ZOOM_TINY
;
342 else if (zoom
> 65 && zoom
<= 90)
344 return wxWEB_VIEW_ZOOM_SMALL
;
346 else if (zoom
> 90 && zoom
<= 115)
348 return wxWEB_VIEW_ZOOM_MEDIUM
;
350 else if (zoom
> 115 && zoom
<= 145)
352 return wxWEB_VIEW_ZOOM_LARGE
;
354 else /*if (zoom > 145) */ //Using else removes a compiler warning
356 return wxWEB_VIEW_ZOOM_LARGEST
;
360 void wxWebViewIE
::SetZoomType(wxWebViewZoomType type
)
365 wxWebViewZoomType wxWebViewIE
::GetZoomType() const
370 bool wxWebViewIE
::CanSetZoomType(wxWebViewZoomType type
) const
372 //IE 6 and below only support text zoom, so check the registry to see what
373 //version we actually have
374 wxRegKey
key(wxRegKey
::HKLM
, "Software\\Microsoft\\Internet Explorer");
376 key
.QueryValue("Version", value
);
378 long version
= wxAtoi(value
.Left(1));
379 if(version
<= 6 && type
== wxWEB_VIEW_ZOOM_TYPE_LAYOUT
)
385 void wxWebViewIE
::Print()
387 m_webBrowser
->ExecWB(OLECMDID_PRINTPREVIEW
,
388 OLECMDEXECOPT_DODEFAULT
, NULL
, NULL
);
391 bool wxWebViewIE
::CanGoBack() const
394 return m_historyPosition
> 0;
399 bool wxWebViewIE
::CanGoForward() const
402 return m_historyPosition
!= static_cast<int>(m_historyList
.size()) - 1;
407 void wxWebViewIE
::LoadHistoryItem(wxSharedPtr
<wxWebViewHistoryItem
> item
)
410 for(unsigned int i
= 0; i
< m_historyList
.size(); i
++)
412 //We compare the actual pointers to find the correct item
413 if(m_historyList
[i
].get() == item
.get())
416 wxASSERT_MSG(pos
!= static_cast<int>(m_historyList
.size()),
417 "invalid history item");
418 m_historyLoadingFromList
= true;
419 LoadURL(item
->GetUrl());
420 m_historyPosition
= pos
;
423 wxVector
<wxSharedPtr
<wxWebViewHistoryItem
> > wxWebViewIE
::GetBackwardHistory()
425 wxVector
<wxSharedPtr
<wxWebViewHistoryItem
> > backhist
;
426 //As we don't have std::copy or an iterator constructor in the wxwidgets
427 //native vector we construct it by hand
428 for(int i
= 0; i
< m_historyPosition
; i
++)
430 backhist
.push_back(m_historyList
[i
]);
435 wxVector
<wxSharedPtr
<wxWebViewHistoryItem
> > wxWebViewIE
::GetForwardHistory()
437 wxVector
<wxSharedPtr
<wxWebViewHistoryItem
> > forwardhist
;
438 //As we don't have std::copy or an iterator constructor in the wxwidgets
439 //native vector we construct it by hand
440 for(int i
= m_historyPosition
+ 1; i
< static_cast<int>(m_historyList
.size()); i
++)
442 forwardhist
.push_back(m_historyList
[i
]);
447 void wxWebViewIE
::GoBack()
449 LoadHistoryItem(m_historyList
[m_historyPosition
- 1]);
452 void wxWebViewIE
::GoForward()
454 LoadHistoryItem(m_historyList
[m_historyPosition
+ 1]);
457 void wxWebViewIE
::Stop()
459 m_ie
.CallMethod("Stop");
462 void wxWebViewIE
::ClearHistory()
464 m_historyList
.clear();
465 m_historyPosition
= -1;
468 void wxWebViewIE
::EnableHistory(bool enable
)
470 m_historyEnabled
= enable
;
471 m_historyList
.clear();
472 m_historyPosition
= -1;
475 void wxWebViewIE
::Reload(wxWebViewReloadFlags flags
)
479 V_VT(&level
) = VT_I2
;
483 case wxWEB_VIEW_RELOAD_DEFAULT
:
484 V_I2(&level
) = REFRESH_NORMAL
;
486 case wxWEB_VIEW_RELOAD_NO_CACHE
:
487 V_I2(&level
) = REFRESH_COMPLETELY
;
490 wxFAIL_MSG("Unexpected reload type");
493 m_webBrowser
->Refresh2(&level
);
496 bool wxWebViewIE
::IsOfflineMode()
498 wxVariant out
= m_ie
.GetProperty("Offline");
500 wxASSERT(out
.GetType() == "bool");
502 return out
.GetBool();
505 void wxWebViewIE
::SetOfflineMode(bool offline
)
507 // FIXME: the wxWidgets docs do not really document what the return
508 // parameter of PutProperty is
512 m_ie
.PutProperty("Offline", (offline ?
518 bool wxWebViewIE
::IsBusy() const
520 if (m_isBusy
) return true;
522 wxVariant out
= m_ie
.GetProperty("Busy");
524 wxASSERT(out
.GetType() == "bool");
526 return out
.GetBool();
529 wxString wxWebViewIE
::GetCurrentURL() const
531 wxVariant out
= m_ie
.GetProperty("LocationURL");
533 wxASSERT(out
.GetType() == "string");
534 return out
.GetString();
537 wxString wxWebViewIE
::GetCurrentTitle() const
539 IHTMLDocument2
* document
= GetDocument();
544 document
->get_nameProp(&title
);
546 return wxString(title
);
554 bool wxWebViewIE
::CanCut() const
556 return CanExecCommand("Cut");
559 bool wxWebViewIE
::CanCopy() const
561 return CanExecCommand("Copy");
563 bool wxWebViewIE
::CanPaste() const
565 return CanExecCommand("Paste");
568 void wxWebViewIE
::Cut()
573 void wxWebViewIE
::Copy()
578 void wxWebViewIE
::Paste()
580 ExecCommand("Paste");
583 bool wxWebViewIE
::CanUndo() const
585 return CanExecCommand("Undo");
587 bool wxWebViewIE
::CanRedo() const
589 return CanExecCommand("Redo");
592 void wxWebViewIE
::Undo()
597 void wxWebViewIE
::Redo()
602 void wxWebViewIE
::SetEditable(bool enable
)
604 IHTMLDocument2
* document
= GetDocument();
609 document
->put_designMode(SysAllocString(L
"On"));
611 document
->put_designMode(SysAllocString(L
"Off"));
617 bool wxWebViewIE
::IsEditable() const
619 IHTMLDocument2
* document
= GetDocument();
624 document
->get_designMode(&mode
);
626 if(wxString(mode
) == "On")
637 void wxWebViewIE
::SelectAll()
639 ExecCommand("SelectAll");
642 bool wxWebViewIE
::HasSelection() const
644 IHTMLDocument2
* document
= GetDocument();
648 IHTMLSelectionObject
* selection
;
650 HRESULT hr
= document
->get_selection(&selection
);
654 selection
->get_type(&type
);
655 sel
= wxString(type
);
656 selection
->Release();
659 return sel
!= "None";
667 void wxWebViewIE
::DeleteSelection()
669 ExecCommand("Delete");
672 wxString wxWebViewIE
::GetSelectedText() const
674 IHTMLDocument2
* document
= GetDocument();
678 IHTMLSelectionObject
* selection
;
680 HRESULT hr
= document
->get_selection(&selection
);
684 hr
= selection
->createRange(&disrange
);
687 IHTMLTxtRange
* range
;
688 hr
= disrange
->QueryInterface(IID_IHTMLTxtRange
, (void**)&range
);
692 range
->get_text(&text
);
693 selected
= wxString(text
);
698 selection
->Release();
709 wxString wxWebViewIE
::GetSelectedSource() const
711 IHTMLDocument2
* document
= GetDocument();
715 IHTMLSelectionObject
* selection
;
717 HRESULT hr
= document
->get_selection(&selection
);
721 hr
= selection
->createRange(&disrange
);
724 IHTMLTxtRange
* range
;
725 hr
= disrange
->QueryInterface(IID_IHTMLTxtRange
, (void**)&range
);
729 range
->get_htmlText(&text
);
730 selected
= wxString(text
);
735 selection
->Release();
746 void wxWebViewIE
::ClearSelection()
748 IHTMLDocument2
* document
= GetDocument();
752 IHTMLSelectionObject
* selection
;
754 HRESULT hr
= document
->get_selection(&selection
);
758 selection
->Release();
764 wxString wxWebViewIE
::GetPageText() const
766 IHTMLDocument2
* document
= GetDocument();
772 HRESULT hr
= document
->get_body(&body
);
776 body
->get_innerText(&out
);
777 text
= wxString(out
);
789 void wxWebViewIE
::RunScript(const wxString
& javascript
)
791 IHTMLDocument2
* document
= GetDocument();
795 IHTMLWindow2
* window
;
796 wxString language
= "javascript";
797 HRESULT hr
= document
->get_parentWindow(&window
);
802 V_VT(&level
) = VT_EMPTY
;
803 window
->execScript(SysAllocString(javascript
.wc_str()),
804 SysAllocString(language
.wc_str()),
811 void wxWebViewIE
::RegisterHandler(wxSharedPtr
<wxWebViewHandler
> handler
)
813 wxDynamicLibrary
urlMon(wxT("urlmon.dll"));
814 if(urlMon
.HasSymbol(wxT("CoInternetGetSession")))
816 typedef HRESULT (WINAPI
*CoInternetGetSession_t
)(DWORD
, wxIInternetSession
**, DWORD
);
817 wxDYNLIB_FUNCTION(CoInternetGetSession_t
, CoInternetGetSession
, urlMon
);
819 ClassFactory
* cf
= new ClassFactory(handler
);
820 wxIInternetSession
* session
;
821 HRESULT res
= (*pfnCoInternetGetSession
)(0, &session
, 0);
824 wxFAIL_MSG("Could not retrive internet session");
827 HRESULT hr
= session
->RegisterNameSpace(cf
, CLSID_FileProtocol
,
828 handler
->GetName().wc_str(),
832 wxFAIL_MSG("Could not register protocol");
834 m_factories
.push_back(cf
);
838 wxFAIL_MSG("urlmon does not contain CoInternetGetSession");
842 bool wxWebViewIE
::CanExecCommand(wxString command
) const
844 IHTMLDocument2
* document
= GetDocument();
848 VARIANT_BOOL enabled
;
850 document
->queryCommandEnabled(SysAllocString(command
.wc_str()), &enabled
);
853 return (enabled
== VARIANT_TRUE
);
862 void wxWebViewIE
::ExecCommand(wxString command
)
864 IHTMLDocument2
* document
= GetDocument();
868 document
->execCommand(SysAllocString(command
.wc_str()), VARIANT_FALSE
, VARIANT(), NULL
);
873 IHTMLDocument2
* wxWebViewIE
::GetDocument() const
876 HRESULT result
= m_webBrowser
->get_Document(&dispatch
);
877 if(SUCCEEDED(result
))
879 IHTMLDocument2
* document
;
880 dispatch
->QueryInterface(IID_IHTMLDocument2
, (void**)&document
);
881 //document is set to null automatically if the interface isn't supported
890 bool wxWebViewIE
::EnableControlFeature(long flag
, bool enable
)
892 #if wxUSE_DYNLIB_CLASS
894 wxDynamicLibrary
urlMon(wxT("urlmon.dll"));
895 if( urlMon
.IsLoaded() &&
896 urlMon
.HasSymbol("CoInternetSetFeatureEnabled") &&
897 urlMon
.HasSymbol("CoInternetIsFeatureEnabled"))
899 typedef HRESULT (WINAPI
*CoInternetSetFeatureEnabled_t
)(DWORD
, DWORD
, BOOL
);
900 typedef HRESULT (WINAPI
*CoInternetIsFeatureEnabled_t
)(DWORD
, DWORD
);
902 wxDYNLIB_FUNCTION(CoInternetSetFeatureEnabled_t
, CoInternetSetFeatureEnabled
, urlMon
);
903 wxDYNLIB_FUNCTION(CoInternetIsFeatureEnabled_t
, CoInternetIsFeatureEnabled
, urlMon
);
905 HRESULT hr
= (*pfnCoInternetIsFeatureEnabled
)(flag
,
906 0x2 /* SET_FEATURE_ON_PROCESS */);
907 if((hr
== S_OK
&& enable
) || (hr
== S_FALSE
&& !enable
))
910 hr
= (*pfnCoInternetSetFeatureEnabled
)(flag
,
911 0x2/* SET_FEATURE_ON_PROCESS */,
912 (enable ? TRUE
: FALSE
));
915 wxLogApiError(wxT("CoInternetSetFeatureEnabled"), hr
);
925 #endif // wxUSE_DYNLIB_CLASS/!wxUSE_DYNLIB_CLASS
928 void wxWebViewIE
::onActiveXEvent(wxActiveXEvent
& evt
)
930 if (m_webBrowser
== NULL
) return;
932 switch (evt
.GetDispatchId())
934 case DISPID_BEFORENAVIGATE2
:
938 wxString url
= evt
[1].GetString();
939 wxString target
= evt
[3].GetString();
941 wxWebViewEvent
event(wxEVT_COMMAND_WEB_VIEW_NAVIGATING
,
942 GetId(), url
, target
);
944 //skip empty javascript events.
945 if(url
== "javascript:\"\"" && target
.IsEmpty())
951 event
.SetEventObject(this);
952 HandleWindowEvent(event
);
955 if (!event
.IsAllowed())
957 wxActiveXEventNativeMSW
* nativeParams
=
958 evt
.GetNativeParameters();
959 *V_BOOLREF(&nativeParams
->pDispParams
->rgvarg
[0]) = VARIANT_TRUE
;
962 // at this point, either the navigation event has been cancelled
963 // and we're not busy, either it was accepted and IWebBrowser2's
964 // Busy property will be true; so we don't need our override
971 case DISPID_NAVIGATECOMPLETE2
:
973 wxString url
= evt
[1].GetString();
974 // TODO: set target parameter if possible
975 wxString target
= wxEmptyString
;
976 wxWebViewEvent
event(wxEVT_COMMAND_WEB_VIEW_NAVIGATED
,
977 GetId(), url
, target
);
978 event
.SetEventObject(this);
979 HandleWindowEvent(event
);
983 case DISPID_PROGRESSCHANGE
:
989 case DISPID_DOCUMENTCOMPLETE
:
991 //Only send a complete even if we are actually finished, this brings
992 //the event in to line with webkit
994 m_webBrowser
->get_ReadyState( &rs
);
995 if(rs
!= READYSTATE_COMPLETE
)
998 wxString url
= evt
[1].GetString();
1000 //As we are complete we also add to the history list, but not if the
1001 //page is not the main page, ie it is a subframe
1002 //We also have to check if we are loading a file:// url, if so we
1003 //need to change the comparison as ie passes back a different style
1005 if(m_historyEnabled
&& !m_historyLoadingFromList
&&
1006 (url
== GetCurrentURL() ||
1007 (GetCurrentURL().substr(0, 4) == "file" &&
1008 wxFileSystem
::URLToFileName(GetCurrentURL()).GetFullPath() == url
)))
1010 //If we are not at the end of the list, then erase everything
1011 //between us and the end before adding the new page
1012 if(m_historyPosition
!= static_cast<int>(m_historyList
.size()) - 1)
1014 m_historyList
.erase(m_historyList
.begin() + m_historyPosition
+ 1,
1015 m_historyList
.end());
1017 wxSharedPtr
<wxWebViewHistoryItem
> item(new wxWebViewHistoryItem(url
, GetCurrentTitle()));
1018 m_historyList
.push_back(item
);
1019 m_historyPosition
++;
1021 //Reset as we are done now
1022 m_historyLoadingFromList
= false;
1023 // TODO: set target parameter if possible
1024 wxString target
= wxEmptyString
;
1025 wxWebViewEvent
event(wxEVT_COMMAND_WEB_VIEW_LOADED
, GetId(),
1027 event
.SetEventObject(this);
1028 HandleWindowEvent(event
);
1032 case DISPID_STATUSTEXTCHANGE
:
1037 case DISPID_TITLECHANGE
:
1039 wxString title
= evt
[0].GetString();
1041 wxWebViewEvent
event(wxEVT_COMMAND_WEB_VIEW_TITLE_CHANGED
,
1042 GetId(), GetCurrentURL(), "");
1043 event
.SetString(title
);
1044 event
.SetEventObject(this);
1045 HandleWindowEvent(event
);
1049 case DISPID_NAVIGATEERROR
:
1051 wxWebViewNavigationError errorType
= wxWEB_NAV_ERR_OTHER
;
1052 wxString errorCode
= "?";
1053 switch (evt
[3].GetLong())
1055 case INET_E_INVALID_URL
: // (0x800C0002L or -2146697214)
1056 errorCode
= "INET_E_INVALID_URL";
1057 errorType
= wxWEB_NAV_ERR_REQUEST
;
1059 case INET_E_NO_SESSION
: // (0x800C0003L or -2146697213)
1060 errorCode
= "INET_E_NO_SESSION";
1061 errorType
= wxWEB_NAV_ERR_CONNECTION
;
1063 case INET_E_CANNOT_CONNECT
: // (0x800C0004L or -2146697212)
1064 errorCode
= "INET_E_CANNOT_CONNECT";
1065 errorType
= wxWEB_NAV_ERR_CONNECTION
;
1067 case INET_E_RESOURCE_NOT_FOUND
: // (0x800C0005L or -2146697211)
1068 errorCode
= "INET_E_RESOURCE_NOT_FOUND";
1069 errorType
= wxWEB_NAV_ERR_NOT_FOUND
;
1071 case INET_E_OBJECT_NOT_FOUND
: // (0x800C0006L or -2146697210)
1072 errorCode
= "INET_E_OBJECT_NOT_FOUND";
1073 errorType
= wxWEB_NAV_ERR_NOT_FOUND
;
1075 case INET_E_DATA_NOT_AVAILABLE
: // (0x800C0007L or -2146697209)
1076 errorCode
= "INET_E_DATA_NOT_AVAILABLE";
1077 errorType
= wxWEB_NAV_ERR_NOT_FOUND
;
1079 case INET_E_DOWNLOAD_FAILURE
: // (0x800C0008L or -2146697208)
1080 errorCode
= "INET_E_DOWNLOAD_FAILURE";
1081 errorType
= wxWEB_NAV_ERR_CONNECTION
;
1083 case INET_E_AUTHENTICATION_REQUIRED
: // (0x800C0009L or -2146697207)
1084 errorCode
= "INET_E_AUTHENTICATION_REQUIRED";
1085 errorType
= wxWEB_NAV_ERR_AUTH
;
1087 case INET_E_NO_VALID_MEDIA
: // (0x800C000AL or -2146697206)
1088 errorCode
= "INET_E_NO_VALID_MEDIA";
1089 errorType
= wxWEB_NAV_ERR_REQUEST
;
1091 case INET_E_CONNECTION_TIMEOUT
: // (0x800C000BL or -2146697205)
1092 errorCode
= "INET_E_CONNECTION_TIMEOUT";
1093 errorType
= wxWEB_NAV_ERR_CONNECTION
;
1095 case INET_E_INVALID_REQUEST
: // (0x800C000CL or -2146697204)
1096 errorCode
= "INET_E_INVALID_REQUEST";
1097 errorType
= wxWEB_NAV_ERR_REQUEST
;
1099 case INET_E_UNKNOWN_PROTOCOL
: // (0x800C000DL or -2146697203)
1100 errorCode
= "INET_E_UNKNOWN_PROTOCOL";
1101 errorType
= wxWEB_NAV_ERR_REQUEST
;
1103 case INET_E_SECURITY_PROBLEM
: // (0x800C000EL or -2146697202)
1104 errorCode
= "INET_E_SECURITY_PROBLEM";
1105 errorType
= wxWEB_NAV_ERR_SECURITY
;
1107 case INET_E_CANNOT_LOAD_DATA
: // (0x800C000FL or -2146697201)
1108 errorCode
= "INET_E_CANNOT_LOAD_DATA";
1109 errorType
= wxWEB_NAV_ERR_OTHER
;
1111 case INET_E_CANNOT_INSTANTIATE_OBJECT
:
1112 // CoCreateInstance will return an error code if this happens,
1113 // we'll handle this above.
1116 case INET_E_REDIRECT_FAILED
: // (0x800C0014L or -2146697196)
1117 errorCode
= "INET_E_REDIRECT_FAILED";
1118 errorType
= wxWEB_NAV_ERR_OTHER
;
1120 case INET_E_REDIRECT_TO_DIR
: // (0x800C0015L or -2146697195)
1121 errorCode
= "INET_E_REDIRECT_TO_DIR";
1122 errorType
= wxWEB_NAV_ERR_REQUEST
;
1124 case INET_E_CANNOT_LOCK_REQUEST
: // (0x800C0016L or -2146697194)
1125 errorCode
= "INET_E_CANNOT_LOCK_REQUEST";
1126 errorType
= wxWEB_NAV_ERR_OTHER
;
1128 case INET_E_USE_EXTEND_BINDING
: // (0x800C0017L or -2146697193)
1129 errorCode
= "INET_E_USE_EXTEND_BINDING";
1130 errorType
= wxWEB_NAV_ERR_OTHER
;
1132 case INET_E_TERMINATED_BIND
: // (0x800C0018L or -2146697192)
1133 errorCode
= "INET_E_TERMINATED_BIND";
1134 errorType
= wxWEB_NAV_ERR_OTHER
;
1136 case INET_E_INVALID_CERTIFICATE
: // (0x800C0019L or -2146697191)
1137 errorCode
= "INET_E_INVALID_CERTIFICATE";
1138 errorType
= wxWEB_NAV_ERR_CERTIFICATE
;
1140 case INET_E_CODE_DOWNLOAD_DECLINED
: // (0x800C0100L or -2146696960)
1141 errorCode
= "INET_E_CODE_DOWNLOAD_DECLINED";
1142 errorType
= wxWEB_NAV_ERR_USER_CANCELLED
;
1144 case INET_E_RESULT_DISPATCHED
: // (0x800C0200L or -2146696704)
1145 // cancel request cancelled...
1146 errorCode
= "INET_E_RESULT_DISPATCHED";
1147 errorType
= wxWEB_NAV_ERR_OTHER
;
1149 case INET_E_CANNOT_REPLACE_SFP_FILE
: // (0x800C0300L or -2146696448)
1150 errorCode
= "INET_E_CANNOT_REPLACE_SFP_FILE";
1151 errorType
= wxWEB_NAV_ERR_SECURITY
;
1153 case INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY
:
1154 errorCode
= "INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY";
1155 errorType
= wxWEB_NAV_ERR_SECURITY
;
1157 case INET_E_CODE_INSTALL_SUPPRESSED
:
1158 errorCode
= "INET_E_CODE_INSTALL_SUPPRESSED";
1159 errorType
= wxWEB_NAV_ERR_SECURITY
;
1163 wxString url
= evt
[1].GetString();
1164 wxString target
= evt
[2].GetString();
1165 wxWebViewEvent
event(wxEVT_COMMAND_WEB_VIEW_ERROR
, GetId(),
1167 event
.SetEventObject(this);
1168 event
.SetInt(errorType
);
1169 event
.SetString(errorCode
);
1170 HandleWindowEvent(event
);
1173 case DISPID_NEWWINDOW3
:
1175 wxString url
= evt
[4].GetString();
1177 wxWebViewEvent
event(wxEVT_COMMAND_WEB_VIEW_NEWWINDOW
,
1178 GetId(), url
, wxEmptyString
);
1179 event
.SetEventObject(this);
1180 HandleWindowEvent(event
);
1182 //We always cancel this event otherwise an Internet Exporer window
1183 //is opened for the url
1184 wxActiveXEventNativeMSW
* nativeParams
= evt
.GetNativeParameters();
1185 *V_BOOLREF(&nativeParams
->pDispParams
->rgvarg
[3]) = VARIANT_TRUE
;
1193 VirtualProtocol
::VirtualProtocol(wxSharedPtr
<wxWebViewHandler
> handler
)
1196 m_handler
= handler
;
1199 BEGIN_IID_TABLE(VirtualProtocol
)
1201 ADD_RAW_IID(wxIID_IInternetProtocolRoot
)
1202 ADD_RAW_IID(wxIID_IInternetProtocol
)
1205 IMPLEMENT_IUNKNOWN_METHODS(VirtualProtocol
)
1207 HRESULT VirtualProtocol
::Start(LPCWSTR szUrl
, wxIInternetProtocolSink
*pOIProtSink
,
1208 wxIInternetBindInfo
*pOIBindInfo
, DWORD grfPI
,
1209 HANDLE_PTR dwReserved
)
1212 wxUnusedVar(pOIBindInfo
);
1214 wxUnusedVar(dwReserved
);
1215 m_protocolSink
= pOIProtSink
;
1217 //We get the file itself from the protocol handler
1218 m_file
= m_handler
->GetFile(szUrl
);
1222 return INET_E_RESOURCE_NOT_FOUND
;
1224 //We return the stream length for current and total size as we can always
1225 //read the whole file from the stream
1226 wxFileOffset length
= m_file
->GetStream()->GetLength();
1227 m_protocolSink
->ReportData(wxBSCF_FIRSTDATANOTIFICATION
|
1228 wxBSCF_DATAFULLYAVAILABLE
|
1229 wxBSCF_LASTDATANOTIFICATION
,
1234 HRESULT VirtualProtocol
::Read(void *pv
, ULONG cb
, ULONG
*pcbRead
)
1236 //If the file is null we return false to indicte it is finished
1240 wxStreamError err
= m_file
->GetStream()->Read(pv
, cb
).GetLastError();
1241 *pcbRead
= m_file
->GetStream()->LastRead();
1243 if(err
== wxSTREAM_NO_ERROR
)
1248 m_protocolSink
->ReportResult(S_OK
, 0, NULL
);
1250 //As we are not eof there is more data
1253 else if(err
== wxSTREAM_EOF
)
1256 m_protocolSink
->ReportResult(S_OK
, 0, NULL
);
1257 //We are eof and so finished
1260 else if(err
== wxSTREAM_READ_ERROR
)
1263 return INET_E_DOWNLOAD_FAILURE
;
1267 //Dummy return to surpress a compiler warning
1269 return INET_E_DOWNLOAD_FAILURE
;
1273 BEGIN_IID_TABLE(ClassFactory
)
1275 ADD_IID(ClassFactory
)
1278 IMPLEMENT_IUNKNOWN_METHODS(ClassFactory
)
1280 HRESULT ClassFactory
::CreateInstance(IUnknown
* pUnkOuter
, REFIID riid
,
1284 return CLASS_E_NOAGGREGATION
;
1285 VirtualProtocol
* vp
= new VirtualProtocol(m_handler
);
1287 HRESULT hr
= vp
->QueryInterface(riid
, ppvObject
);
1293 STDMETHODIMP ClassFactory
::LockServer(BOOL fLock
)
1299 wxIEContainer
::wxIEContainer(wxWindow
*parent
, REFIID iid
, IUnknown
*pUnk
,
1300 DocHostUIHandler
* uiHandler
) :
1301 wxActiveXContainer(parent
,iid
,pUnk
)
1303 m_uiHandler
= uiHandler
;
1306 wxIEContainer
::~wxIEContainer()
1310 bool wxIEContainer
::QueryClientSiteInterface(REFIID iid
, void **_interface
,
1313 if (m_uiHandler
&& IsEqualIID(iid
, wxIID_IDocHostUIHandler
))
1315 *_interface
= (IUnknown
*) (wxIDocHostUIHandler
*) m_uiHandler
;
1316 desc
= "IDocHostUIHandler";
1322 HRESULT DocHostUIHandler
::ShowContextMenu(DWORD dwID
, POINT
*ppt
,
1323 IUnknown
*pcmdtReserved
,
1324 IDispatch
*pdispReserved
)
1328 wxUnusedVar(pcmdtReserved
);
1329 wxUnusedVar(pdispReserved
);
1333 HRESULT DocHostUIHandler
::GetHostInfo(DOCHOSTUIINFO
*pInfo
)
1335 //don't show 3d border and ebales themes.
1336 pInfo
->dwFlags
= pInfo
->dwFlags
| DOCHOSTUIFLAG_NO3DBORDER
| DOCHOSTUIFLAG_THEME
;
1340 HRESULT DocHostUIHandler
::ShowUI(DWORD dwID
,
1341 IOleInPlaceActiveObject
*pActiveObject
,
1342 IOleCommandTarget
*pCommandTarget
,
1343 IOleInPlaceFrame
*pFrame
,
1344 IOleInPlaceUIWindow
*pDoc
)
1347 wxUnusedVar(pActiveObject
);
1348 wxUnusedVar(pCommandTarget
);
1349 wxUnusedVar(pFrame
);
1354 HRESULT DocHostUIHandler
::HideUI(void)
1359 HRESULT DocHostUIHandler
::UpdateUI(void)
1364 HRESULT DocHostUIHandler
::EnableModeless(BOOL fEnable
)
1366 wxUnusedVar(fEnable
);
1370 HRESULT DocHostUIHandler
::OnDocWindowActivate(BOOL fActivate
)
1372 wxUnusedVar(fActivate
);
1376 HRESULT DocHostUIHandler
::OnFrameWindowActivate(BOOL fActivate
)
1378 wxUnusedVar(fActivate
);
1382 HRESULT DocHostUIHandler
::ResizeBorder(LPCRECT prcBorder
,
1383 IOleInPlaceUIWindow
*pUIWindow
,
1386 wxUnusedVar(prcBorder
);
1387 wxUnusedVar(pUIWindow
);
1388 wxUnusedVar(fFrameWindow
);
1392 HRESULT DocHostUIHandler
::TranslateAccelerator(LPMSG lpMsg
,
1393 const GUID
*pguidCmdGroup
,
1396 if(lpMsg
&& lpMsg
->message
== WM_KEYDOWN
)
1399 if((GetKeyState(VK_CONTROL
) & 0x8000 ))
1401 //skip CTRL-N, CTRL-F and CTRL-P
1402 if(lpMsg
->wParam
== 'N' || lpMsg
->wParam
== 'P' || lpMsg
->wParam
== 'F')
1408 if(lpMsg
->wParam
== VK_F5
)
1414 wxUnusedVar(pguidCmdGroup
);
1415 wxUnusedVar(nCmdID
);
1419 HRESULT DocHostUIHandler
::GetOptionKeyPath(LPOLESTR
*pchKey
,DWORD dw
)
1421 wxUnusedVar(pchKey
);
1426 HRESULT DocHostUIHandler
::GetDropTarget(IDropTarget
*pDropTarget
,
1427 IDropTarget
**ppDropTarget
)
1429 wxUnusedVar(pDropTarget
);
1430 wxUnusedVar(ppDropTarget
);
1434 HRESULT DocHostUIHandler
::GetExternal(IDispatch
**ppDispatch
)
1436 wxUnusedVar(ppDispatch
);
1440 HRESULT DocHostUIHandler
::TranslateUrl(DWORD dwTranslate
,
1442 OLECHAR
**ppchURLOut
)
1444 wxUnusedVar(dwTranslate
);
1445 wxUnusedVar(pchURLIn
);
1446 wxUnusedVar(ppchURLOut
);
1450 HRESULT DocHostUIHandler
::FilterDataObject(IDataObject
*pDO
, IDataObject
**ppDORet
)
1453 wxUnusedVar(ppDORet
);
1457 BEGIN_IID_TABLE(DocHostUIHandler
)
1459 ADD_RAW_IID(wxIID_IDocHostUIHandler
)
1462 IMPLEMENT_IUNKNOWN_METHODS(DocHostUIHandler
)
1464 #endif // wxUSE_WEBVIEW && wxUSE_WEBVIEW_IE