src/msw/webview_ie.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/msw/webview_ie.cpp
   3 // Purpose:     wxMSW wxWebViewIE class implementation for web view component
   4 // Author:      Marianne Gagnon
   5 // Id:          $Id$
   6 // Copyright:   (c) 2010 Marianne Gagnon, 2011 Steven Lamerton
   7 // Licence:     wxWindows licence
   8 /////////////////////////////////////////////////////////////////////////////
   9
  10 // For compilers that support precompilation, includes "wx.h".
  11 #include "wx/wxprec.h"
  12
  13 #if defined(__BORLANDC__)
  14     #pragma hdrstop
  15 #endif
  16
  17 #include "wx/msw/webview_ie.h"
  18
  19 #if wxUSE_WEBVIEW && wxUSE_WEBVIEW_IE
  20
  21 #include <olectl.h>
  22 #include <oleidl.h>
  23 #include <exdispid.h>
  24 #include <exdisp.h>
  25 #include <mshtml.h>
  26 #include "wx/msw/registry.h"
  27 #include "wx/msw/missing.h"
  28 #include "wx/filesys.h"
  29 #include "wx/dynlib.h"
  30
  31 wxIMPLEMENT_DYNAMIC_CLASS(wxWebViewIE, wxWebView);
  32
  33 BEGIN_EVENT_TABLE(wxWebViewIE, wxControl)
  34     EVT_ACTIVEX(wxID_ANY, wxWebViewIE::onActiveXEvent)
  35     EVT_ERASE_BACKGROUND(wxWebViewIE::onEraseBg)
  36 END_EVENT_TABLE()
  37
  38 bool wxWebViewIE::Create(wxWindow* parent,
  39            wxWindowID id,
  40            const wxString& url,
  41            const wxPoint& pos,
  42            const wxSize& size,
  43            long style,
  44            const wxString& name)
  45 {
  46     if (!wxControl::Create(parent, id, pos, size, style,
  47                            wxDefaultValidator, name))
  48     {
  49         return false;
  50     }
  51
  52     m_webBrowser = NULL;
  53     m_isBusy = false;
  54     m_historyLoadingFromList = false;
  55     m_historyEnabled = true;
  56     m_historyPosition = -1;
  57     m_zoomType = wxWEB_VIEW_ZOOM_TYPE_TEXT;
  58
  59     if (::CoCreateInstance(CLSID_WebBrowser, NULL,
  60                            CLSCTX_INPROC_SERVER, // CLSCTX_INPROC,
  61                            IID_IWebBrowser2 , (void**)&m_webBrowser) != 0)
  62     {
  63         wxLogError("Failed to initialize IE, CoCreateInstance returned an error");
  64         return false;
  65     }
  66
  67     m_ie.SetDispatchPtr(m_webBrowser); // wxAutomationObject will release itself
  68
  69     m_webBrowser->put_RegisterAsBrowser(VARIANT_TRUE);
  70     m_webBrowser->put_RegisterAsDropTarget(VARIANT_TRUE);
  71
  72     m_container = new wxActiveXContainer(this, IID_IWebBrowser2, m_webBrowser);
  73
  74     SetBackgroundStyle(wxBG_STYLE_PAINT);
  75     SetDoubleBuffered(true);
  76     LoadURL(url);
  77     return true;
  78 }
  79
  80
  81 void wxWebViewIE::LoadURL(const wxString& url)
  82 {
  83     m_ie.CallMethod("Navigate", (BSTR) url.wc_str());
  84 }
  85
  86 void wxWebViewIE::SetPage(const wxString& html, const wxString& baseUrl)
  87 {
  88     BSTR bstr = SysAllocString(html.wc_str());
  89
  90     // Creates a new one-dimensional array
  91     SAFEARRAY *psaStrings = SafeArrayCreateVector(VT_VARIANT, 0, 1);
  92     if (psaStrings != NULL)
  93     {
  94         VARIANT *param;
  95
  96         HRESULT hr = SafeArrayAccessData(psaStrings, (LPVOID*)&param);
  97         param->vt = VT_BSTR;
  98         param->bstrVal = bstr;
  99         hr = SafeArrayUnaccessData(psaStrings);
 100
 101         IHTMLDocument2* document = GetDocument();
 102         document->write(psaStrings);
 103         document->Release();
 104
 105         // SafeArrayDestroy calls SysFreeString for each BSTR
 106         SafeArrayDestroy(psaStrings);
 107
 108         //We send the events when we are done to mimic webkit
 109         //Navigated event
 110         wxWebViewEvent event(wxEVT_COMMAND_WEB_VIEW_NAVIGATED,
 111                              GetId(), baseUrl, "");
 112         event.SetEventObject(this);
 113         HandleWindowEvent(event);
 114
 115         //Document complete event
 116         event.SetEventType(wxEVT_COMMAND_WEB_VIEW_LOADED);
 117         event.SetEventObject(this);
 118         HandleWindowEvent(event);
 119     }
 120     else
 121     {
 122         wxLogError("wxWebViewIE::SetPage() : psaStrings is NULL");
 123     }
 124
 125 }
 126
 127 wxString wxWebViewIE::GetPageSource() const
 128 {
 129     IHTMLDocument2* document = GetDocument();
 130     IHTMLElement *bodyTag = NULL;
 131     IHTMLElement *htmlTag = NULL;
 132     wxString source;
 133     HRESULT hr = document->get_body(&bodyTag);
 134     if(SUCCEEDED(hr))
 135     {
 136         hr = bodyTag->get_parentElement(&htmlTag);
 137         if(SUCCEEDED(hr))
 138         {
 139             BSTR bstr;
 140             htmlTag->get_outerHTML(&bstr);
 141             source = wxString(bstr);
 142             htmlTag->Release();
 143         }
 144         bodyTag->Release();
 145     }
 146
 147     document->Release();
 148     return source;
 149 }
 150
 151 wxWebViewZoom wxWebViewIE::GetZoom() const
 152 {
 153     if(m_zoomType == wxWEB_VIEW_ZOOM_TYPE_LAYOUT)
 154         return GetIEOpticalZoom();
 155     else if(m_zoomType == wxWEB_VIEW_ZOOM_TYPE_TEXT)
 156         return GetIETextZoom();
 157     else
 158         wxFAIL;
 159
 160     //Dummy return to stop compiler warnings
 161     return wxWEB_VIEW_ZOOM_MEDIUM;
 162
 163 }
 164
 165 void wxWebViewIE::SetZoom(wxWebViewZoom zoom)
 166 {
 167     if(m_zoomType == wxWEB_VIEW_ZOOM_TYPE_LAYOUT)
 168         SetIEOpticalZoom(zoom);
 169     else if(m_zoomType == wxWEB_VIEW_ZOOM_TYPE_TEXT)
 170         SetIETextZoom(zoom);
 171     else
 172         wxFAIL;
 173 }
 174
 175 void wxWebViewIE::SetIETextZoom(wxWebViewZoom level)
 176 {
 177     //We do not use OLECMDID_OPTICAL_GETZOOMRANGE as the docs say the range
 178     //is 0 to 4 so the check is unnecessary, these match exactly with the
 179     //enum values
 180     VARIANT zoomVariant;
 181     VariantInit (&zoomVariant);
 182     V_VT(&zoomVariant) = VT_I4;
 183     V_I4(&zoomVariant) = level;
 184
 185     HRESULT result = m_webBrowser->ExecWB(OLECMDID_ZOOM,
 186                                           OLECMDEXECOPT_DONTPROMPTUSER,
 187                                           &zoomVariant, NULL);
 188     wxASSERT(result == S_OK);
 189 }
 190
 191 wxWebViewZoom wxWebViewIE::GetIETextZoom() const
 192 {
 193     VARIANT zoomVariant;
 194     VariantInit (&zoomVariant);
 195     V_VT(&zoomVariant) = VT_I4;
 196
 197     HRESULT result = m_webBrowser->ExecWB(OLECMDID_ZOOM,
 198                                           OLECMDEXECOPT_DONTPROMPTUSER,
 199                                           NULL, &zoomVariant);
 200     wxASSERT(result == S_OK);
 201
 202     //We can safely cast here as we know that the range matches our enum
 203     return static_cast<wxWebViewZoom>(V_I4(&zoomVariant));
 204 }
 205
 206 void wxWebViewIE::SetIEOpticalZoom(wxWebViewZoom level)
 207 {
 208     //We do not use OLECMDID_OPTICAL_GETZOOMRANGE as the docs say the range
 209     //is 10 to 1000 so the check is unnecessary
 210     VARIANT zoomVariant;
 211     VariantInit (&zoomVariant);
 212     V_VT(&zoomVariant) = VT_I4;
 213
 214     //We make a somewhat arbitray map here, taken from values used by webkit
 215     switch(level)
 216     {
 217         case wxWEB_VIEW_ZOOM_TINY:
 218             V_I4(&zoomVariant) = 60;
 219             break;
 220         case wxWEB_VIEW_ZOOM_SMALL:
 221             V_I4(&zoomVariant) = 80;
 222             break;
 223         case wxWEB_VIEW_ZOOM_MEDIUM:
 224             V_I4(&zoomVariant) = 100;
 225             break;
 226         case wxWEB_VIEW_ZOOM_LARGE:
 227             V_I4(&zoomVariant) = 130;
 228             break;
 229         case wxWEB_VIEW_ZOOM_LARGEST:
 230             V_I4(&zoomVariant) = 160;
 231             break;
 232         default:
 233             wxFAIL;
 234     }
 235
 236     HRESULT result = m_webBrowser->ExecWB((OLECMDID)63 /*OLECMDID_OPTICAL_ZOOM*/,
 237                                           OLECMDEXECOPT_DODEFAULT,
 238                                           &zoomVariant,
 239                                           NULL);
 240     wxASSERT(result == S_OK);
 241 }
 242
 243 wxWebViewZoom wxWebViewIE::GetIEOpticalZoom() const
 244 {
 245     VARIANT zoomVariant;
 246     VariantInit (&zoomVariant);
 247     V_VT(&zoomVariant) = VT_I4;
 248
 249     HRESULT result = m_webBrowser->ExecWB((OLECMDID)63 /*OLECMDID_OPTICAL_ZOOM*/,
 250                                           OLECMDEXECOPT_DODEFAULT, NULL,
 251                                           &zoomVariant);
 252     wxASSERT(result == S_OK);
 253
 254     const int zoom = V_I4(&zoomVariant);
 255
 256     //We make a somewhat arbitray map here, taken from values used by webkit
 257     if (zoom <= 65)
 258     {
 259         return wxWEB_VIEW_ZOOM_TINY;
 260     }
 261     else if (zoom > 65 && zoom <= 90)
 262     {
 263         return wxWEB_VIEW_ZOOM_SMALL;
 264     }
 265     else if (zoom > 90 && zoom <= 115)
 266     {
 267         return wxWEB_VIEW_ZOOM_MEDIUM;
 268     }
 269     else if (zoom > 115 && zoom <= 145)
 270     {
 271         return wxWEB_VIEW_ZOOM_LARGE;
 272     }
 273     else /*if (zoom > 145) */ //Using else removes a compiler warning
 274     {
 275         return wxWEB_VIEW_ZOOM_LARGEST;
 276     }
 277 }
 278
 279 void wxWebViewIE::SetZoomType(wxWebViewZoomType type)
 280 {
 281     m_zoomType = type;
 282 }
 283
 284 wxWebViewZoomType wxWebViewIE::GetZoomType() const
 285 {
 286     return m_zoomType;
 287 }
 288
 289 bool wxWebViewIE::CanSetZoomType(wxWebViewZoomType type) const
 290 {
 291     //IE 6 and below only support text zoom, so check the registry to see what
 292     //version we actually have
 293     wxRegKey key(wxRegKey::HKLM, "Software\\Microsoft\\Internet Explorer");
 294     wxString value;
 295     key.QueryValue("Version", value);
 296
 297     long version = wxAtoi(value.Left(1));
 298     if(version <= 6 && type == wxWEB_VIEW_ZOOM_TYPE_LAYOUT)
 299         return false;
 300     else
 301         return true;
 302 }
 303
 304 void wxWebViewIE::Print()
 305 {
 306     m_webBrowser->ExecWB(OLECMDID_PRINTPREVIEW,
 307                          OLECMDEXECOPT_DODEFAULT, NULL, NULL);
 308 }
 309
 310 bool wxWebViewIE::CanGoBack() const
 311 {
 312     if(m_historyEnabled)
 313         return m_historyPosition > 0;
 314     else
 315         return false;
 316 }
 317
 318 bool wxWebViewIE::CanGoForward() const
 319 {
 320     if(m_historyEnabled)
 321         return m_historyPosition != static_cast<int>(m_historyList.size()) - 1;
 322     else
 323         return false;
 324 }
 325
 326 void wxWebViewIE::LoadHistoryItem(wxSharedPtr<wxWebViewHistoryItem> item)
 327 {
 328     int pos = -1;
 329     for(unsigned int i = 0; i < m_historyList.size(); i++)
 330     {
 331         //We compare the actual pointers to find the correct item
 332         if(m_historyList[i].get() == item.get())
 333             pos = i;
 334     }
 335     wxASSERT_MSG(pos != static_cast<int>(m_historyList.size()),
 336                  "invalid history item");
 337     m_historyLoadingFromList = true;
 338     LoadURL(item->GetUrl());
 339     m_historyPosition = pos;
 340 }
 341
 342 wxVector<wxSharedPtr<wxWebViewHistoryItem> > wxWebViewIE::GetBackwardHistory()
 343 {
 344     wxVector<wxSharedPtr<wxWebViewHistoryItem> > backhist;
 345     //As we don't have std::copy or an iterator constructor in the wxwidgets
 346     //native vector we construct it by hand
 347     for(int i = 0; i < m_historyPosition; i++)
 348     {
 349         backhist.push_back(m_historyList[i]);
 350     }
 351     return backhist;
 352 }
 353
 354 wxVector<wxSharedPtr<wxWebViewHistoryItem> > wxWebViewIE::GetForwardHistory()
 355 {
 356     wxVector<wxSharedPtr<wxWebViewHistoryItem> > forwardhist;
 357     //As we don't have std::copy or an iterator constructor in the wxwidgets
 358     //native vector we construct it by hand
 359     for(int i = m_historyPosition + 1; i < static_cast<int>(m_historyList.size()); i++)
 360     {
 361         forwardhist.push_back(m_historyList[i]);
 362     }
 363     return forwardhist;
 364 }
 365
 366 void wxWebViewIE::GoBack()
 367 {
 368     LoadHistoryItem(m_historyList[m_historyPosition - 1]);
 369 }
 370
 371 void wxWebViewIE::GoForward()
 372 {
 373     LoadHistoryItem(m_historyList[m_historyPosition + 1]);
 374 }
 375
 376 void wxWebViewIE::Stop()
 377 {
 378     m_ie.CallMethod("Stop");
 379 }
 380
 381 void wxWebViewIE::ClearHistory()
 382 {
 383     m_historyList.clear();
 384     m_historyPosition = -1;
 385 }
 386
 387 void wxWebViewIE::EnableHistory(bool enable)
 388 {
 389     m_historyEnabled = enable;
 390     m_historyList.clear();
 391     m_historyPosition = -1;
 392 }
 393
 394 void wxWebViewIE::Reload(wxWebViewReloadFlags flags)
 395 {
 396     VARIANTARG level;
 397     VariantInit(&level);
 398     V_VT(&level) = VT_I2;
 399
 400     switch(flags)
 401     {
 402         case wxWEB_VIEW_RELOAD_DEFAULT:
 403             V_I2(&level) = REFRESH_NORMAL;
 404             break;
 405         case wxWEB_VIEW_RELOAD_NO_CACHE:
 406             V_I2(&level) = REFRESH_COMPLETELY;
 407             break;
 408         default:
 409             wxFAIL_MSG("Unexpected reload type");
 410     }
 411
 412     m_webBrowser->Refresh2(&level);
 413 }
 414
 415 bool wxWebViewIE::IsOfflineMode()
 416 {
 417     wxVariant out = m_ie.GetProperty("Offline");
 418
 419     wxASSERT(out.GetType() == "bool");
 420
 421     return out.GetBool();
 422 }
 423
 424 void wxWebViewIE::SetOfflineMode(bool offline)
 425 {
 426     // FIXME: the wxWidgets docs do not really document what the return
 427     //        parameter of PutProperty is
 428     const bool success = m_ie.PutProperty("Offline", (offline ?
 429                                                       VARIANT_TRUE :
 430                                                       VARIANT_FALSE));
 431     wxASSERT(success);
 432 }
 433
 434 bool wxWebViewIE::IsBusy() const
 435 {
 436     if (m_isBusy) return true;
 437
 438     wxVariant out = m_ie.GetProperty("Busy");
 439
 440     wxASSERT(out.GetType() == "bool");
 441
 442     return out.GetBool();
 443 }
 444
 445 wxString wxWebViewIE::GetCurrentURL() const
 446 {
 447     wxVariant out = m_ie.GetProperty("LocationURL");
 448
 449     wxASSERT(out.GetType() == "string");
 450     return out.GetString();
 451 }
 452
 453 wxString wxWebViewIE::GetCurrentTitle() const
 454 {
 455     IHTMLDocument2* document = GetDocument();
 456     BSTR title;
 457
 458     document->get_nameProp(&title);
 459     document->Release();
 460     return wxString(title);
 461 }
 462
 463 bool wxWebViewIE::CanCut() const
 464 {
 465     return CanExecCommand("Cut");
 466 }
 467
 468 bool wxWebViewIE::CanCopy() const
 469 {
 470     return CanExecCommand("Copy");
 471 }
 472 bool wxWebViewIE::CanPaste() const
 473 {
 474     return CanExecCommand("Paste");
 475 }
 476
 477 void wxWebViewIE::Cut()
 478 {
 479     ExecCommand("Cut");
 480 }
 481
 482 void wxWebViewIE::Copy()
 483 {
 484     ExecCommand("Copy");
 485 }
 486
 487 void wxWebViewIE::Paste()
 488 {
 489     ExecCommand("Paste");
 490 }
 491
 492 bool wxWebViewIE::CanUndo() const
 493 {
 494     return CanExecCommand("Undo");
 495 }
 496 bool wxWebViewIE::CanRedo() const
 497 {
 498     return CanExecCommand("Redo");
 499 }
 500
 501 void wxWebViewIE::Undo()
 502 {
 503     ExecCommand("Undo");
 504 }
 505
 506 void wxWebViewIE::Redo()
 507 {
 508     ExecCommand("Redo");
 509 }
 510
 511 void wxWebViewIE::SetEditable(bool enable)
 512 {
 513     IHTMLDocument2* document = GetDocument();
 514     if( enable )
 515         document->put_designMode(SysAllocString(L"On"));
 516     else
 517         document->put_designMode(SysAllocString(L"Off"));
 518
 519     document->Release();
 520 }
 521
 522 bool wxWebViewIE::IsEditable() const
 523 {
 524     IHTMLDocument2* document = GetDocument();
 525     BSTR mode;
 526     document->get_designMode(&mode);
 527     document->Release();
 528     if(wxString(mode) == "On")
 529         return true;
 530     else
 531         return false;
 532 }
 533
 534 void wxWebViewIE::SelectAll()
 535 {
 536     ExecCommand("SelectAll");
 537 }
 538
 539 bool wxWebViewIE::HasSelection() const
 540 {
 541     IHTMLDocument2* document = GetDocument();
 542     IHTMLSelectionObject* selection;
 543     wxString sel;
 544     HRESULT hr = document->get_selection(&selection);
 545     if(SUCCEEDED(hr))
 546     {
 547         BSTR type;
 548         selection->get_type(&type);
 549         sel = wxString(type);
 550         selection->Release();
 551     }
 552     document->Release();
 553     return sel != "None";
 554 }
 555
 556 void wxWebViewIE::DeleteSelection()
 557 {
 558     ExecCommand("Delete");
 559 }
 560
 561 wxString wxWebViewIE::GetSelectedText() const
 562 {
 563     IHTMLDocument2* document = GetDocument();
 564     IHTMLSelectionObject* selection;
 565     wxString selected;
 566     HRESULT hr = document->get_selection(&selection);
 567     if(SUCCEEDED(hr))
 568     {
 569         IDispatch* disrange;
 570         hr = selection->createRange(&disrange);
 571         if(SUCCEEDED(hr))
 572         {
 573             IHTMLTxtRange* range;
 574             hr = disrange->QueryInterface(IID_IHTMLTxtRange, (void**)&range);
 575             if(SUCCEEDED(hr))
 576             {
 577                 BSTR text;
 578                 range->get_text(&text);
 579                 selected = wxString(text);
 580                 range->Release();
 581             }
 582             disrange->Release();
 583         }
 584         selection->Release();
 585     }
 586     document->Release();
 587     return selected;
 588 }
 589
 590 wxString wxWebViewIE::GetSelectedSource() const
 591 {
 592     IHTMLDocument2* document = GetDocument();
 593     IHTMLSelectionObject* selection;
 594     wxString selected;
 595     HRESULT hr = document->get_selection(&selection);
 596     if(SUCCEEDED(hr))
 597     {
 598         IDispatch* disrange;
 599         hr = selection->createRange(&disrange);
 600         if(SUCCEEDED(hr))
 601         {
 602             IHTMLTxtRange* range;
 603             hr = disrange->QueryInterface(IID_IHTMLTxtRange, (void**)&range);
 604             if(SUCCEEDED(hr))
 605             {
 606                 BSTR text;
 607                 range->get_htmlText(&text);
 608                 selected = wxString(text);
 609                 range->Release();
 610             }
 611             disrange->Release();
 612         }
 613         selection->Release();
 614     }
 615     document->Release();
 616     return selected;
 617 }
 618
 619 void wxWebViewIE::ClearSelection()
 620 {
 621     IHTMLDocument2* document = GetDocument();
 622     IHTMLSelectionObject* selection;
 623     wxString selected;
 624     HRESULT hr = document->get_selection(&selection);
 625     if(SUCCEEDED(hr))
 626     {
 627         selection->empty();
 628         selection->Release();
 629     }
 630     document->Release();
 631 }
 632
 633 wxString wxWebViewIE::GetPageText() const
 634 {
 635     IHTMLDocument2* document = GetDocument();
 636     wxString text;
 637     IHTMLElement* body;
 638     HRESULT hr = document->get_body(&body);
 639     if(SUCCEEDED(hr))
 640     {
 641         BSTR out;
 642         body->get_innerText(&out);
 643         text = wxString(out);
 644         body->Release();
 645     }
 646     document->Release();
 647     return text;
 648 }
 649
 650 void wxWebViewIE::RunScript(const wxString& javascript)
 651 {
 652     IHTMLDocument2* document = GetDocument();
 653     IHTMLWindow2* window;
 654     wxString language = "javascript";
 655     HRESULT hr = document->get_parentWindow(&window);
 656     if(SUCCEEDED(hr))
 657     {
 658         VARIANT level;
 659         VariantInit(&level);
 660         V_VT(&level) = VT_EMPTY;
 661         window->execScript(SysAllocString(javascript), SysAllocString(language), &level);
 662     }
 663     document->Release();
 664 }
 665
 666 void wxWebViewIE::RegisterHandler(wxSharedPtr<wxWebViewHandler> handler)
 667 {
 668     wxDynamicLibrary urlMon(wxT("urlmon.dll"));
 669     if(urlMon.HasSymbol(wxT("CoInternetGetSession")))
 670     {
 671         typedef HRESULT (WINAPI *CoInternetGetSession_t)(DWORD, IInternetSession**, DWORD);
 672         wxDYNLIB_FUNCTION(CoInternetGetSession_t, CoInternetGetSession, urlMon);
 673
 674         ClassFactory* cf = new ClassFactory(handler);
 675         IInternetSession* session;
 676         HRESULT res = (*pfnCoInternetGetSession)(0, &session, 0);
 677         if(FAILED(res))
 678         {
 679             wxFAIL_MSG("Could not retrive internet session");
 680         }
 681
 682         HRESULT hr = session->RegisterNameSpace(cf, CLSID_FileProtocol, handler->GetName(), 0, NULL, 0);
 683         if(FAILED(hr))
 684         {
 685             wxFAIL_MSG("Could not register protocol");
 686         }
 687     }
 688     else
 689     {
 690         wxFAIL_MSG("urlmon does not contain CoInternetGetSession");
 691     }
 692 }
 693
 694 bool wxWebViewIE::CanExecCommand(wxString command) const
 695 {
 696     IHTMLDocument2* document = GetDocument();
 697     VARIANT_BOOL enabled;
 698
 699     document->queryCommandEnabled(SysAllocString(command.wc_str()), &enabled);
 700     document->Release();
 701
 702     return (enabled == VARIANT_TRUE);
 703 }
 704
 705 void wxWebViewIE::ExecCommand(wxString command)
 706 {
 707     IHTMLDocument2* document = GetDocument();
 708     document->execCommand(SysAllocString(command.wc_str()), VARIANT_FALSE, VARIANT(), NULL);
 709     document->Release();
 710 }
 711
 712 IHTMLDocument2* wxWebViewIE::GetDocument() const
 713 {
 714     wxVariant variant = m_ie.GetProperty("Document");
 715     IHTMLDocument2* document = (IHTMLDocument2*)variant.GetVoidPtr();
 716
 717     wxASSERT(document);
 718
 719     return document;
 720 }
 721
 722 void wxWebViewIE::onActiveXEvent(wxActiveXEvent& evt)
 723 {
 724     if (m_webBrowser == NULL) return;
 725
 726     switch (evt.GetDispatchId())
 727     {
 728         case DISPID_BEFORENAVIGATE2:
 729         {
 730             m_isBusy = true;
 731
 732             wxString url = evt[1].GetString();
 733             wxString target = evt[3].GetString();
 734
 735             wxWebViewEvent event(wxEVT_COMMAND_WEB_VIEW_NAVIGATING,
 736                                  GetId(), url, target);
 737             event.SetEventObject(this);
 738             HandleWindowEvent(event);
 739
 740             if (!event.IsAllowed())
 741             {
 742                 wxActiveXEventNativeMSW* nativeParams =
 743                     evt.GetNativeParameters();
 744                 *V_BOOLREF(&nativeParams->pDispParams->rgvarg[0]) = VARIANT_TRUE;
 745             }
 746
 747             // at this point, either the navigation event has been cancelled
 748             // and we're not busy, either it was accepted and IWebBrowser2's
 749             // Busy property will be true; so we don't need our override
 750             // flag anymore.
 751             m_isBusy = false;
 752
 753             break;
 754         }
 755
 756         case DISPID_NAVIGATECOMPLETE2:
 757         {
 758             wxString url = evt[1].GetString();
 759             // TODO: set target parameter if possible
 760             wxString target = wxEmptyString;
 761             wxWebViewEvent event(wxEVT_COMMAND_WEB_VIEW_NAVIGATED,
 762                                  GetId(), url, target);
 763             event.SetEventObject(this);
 764             HandleWindowEvent(event);
 765             break;
 766         }
 767
 768         case DISPID_PROGRESSCHANGE:
 769         {
 770             // download progress
 771             break;
 772         }
 773
 774         case DISPID_DOCUMENTCOMPLETE:
 775         {
 776             //Only send a complete even if we are actually finished, this brings
 777             //the event in to line with webkit
 778             READYSTATE rs;
 779             m_webBrowser->get_ReadyState( &rs );
 780             if(rs != READYSTATE_COMPLETE)
 781                 break;
 782
 783             wxString url = evt[1].GetString();
 784
 785             //As we are complete we also add to the history list, but not if the
 786             //page is not the main page, ie it is a subframe
 787             //We also have to check if we are loading a file:// url, if so we
 788             //need to change the comparison as ie passes back a different style
 789             //of url
 790             if(m_historyEnabled && !m_historyLoadingFromList &&
 791               (url == GetCurrentURL() ||
 792               (GetCurrentURL().substr(0, 4) == "file" &&
 793                wxFileSystem::URLToFileName(GetCurrentURL()).GetFullPath() == url)))
 794             {
 795                 //If we are not at the end of the list, then erase everything
 796                 //between us and the end before adding the new page
 797                 if(m_historyPosition != static_cast<int>(m_historyList.size()) - 1)
 798                 {
 799                     m_historyList.erase(m_historyList.begin() + m_historyPosition + 1,
 800                                         m_historyList.end());
 801                 }
 802                 wxSharedPtr<wxWebViewHistoryItem> item(new wxWebViewHistoryItem(url, GetCurrentTitle()));
 803                 m_historyList.push_back(item);
 804                 m_historyPosition++;
 805             }
 806             //Reset as we are done now
 807             m_historyLoadingFromList = false;
 808             // TODO: set target parameter if possible
 809             wxString target = wxEmptyString;
 810             wxWebViewEvent event(wxEVT_COMMAND_WEB_VIEW_LOADED, GetId(),
 811                                  url, target);
 812             event.SetEventObject(this);
 813             HandleWindowEvent(event);
 814             break;
 815         }
 816
 817         case DISPID_STATUSTEXTCHANGE:
 818         {
 819             break;
 820         }
 821
 822         case DISPID_TITLECHANGE:
 823         {
 824             wxString title = evt[0].GetString();
 825
 826             wxWebViewEvent event(wxEVT_COMMAND_WEB_VIEW_TITLE_CHANGED,
 827                                  GetId(), GetCurrentURL(), "");
 828             event.SetString(title);
 829             event.SetEventObject(this);
 830             HandleWindowEvent(event);
 831             break;
 832         }
 833
 834         case DISPID_NAVIGATEERROR:
 835         {
 836             wxWebViewNavigationError errorType = wxWEB_NAV_ERR_OTHER;
 837             wxString errorCode = "?";
 838             switch (evt[3].GetLong())
 839             {
 840             case INET_E_INVALID_URL: // (0x800C0002L or -2146697214)
 841                 errorCode = "INET_E_INVALID_URL";
 842                 errorType = wxWEB_NAV_ERR_REQUEST;
 843                 break;
 844             case INET_E_NO_SESSION: // (0x800C0003L or -2146697213)
 845                 errorCode = "INET_E_NO_SESSION";
 846                 errorType = wxWEB_NAV_ERR_CONNECTION;
 847                 break;
 848             case INET_E_CANNOT_CONNECT: // (0x800C0004L or -2146697212)
 849                 errorCode = "INET_E_CANNOT_CONNECT";
 850                 errorType = wxWEB_NAV_ERR_CONNECTION;
 851                 break;
 852             case INET_E_RESOURCE_NOT_FOUND: // (0x800C0005L or -2146697211)
 853                 errorCode = "INET_E_RESOURCE_NOT_FOUND";
 854                 errorType = wxWEB_NAV_ERR_NOT_FOUND;
 855                 break;
 856             case INET_E_OBJECT_NOT_FOUND: // (0x800C0006L or -2146697210)
 857                 errorCode = "INET_E_OBJECT_NOT_FOUND";
 858                 errorType = wxWEB_NAV_ERR_NOT_FOUND;
 859                 break;
 860             case INET_E_DATA_NOT_AVAILABLE: // (0x800C0007L or -2146697209)
 861                 errorCode = "INET_E_DATA_NOT_AVAILABLE";
 862                 errorType = wxWEB_NAV_ERR_NOT_FOUND;
 863                 break;
 864             case INET_E_DOWNLOAD_FAILURE: // (0x800C0008L or -2146697208)
 865                 errorCode = "INET_E_DOWNLOAD_FAILURE";
 866                 errorType = wxWEB_NAV_ERR_CONNECTION;
 867                 break;
 868             case INET_E_AUTHENTICATION_REQUIRED: // (0x800C0009L or -2146697207)
 869                 errorCode = "INET_E_AUTHENTICATION_REQUIRED";
 870                 errorType = wxWEB_NAV_ERR_AUTH;
 871                 break;
 872             case INET_E_NO_VALID_MEDIA: // (0x800C000AL or -2146697206)
 873                 errorCode = "INET_E_NO_VALID_MEDIA";
 874                 errorType = wxWEB_NAV_ERR_REQUEST;
 875                 break;
 876             case INET_E_CONNECTION_TIMEOUT: // (0x800C000BL or -2146697205)
 877                 errorCode = "INET_E_CONNECTION_TIMEOUT";
 878                 errorType = wxWEB_NAV_ERR_CONNECTION;
 879                 break;
 880             case INET_E_INVALID_REQUEST: // (0x800C000CL or -2146697204)
 881                 errorCode = "INET_E_INVALID_REQUEST";
 882                 errorType = wxWEB_NAV_ERR_REQUEST;
 883                 break;
 884             case INET_E_UNKNOWN_PROTOCOL: // (0x800C000DL or -2146697203)
 885                 errorCode = "INET_E_UNKNOWN_PROTOCOL";
 886                 errorType = wxWEB_NAV_ERR_REQUEST;
 887                 break;
 888             case INET_E_SECURITY_PROBLEM: // (0x800C000EL or -2146697202)
 889                 errorCode = "INET_E_SECURITY_PROBLEM";
 890                 errorType = wxWEB_NAV_ERR_SECURITY;
 891                 break;
 892             case INET_E_CANNOT_LOAD_DATA: // (0x800C000FL or -2146697201)
 893                 errorCode = "INET_E_CANNOT_LOAD_DATA";
 894                 errorType = wxWEB_NAV_ERR_OTHER;
 895                 break;
 896             case INET_E_CANNOT_INSTANTIATE_OBJECT:
 897                 // CoCreateInstance will return an error code if this happens,
 898                 // we'll handle this above.
 899                 return;
 900                 break;
 901             case INET_E_REDIRECT_FAILED: // (0x800C0014L or -2146697196)
 902                 errorCode = "INET_E_REDIRECT_FAILED";
 903                 errorType = wxWEB_NAV_ERR_OTHER;
 904                 break;
 905             case INET_E_REDIRECT_TO_DIR: // (0x800C0015L or -2146697195)
 906                 errorCode = "INET_E_REDIRECT_TO_DIR";
 907                 errorType = wxWEB_NAV_ERR_REQUEST;
 908                 break;
 909             case INET_E_CANNOT_LOCK_REQUEST: // (0x800C0016L or -2146697194)
 910                 errorCode = "INET_E_CANNOT_LOCK_REQUEST";
 911                 errorType = wxWEB_NAV_ERR_OTHER;
 912                 break;
 913             case INET_E_USE_EXTEND_BINDING: // (0x800C0017L or -2146697193)
 914                 errorCode = "INET_E_USE_EXTEND_BINDING";
 915                 errorType = wxWEB_NAV_ERR_OTHER;
 916                 break;
 917             case INET_E_TERMINATED_BIND: // (0x800C0018L or -2146697192)
 918                 errorCode = "INET_E_TERMINATED_BIND";
 919                 errorType = wxWEB_NAV_ERR_OTHER;
 920                 break;
 921             case INET_E_INVALID_CERTIFICATE: // (0x800C0019L or -2146697191)
 922                 errorCode = "INET_E_INVALID_CERTIFICATE";
 923                 errorType = wxWEB_NAV_ERR_CERTIFICATE;
 924                 break;
 925             case INET_E_CODE_DOWNLOAD_DECLINED: // (0x800C0100L or -2146696960)
 926                 errorCode = "INET_E_CODE_DOWNLOAD_DECLINED";
 927                 errorType = wxWEB_NAV_ERR_USER_CANCELLED;
 928                 break;
 929             case INET_E_RESULT_DISPATCHED: // (0x800C0200L or -2146696704)
 930                 // cancel request cancelled...
 931                 errorCode = "INET_E_RESULT_DISPATCHED";
 932                 errorType = wxWEB_NAV_ERR_OTHER;
 933                 break;
 934             case INET_E_CANNOT_REPLACE_SFP_FILE: // (0x800C0300L or -2146696448)
 935                 errorCode = "INET_E_CANNOT_REPLACE_SFP_FILE";
 936                 errorType = wxWEB_NAV_ERR_SECURITY;
 937                 break;
 938             case INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY:
 939                 errorCode = "INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY";
 940                 errorType = wxWEB_NAV_ERR_SECURITY;
 941                 break;
 942             case INET_E_CODE_INSTALL_SUPPRESSED:
 943                 errorCode = "INET_E_CODE_INSTALL_SUPPRESSED";
 944                 errorType = wxWEB_NAV_ERR_SECURITY;
 945                 break;
 946             }
 947
 948             wxString url = evt[1].GetString();
 949             wxString target = evt[2].GetString();
 950             wxWebViewEvent event(wxEVT_COMMAND_WEB_VIEW_ERROR, GetId(),
 951                                  url, target);
 952             event.SetEventObject(this);
 953             event.SetInt(errorType);
 954             event.SetString(errorCode);
 955             HandleWindowEvent(event);
 956             break;
 957         }
 958         case DISPID_NEWWINDOW3:
 959         {
 960             wxString url = evt[4].GetString();
 961
 962             wxWebViewEvent event(wxEVT_COMMAND_WEB_VIEW_NEWWINDOW,
 963                                  GetId(), url, wxEmptyString);
 964             event.SetEventObject(this);
 965             HandleWindowEvent(event);
 966
 967             //We always cancel this event otherwise an Internet Exporer window
 968             //is opened for the url
 969             wxActiveXEventNativeMSW* nativeParams = evt.GetNativeParameters();
 970             *V_BOOLREF(&nativeParams->pDispParams->rgvarg[3]) = VARIANT_TRUE;
 971             break;
 972         }
 973     }
 974
 975     evt.Skip();
 976 }
 977
 978 VirtualProtocol::VirtualProtocol(wxSharedPtr<wxWebViewHandler> handler)
 979 {
 980     m_refCount = 0;
 981     m_file = NULL;
 982     m_handler = handler;
 983 }
 984
 985 VirtualProtocol::~VirtualProtocol()
 986 {
 987 }
 988
 989 ULONG VirtualProtocol::AddRef()
 990 {
 991     m_refCount++;
 992     return m_refCount;
 993 }
 994
 995 HRESULT VirtualProtocol::QueryInterface(REFIID riid, void **ppvObject)
 996 {
 997     if(riid == IID_IUnknown || riid == IID_IInternetProtocolRoot ||
 998        riid == IID_IInternetProtocol)
 999     {
1000         *ppvObject = (IInternetProtocol*)this;
1001         AddRef();
1002         return S_OK;
1003     }
1004     else
1005     {
1006         *ppvObject = NULL;
1007         return E_POINTER;
1008     }
1009 }
1010
1011 ULONG VirtualProtocol::Release()
1012 {
1013     m_refCount--;
1014     if (m_refCount > 0)
1015     {
1016         return m_refCount;
1017     }
1018     else
1019     {
1020         delete this;
1021         return 0;
1022     }
1023 }
1024
1025 HRESULT VirtualProtocol::Start(LPCWSTR szUrl, IInternetProtocolSink *pOIProtSink,
1026                                IInternetBindInfo *pOIBindInfo, DWORD grfPI,
1027                                HANDLE_PTR dwReserved)
1028 {
1029     wxUnusedVar(szUrl);
1030     wxUnusedVar(pOIBindInfo);
1031     wxUnusedVar(grfPI);
1032     wxUnusedVar(dwReserved);
1033     m_protocolSink = pOIProtSink;
1034
1035     //We get the file itself from the protocol handler
1036     m_file = m_handler->GetFile(szUrl);
1037
1038
1039     if(!m_file)
1040         return INET_E_RESOURCE_NOT_FOUND;
1041
1042     //We return the stream length for current and total size as we can always
1043     //read the whole file from the stream
1044     wxFileOffset length = m_file->GetStream()->GetLength();
1045     m_protocolSink->ReportData(BSCF_FIRSTDATANOTIFICATION |
1046                                BSCF_DATAFULLYAVAILABLE |
1047                                BSCF_LASTDATANOTIFICATION,
1048                                length, length);
1049     return S_OK;
1050 }
1051
1052 HRESULT VirtualProtocol::Read(void *pv, ULONG cb, ULONG *pcbRead)
1053 {
1054     //If the file is null we return false to indicte it is finished
1055     if(!m_file)
1056         return S_FALSE;
1057
1058     wxStreamError err = m_file->GetStream()->Read(pv, cb).GetLastError();
1059     *pcbRead = m_file->GetStream()->LastRead();
1060
1061     if(err == wxSTREAM_NO_ERROR)
1062     {
1063         if(*pcbRead < cb)
1064         {
1065             wxDELETE(m_file);
1066             m_protocolSink->ReportResult(S_OK, 0, NULL);
1067         }
1068         //As we are not eof there is more data
1069         return S_OK;
1070     }
1071     else if(err == wxSTREAM_EOF)
1072     {
1073         wxDELETE(m_file);
1074         m_protocolSink->ReportResult(S_OK, 0, NULL);
1075         //We are eof and so finished
1076         return S_OK;
1077     }
1078     else if(err ==  wxSTREAM_READ_ERROR)
1079     {
1080         wxDELETE(m_file);
1081         return INET_E_DOWNLOAD_FAILURE;
1082     }
1083     else
1084     {
1085         //Dummy return to surpress a compiler warning
1086         wxFAIL;
1087         return INET_E_DOWNLOAD_FAILURE;
1088     }
1089 }
1090
1091 HRESULT ClassFactory::CreateInstance(IUnknown* pUnkOuter, REFIID riid,
1092                                      void ** ppvObject)
1093 {
1094     if (pUnkOuter)
1095         return CLASS_E_NOAGGREGATION;
1096     VirtualProtocol* vp = new VirtualProtocol(m_handler);
1097     vp->AddRef();
1098     HRESULT hr = vp->QueryInterface(riid, ppvObject);
1099     vp->Release();
1100     return hr;
1101
1102 }
1103
1104 STDMETHODIMP ClassFactory::LockServer(BOOL fLock)
1105 {
1106     wxUnusedVar(fLock);
1107     return S_OK;
1108 }
1109
1110 ULONG ClassFactory::AddRef(void)
1111 {
1112     m_refCount++;
1113     return m_refCount;
1114 }
1115
1116 HRESULT ClassFactory::QueryInterface(REFIID riid, void **ppvObject)
1117 {
1118     if ((riid == IID_IUnknown) || (riid == IID_IClassFactory))
1119     {
1120         *ppvObject = this;
1121         AddRef();
1122         return S_OK;
1123     }
1124     else
1125     {
1126         *ppvObject = NULL;
1127         return E_POINTER;
1128     }
1129
1130 }
1131
1132 ULONG ClassFactory::Release(void)
1133 {
1134     m_refCount--;
1135     if (m_refCount > 0)
1136     {
1137         return m_refCount;
1138     }
1139     else
1140     {
1141         delete this;
1142         return 0;
1143     }
1144
1145 }
1146
1147 #endif // wxUSE_WEBVIEW && wxUSE_WEBVIEW_IE