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, 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_IE
  20
  21 #include <olectl.h>
  22 #include <oleidl.h>
  23 #include <exdispid.h>
  24 #include <exdisp.h>
  25 #include <mshtml.h>
  26
  27 // Various definitions are missing from mingw
  28 #ifdef __MINGW32__
  29 typedef enum CommandStateChangeConstants {
  30     CSC_UPDATECOMMANDS = (int) 0xFFFFFFFF,
  31     CSC_NAVIGATEFORWARD = 0x1,
  32     CSC_NAVIGATEBACK = 0x2
  33 } CommandStateChangeConstants;
  34
  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
  68
  69 #define REFRESH_NORMAL 0
  70 #define REFRESH_COMPLETELY 3
  71 #endif
  72
  73 BEGIN_EVENT_TABLE(wxWebViewIE, wxControl)
  74     EVT_ACTIVEX(wxID_ANY, wxWebViewIE::onActiveXEvent)
  75     EVT_ERASE_BACKGROUND(wxWebViewIE::onEraseBg)
  76 END_EVENT_TABLE()
  77
  78 bool wxWebViewIE::Create(wxWindow* parent,
  79            wxWindowID id,
  80            const wxString& url,
  81            const wxPoint& pos,
  82            const wxSize& size,
  83            long style,
  84            const wxString& name)
  85 {
  86     if (!wxControl::Create(parent, id, pos, size, style,
  87                            wxDefaultValidator, name))
  88     {
  89         return false;
  90     }
  91
  92     m_webBrowser = NULL;
  93     m_canNavigateBack = false;
  94     m_canNavigateForward = false;
  95     m_isBusy = false;
  96     m_historyLoadingFromList = false;
  97     m_historyEnabled = true;
  98     m_historyPosition = -1;
  99
 100     if (::CoCreateInstance(CLSID_WebBrowser, NULL,
 101                            CLSCTX_INPROC_SERVER, // CLSCTX_INPROC,
 102                            IID_IWebBrowser2 , (void**)&m_webBrowser) != 0)
 103     {
 104         wxLogError("Failed to initialize IE, CoCreateInstance returned an error");
 105         return false;
 106     }
 107
 108     m_ie.SetDispatchPtr(m_webBrowser); // wxAutomationObject will release itself
 109
 110     m_webBrowser->put_RegisterAsBrowser(VARIANT_TRUE);
 111     m_webBrowser->put_RegisterAsDropTarget(VARIANT_TRUE);
 112     //m_webBrowser->put_Silent(VARIANT_FALSE);
 113
 114     m_container = new wxActiveXContainer(this, IID_IWebBrowser2, m_webBrowser);
 115
 116     SetBackgroundStyle(wxBG_STYLE_PAINT);
 117     SetDoubleBuffered(true);
 118     LoadUrl(url);
 119     return true;
 120 }
 121
 122
 123 void wxWebViewIE::LoadUrl(const wxString& url)
 124 {
 125     wxVariant out = m_ie.CallMethod("Navigate", (BSTR) url.wc_str(),
 126                                     NULL, NULL, NULL, NULL);
 127
 128     // FIXME: why is out value null??
 129     //(HRESULT)(out.GetLong()) == S_OK;
 130 }
 131
 132 void wxWebViewIE::SetPage(const wxString& html, const wxString&)
 133 {
 134     LoadUrl("about:blank");
 135
 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
 139     wxYield();
 140
 141     // TODO: consider the "baseUrl" parameter if possible
 142     // TODO: consider encoding
 143     BSTR bstr = SysAllocString(html.wc_str());
 144
 145     // Creates a new one-dimensional array
 146     SAFEARRAY *psaStrings = SafeArrayCreateVector(VT_VARIANT, 0, 1);
 147     if (psaStrings != NULL)
 148     {
 149         VARIANT *param;
 150         HRESULT hr = SafeArrayAccessData(psaStrings, (LPVOID*)&param);
 151         param->vt = VT_BSTR;
 152         param->bstrVal = bstr;
 153
 154         hr = SafeArrayUnaccessData(psaStrings);
 155         IHTMLDocument2* document = GetDocument();
 156         document->write(psaStrings);
 157
 158         // SafeArrayDestroy calls SysFreeString for each BSTR
 159         SafeArrayDestroy(psaStrings);
 160     }
 161     else
 162     {
 163         wxLogError("wxWebViewIE::SetPage() : psaStrings is NULL");
 164     }
 165
 166 }
 167
 168 wxString wxWebViewIE::GetPageSource()
 169 {
 170     IHTMLDocument2* document = GetDocument();
 171     IHTMLElement *bodyTag = NULL;
 172     IHTMLElement *htmlTag = NULL;
 173     document->get_body(&bodyTag);
 174     wxASSERT(bodyTag != NULL);
 175
 176     document->Release();
 177     bodyTag->get_parentElement(&htmlTag);
 178     wxASSERT(htmlTag != NULL);
 179
 180     BSTR    bstr;
 181     htmlTag->get_outerHTML(&bstr);
 182
 183     bodyTag->Release();
 184     htmlTag->Release();
 185
 186     //wxMessageBox(wxString(bstr));
 187
 188     // TODO: check encoding
 189     return wxString(bstr);
 190 }
 191
 192 // FIXME? retrieve OLECMDID_GETZOOMRANGE instead of hardcoding range 0-4
 193 wxWebViewZoom wxWebViewIE::GetZoom()
 194 {
 195     const int zoom = GetIETextZoom();
 196
 197     switch (zoom)
 198     {
 199         case 0:
 200             return wxWEB_VIEW_ZOOM_TINY;
 201             break;
 202         case 1:
 203             return wxWEB_VIEW_ZOOM_SMALL;
 204             break;
 205         case 2:
 206             return wxWEB_VIEW_ZOOM_MEDIUM;
 207             break;
 208         case 3:
 209             return wxWEB_VIEW_ZOOM_LARGE;
 210             break;
 211         case 4:
 212             return wxWEB_VIEW_ZOOM_LARGEST;
 213             break;
 214         default:
 215             wxASSERT(false);
 216             return wxWEB_VIEW_ZOOM_MEDIUM;
 217     }
 218 }
 219 void wxWebViewIE::SetZoom(wxWebViewZoom zoom)
 220 {
 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
 223     // values change...
 224     switch (zoom)
 225     {
 226         case wxWEB_VIEW_ZOOM_TINY:
 227             SetIETextZoom(0);
 228             break;
 229         case wxWEB_VIEW_ZOOM_SMALL:
 230             SetIETextZoom(1);
 231             break;
 232         case wxWEB_VIEW_ZOOM_MEDIUM:
 233             SetIETextZoom(2);
 234             break;
 235         case wxWEB_VIEW_ZOOM_LARGE:
 236             SetIETextZoom(3);
 237             break;
 238         case wxWEB_VIEW_ZOOM_LARGEST:
 239             SetIETextZoom(4);
 240             break;
 241         default:
 242             wxASSERT(false);
 243     }
 244 }
 245
 246 void wxWebViewIE::SetIETextZoom(int level)
 247 {
 248     VARIANT zoomVariant;
 249     VariantInit (&zoomVariant);
 250     V_VT(&zoomVariant) = VT_I4;
 251     V_I4(&zoomVariant) = level;
 252
 253     HRESULT result = m_webBrowser->ExecWB(OLECMDID_ZOOM,
 254                                           OLECMDEXECOPT_DONTPROMPTUSER,
 255                                           &zoomVariant, NULL);
 256     wxASSERT (result == S_OK);
 257
 258     VariantClear (&zoomVariant);
 259 }
 260
 261 int wxWebViewIE::GetIETextZoom()
 262 {
 263     VARIANT zoomVariant;
 264     VariantInit (&zoomVariant);
 265     V_VT(&zoomVariant) = VT_I4;
 266     V_I4(&zoomVariant) = 4;
 267
 268     HRESULT result = m_webBrowser->ExecWB(OLECMDID_ZOOM,
 269                                           OLECMDEXECOPT_DONTPROMPTUSER,
 270                                           NULL, &zoomVariant);
 271     wxASSERT (result == S_OK);
 272
 273     int zoom = V_I4(&zoomVariant);
 274    // wxMessageBox(wxString::Format("Zoom : %i", zoom));
 275     VariantClear (&zoomVariant);
 276
 277     return zoom;
 278 }
 279
 280 void wxWebViewIE::SetIEOpticalZoom(float zoom)
 281 {
 282     // TODO: add support for optical zoom (IE7+ only)
 283
 284     // TODO: get range from OLECMDID_OPTICAL_GETZOOMRANGE instead of hardcoding?
 285     wxASSERT(zoom >= 10.0f);
 286     wxASSERT(zoom <= 1000.0f);
 287
 288     VARIANT zoomVariant;
 289     VariantInit (&zoomVariant);
 290     V_VT(&zoomVariant) = VT_I4;
 291     V_I4(&zoomVariant) = (zoom * 100.0f);
 292
 293     HRESULT result = m_webBrowser->ExecWB((OLECMDID)OLECMDID_OPTICAL_ZOOM,
 294                                           OLECMDEXECOPT_DODEFAULT,
 295                                           &zoomVariant,
 296                                           NULL);
 297     wxASSERT (result == S_OK);
 298 }
 299
 300 float wxWebViewIE::GetIEOpticalZoom()
 301 {
 302     // TODO: add support for optical zoom (IE7+ only)
 303
 304     VARIANT zoomVariant;
 305     VariantInit (&zoomVariant);
 306     V_VT(&zoomVariant) = VT_I4;
 307     V_I4(&zoomVariant) = -1;
 308
 309     HRESULT result = m_webBrowser->ExecWB((OLECMDID)OLECMDID_OPTICAL_ZOOM,
 310                                           OLECMDEXECOPT_DODEFAULT, NULL,
 311                                           &zoomVariant);
 312     wxASSERT (result == S_OK);
 313
 314     const int zoom = V_I4(&zoomVariant);
 315     VariantClear (&zoomVariant);
 316
 317     return zoom / 100.0f;
 318 }
 319
 320 void wxWebViewIE::SetZoomType(wxWebViewZoomType)
 321 {
 322     // TODO: add support for optical zoom (IE7+ only)
 323     wxASSERT(false);
 324 }
 325
 326 wxWebViewZoomType wxWebViewIE::GetZoomType() const
 327 {
 328     // TODO: add support for optical zoom (IE7+ only)
 329     return wxWEB_VIEW_ZOOM_TYPE_TEXT;
 330 }
 331
 332 bool wxWebViewIE::CanSetZoomType(wxWebViewZoomType) const
 333 {
 334     // both are supported
 335     // TODO: IE6 only supports text zoom, check if it's IE6 first
 336     return true;
 337 }
 338
 339 void wxWebViewIE::Print()
 340 {
 341     m_webBrowser->ExecWB(OLECMDID_PRINTPREVIEW,
 342                          OLECMDEXECOPT_DODEFAULT, NULL, NULL);
 343 }
 344
 345 bool wxWebViewIE::CanGoBack()
 346 {
 347     if(m_historyEnabled)
 348         return m_historyPosition > 0;
 349     else
 350         return false;
 351 }
 352
 353 bool wxWebViewIE::CanGoForward()
 354 {
 355     if(m_historyEnabled)
 356         return m_historyPosition != static_cast<int>(m_historyList.size()) - 1;
 357     else
 358         return false;
 359 }
 360
 361 void wxWebViewIE::LoadHistoryItem(wxSharedPtr<wxWebHistoryItem> item)
 362 {
 363     int pos = -1;
 364     for(unsigned int i = 0; i < m_historyList.size(); i++)
 365     {
 366         //We compare the actual pointers to find the correct item
 367         if(m_historyList[i].get() == item.get())
 368             pos = i;
 369     }
 370     wxASSERT_MSG(pos != static_cast<int>(m_historyList.size()),
 371                  "invalid history item");
 372     m_historyLoadingFromList = true;
 373     LoadUrl(item->GetUrl());
 374     m_historyPosition = pos;
 375 }
 376
 377 wxVector<wxSharedPtr<wxWebHistoryItem> > wxWebViewIE::GetBackwardHistory()
 378 {
 379     wxVector<wxSharedPtr<wxWebHistoryItem> > backhist;
 380     //As we don't have std::copy or an iterator constructor in the wxwidgets
 381     //native vector we construct it by hand
 382     for(int i = 0; i < m_historyPosition; i++)
 383     {
 384         backhist.push_back(m_historyList[i]);
 385     }
 386     return backhist;
 387 }
 388
 389 wxVector<wxSharedPtr<wxWebHistoryItem> > wxWebViewIE::GetForwardHistory()
 390 {
 391     wxVector<wxSharedPtr<wxWebHistoryItem> > forwardhist;
 392     //As we don't have std::copy or an iterator constructor in the wxwidgets
 393     //native vector we construct it by hand
 394     for(int i = m_historyPosition + 1; i < static_cast<int>(m_historyList.size()); i++)
 395     {
 396         forwardhist.push_back(m_historyList[i]);
 397     }
 398     return forwardhist;
 399 }
 400
 401 void wxWebViewIE::GoBack()
 402 {
 403     LoadHistoryItem(m_historyList[m_historyPosition - 1]);
 404 }
 405
 406 void wxWebViewIE::GoForward()
 407 {
 408     LoadHistoryItem(m_historyList[m_historyPosition + 1]);
 409 }
 410
 411 void wxWebViewIE::Stop()
 412 {
 413     wxVariant out = m_ie.CallMethod("Stop");
 414
 415     // FIXME: why is out value null??
 416     //return (HRESULT)(out.GetLong()) == S_OK;
 417 }
 418
 419 void wxWebViewIE::ClearHistory()
 420 {
 421     m_historyList.clear();
 422     m_historyPosition = -1;
 423 }
 424
 425 void wxWebViewIE::EnableHistory(bool enable)
 426 {
 427     m_historyEnabled = enable;
 428     m_historyList.clear();
 429     m_historyPosition = -1;
 430 }
 431
 432 void wxWebViewIE::Reload(wxWebViewReloadFlags flags)
 433 {
 434     VARIANTARG level;
 435     VariantInit(&level);
 436     V_VT(&level) = VT_I2;
 437
 438     switch(flags)
 439     {
 440         case wxWEB_VIEW_RELOAD_DEFAULT:
 441             V_I2(&level) = REFRESH_NORMAL;
 442             break;
 443         case wxWEB_VIEW_RELOAD_NO_CACHE:
 444             V_I2(&level) = REFRESH_COMPLETELY;
 445             break;
 446         default:
 447             wxFAIL_MSG("Unexpected reload type");
 448     }
 449
 450     m_webBrowser->Refresh2(&level);
 451 }
 452
 453 bool wxWebViewIE::IsOfflineMode()
 454 {
 455     wxVariant out = m_ie.GetProperty("Offline");
 456
 457     wxASSERT(out.GetType() == "bool");
 458
 459     return out.GetBool();
 460 }
 461
 462 void wxWebViewIE::SetOfflineMode(bool offline)
 463 {
 464     // FIXME: the wxWidgets docs do not really document what the return
 465     //        parameter of PutProperty is
 466     const bool success = m_ie.PutProperty("Offline", (offline ?
 467                                                       VARIANT_TRUE :
 468                                                       VARIANT_FALSE));
 469     wxASSERT(success);
 470 }
 471
 472 bool wxWebViewIE::IsBusy()
 473 {
 474     if (m_isBusy) return true;
 475
 476     wxVariant out = m_ie.GetProperty("Busy");
 477
 478     wxASSERT(out.GetType() == "bool");
 479
 480     return out.GetBool();
 481 }
 482
 483 wxString wxWebViewIE::GetCurrentURL()
 484 {
 485     wxVariant out = m_ie.GetProperty("LocationURL");
 486
 487     wxASSERT(out.GetType() == "string");
 488     return out.GetString();
 489 }
 490
 491 wxString wxWebViewIE::GetCurrentTitle()
 492 {
 493     IHTMLDocument2* document = GetDocument();
 494
 495     BSTR title;
 496     document->get_nameProp(&title);
 497     return wxString(title);
 498 }
 499
 500 bool wxWebViewIE::CanCut()
 501 {
 502     return CanExecCommand("Cut");
 503 }
 504
 505 bool wxWebViewIE::CanCopy()
 506 {
 507     return CanExecCommand("Copy");
 508 }
 509 bool wxWebViewIE::CanPaste()
 510 {
 511     return CanExecCommand("Paste");
 512 }
 513
 514 void wxWebViewIE::Cut()
 515 {
 516     ExecCommand("Cut");
 517 }
 518
 519 void wxWebViewIE::Copy()
 520 {
 521     ExecCommand("Copy");
 522 }
 523
 524 void wxWebViewIE::Paste()
 525 {
 526     ExecCommand("Paste");
 527 }
 528
 529 bool wxWebViewIE::CanUndo()
 530 {
 531     return CanExecCommand("Undo");
 532 }
 533 bool wxWebViewIE::CanRedo()
 534 {
 535     return CanExecCommand("Redo");
 536 }
 537
 538 void wxWebViewIE::Undo()
 539 {
 540     ExecCommand("Undo");
 541 }
 542
 543 void wxWebViewIE::Redo()
 544 {
 545     ExecCommand("Redo");
 546 }
 547
 548 void wxWebViewIE::SetEditable(bool enable)
 549 {
 550     IHTMLDocument2* document = GetDocument();
 551     if( enable )
 552         document->put_designMode(SysAllocString(L"On"));
 553     else
 554         document->put_designMode(SysAllocString(L"Off"));
 555 }
 556
 557 bool wxWebViewIE::IsEditable()
 558 {
 559     IHTMLDocument2* document = GetDocument();
 560     BSTR mode;
 561     document->get_designMode(&mode);
 562     if(wxString(mode) == "On")
 563         return true;
 564     else
 565         return false;
 566 }
 567
 568 void wxWebViewIE::SelectAll()
 569 {
 570     ExecCommand("SelectAll");
 571 }
 572
 573 bool wxWebViewIE::HasSelection()
 574 {
 575     IHTMLDocument2* document = GetDocument();
 576     IHTMLSelectionObject* selection;
 577     document->get_selection(&selection);
 578     BSTR type;
 579     selection->get_type(&type);
 580     return wxString(type) != "None";
 581 }
 582
 583 void wxWebViewIE::DeleteSelection()
 584 {
 585     ExecCommand("Delete");
 586 }
 587
 588 wxString wxWebViewIE::GetSelectedText()
 589 {
 590     IHTMLDocument2* document = GetDocument();
 591     IHTMLSelectionObject* selection;
 592     wxString selected;
 593     HRESULT hr = document->get_selection(&selection);
 594     if(SUCCEEDED(hr))
 595     {
 596         IDispatch* disrange;
 597         hr = selection->createRange(&disrange);
 598         if(SUCCEEDED(hr))
 599         {
 600             IHTMLTxtRange* range;
 601             hr = disrange->QueryInterface(IID_IHTMLTxtRange, (void**)&range);
 602             if(SUCCEEDED(hr))
 603             {
 604                 BSTR text;
 605                 range->get_text(&text);
 606                 selected = wxString(text);
 607                 range->Release();
 608             }
 609             disrange->Release();
 610         }
 611         selection->Release();
 612     }
 613     document->Release();
 614     return selected;
 615 }
 616
 617 bool wxWebViewIE::CanExecCommand(wxString command)
 618 {
 619     IHTMLDocument2* document = GetDocument();
 620
 621     VARIANT_BOOL enabled;
 622     document->queryCommandEnabled(SysAllocString(command.wc_str()), &enabled);
 623
 624     return (enabled == VARIANT_TRUE);
 625 }
 626
 627 void wxWebViewIE::ExecCommand(wxString command)
 628 {
 629     IHTMLDocument2* document = GetDocument();
 630     document->execCommand(SysAllocString(command.wc_str()), VARIANT_FALSE, VARIANT(), NULL);
 631 }
 632
 633 IHTMLDocument2* wxWebViewIE::GetDocument()
 634 {
 635     wxVariant variant = m_ie.GetProperty("Document");
 636     IHTMLDocument2* document = (IHTMLDocument2*)variant.GetVoidPtr();
 637
 638     wxASSERT(document);
 639
 640     return document;
 641 }
 642
 643 void wxWebViewIE::onActiveXEvent(wxActiveXEvent& evt)
 644 {
 645     if (m_webBrowser == NULL) return;
 646
 647     switch (evt.GetDispatchId())
 648     {
 649         case DISPID_BEFORENAVIGATE2:
 650         {
 651             m_isBusy = true;
 652
 653             wxString url = evt[1].GetString();
 654             wxString target = evt[3].GetString();
 655
 656             wxWebNavigationEvent event(wxEVT_COMMAND_WEB_VIEW_NAVIGATING,
 657                                        GetId(), url, target, true);
 658             event.SetEventObject(this);
 659             HandleWindowEvent(event);
 660
 661             if (event.IsVetoed())
 662             {
 663                 wxActiveXEventNativeMSW* nativeParams =
 664                     evt.GetNativeParameters();
 665                 *V_BOOLREF(&nativeParams->pDispParams->rgvarg[0]) = VARIANT_TRUE;
 666             }
 667
 668             // at this point, either the navigation event has been cancelled
 669             // and we're not busy, either it was accepted and IWebBrowser2's
 670             // Busy property will be true; so we don't need our override
 671             // flag anymore.
 672             m_isBusy = false;
 673
 674             break;
 675         }
 676
 677         case DISPID_NAVIGATECOMPLETE2:
 678         {
 679             wxString url = evt[1].GetString();
 680             // TODO: set target parameter if possible
 681             wxString target = wxEmptyString;
 682             wxWebNavigationEvent event(wxEVT_COMMAND_WEB_VIEW_NAVIGATED,
 683                                        GetId(), url, target, false);
 684             event.SetEventObject(this);
 685             HandleWindowEvent(event);
 686             break;
 687         }
 688
 689         case DISPID_PROGRESSCHANGE:
 690         {
 691             // download progress
 692             break;
 693         }
 694
 695         case DISPID_DOCUMENTCOMPLETE:
 696         {
 697             //Only send a complete even if we are actually finished, this brings
 698             //the event in to line with webkit
 699             READYSTATE rs;
 700             m_webBrowser->get_ReadyState( &rs );
 701             if(rs != READYSTATE_COMPLETE)
 702                 break;
 703
 704             wxString url = evt[1].GetString();
 705
 706             //As we are complete we also add to the history list, but not if the
 707             //page is not the main page, ie it is a subframe
 708             if(m_historyEnabled && !m_historyLoadingFromList && url == GetCurrentURL())
 709             {
 710                 //If we are not at the end of the list, then erase everything
 711                 //between us and the end before adding the new page
 712                 if(m_historyPosition != static_cast<int>(m_historyList.size()) - 1)
 713                 {
 714                     m_historyList.erase(m_historyList.begin() + m_historyPosition + 1,
 715                                         m_historyList.end());
 716                 }
 717                 wxSharedPtr<wxWebHistoryItem> item(new wxWebHistoryItem(url, GetCurrentTitle()));
 718                 m_historyList.push_back(item);
 719                 m_historyPosition++;
 720             }
 721             //Reset as we are done now
 722             m_historyLoadingFromList = false;
 723             // TODO: set target parameter if possible
 724             wxString target = wxEmptyString;
 725             wxWebNavigationEvent event(wxEVT_COMMAND_WEB_VIEW_LOADED, GetId(),
 726                                        url, target, false);
 727             event.SetEventObject(this);
 728             HandleWindowEvent(event);
 729             break;
 730         }
 731
 732         case DISPID_STATUSTEXTCHANGE:
 733         {
 734             break;
 735         }
 736
 737         case DISPID_TITLECHANGE:
 738         {
 739             break;
 740         }
 741
 742         case DISPID_NAVIGATEERROR:
 743         {
 744             wxWebNavigationError errorType = wxWEB_NAV_ERR_OTHER;
 745             wxString errorCode = "?";
 746             switch (evt[3].GetLong())
 747             {
 748             case INET_E_INVALID_URL: // (0x800C0002L or -2146697214)
 749                 errorCode = "INET_E_INVALID_URL";
 750                 errorType = wxWEB_NAV_ERR_REQUEST;
 751                 break;
 752             case INET_E_NO_SESSION: // (0x800C0003L or -2146697213)
 753                 errorCode = "INET_E_NO_SESSION";
 754                 errorType = wxWEB_NAV_ERR_CONNECTION;
 755                 break;
 756             case INET_E_CANNOT_CONNECT: // (0x800C0004L or -2146697212)
 757                 errorCode = "INET_E_CANNOT_CONNECT";
 758                 errorType = wxWEB_NAV_ERR_CONNECTION;
 759                 break;
 760             case INET_E_RESOURCE_NOT_FOUND: // (0x800C0005L or -2146697211)
 761                 errorCode = "INET_E_RESOURCE_NOT_FOUND";
 762                 errorType = wxWEB_NAV_ERR_NOT_FOUND;
 763                 break;
 764             case INET_E_OBJECT_NOT_FOUND: // (0x800C0006L or -2146697210)
 765                 errorCode = "INET_E_OBJECT_NOT_FOUND";
 766                 errorType = wxWEB_NAV_ERR_NOT_FOUND;
 767                 break;
 768             case INET_E_DATA_NOT_AVAILABLE: // (0x800C0007L or -2146697209)
 769                 errorCode = "INET_E_DATA_NOT_AVAILABLE";
 770                 errorType = wxWEB_NAV_ERR_NOT_FOUND;
 771                 break;
 772             case INET_E_DOWNLOAD_FAILURE: // (0x800C0008L or -2146697208)
 773                 errorCode = "INET_E_DOWNLOAD_FAILURE";
 774                 errorType = wxWEB_NAV_ERR_CONNECTION;
 775                 break;
 776             case INET_E_AUTHENTICATION_REQUIRED: // (0x800C0009L or -2146697207)
 777                 errorCode = "INET_E_AUTHENTICATION_REQUIRED";
 778                 errorType = wxWEB_NAV_ERR_AUTH;
 779                 break;
 780             case INET_E_NO_VALID_MEDIA: // (0x800C000AL or -2146697206)
 781                 errorCode = "INET_E_NO_VALID_MEDIA";
 782                 errorType = wxWEB_NAV_ERR_REQUEST;
 783                 break;
 784             case INET_E_CONNECTION_TIMEOUT: // (0x800C000BL or -2146697205)
 785                 errorCode = "INET_E_CONNECTION_TIMEOUT";
 786                 errorType = wxWEB_NAV_ERR_CONNECTION;
 787                 break;
 788             case INET_E_INVALID_REQUEST: // (0x800C000CL or -2146697204)
 789                 errorCode = "INET_E_INVALID_REQUEST";
 790                 errorType = wxWEB_NAV_ERR_REQUEST;
 791                 break;
 792             case INET_E_UNKNOWN_PROTOCOL: // (0x800C000DL or -2146697203)
 793                 errorCode = "INET_E_UNKNOWN_PROTOCOL";
 794                 errorType = wxWEB_NAV_ERR_REQUEST;
 795                 break;
 796             case INET_E_SECURITY_PROBLEM: // (0x800C000EL or -2146697202)
 797                 errorCode = "INET_E_SECURITY_PROBLEM";
 798                 errorType = wxWEB_NAV_ERR_SECURITY;
 799                 break;
 800             case INET_E_CANNOT_LOAD_DATA: // (0x800C000FL or -2146697201)
 801                 errorCode = "INET_E_CANNOT_LOAD_DATA";
 802                 errorType = wxWEB_NAV_ERR_OTHER;
 803                 break;
 804             case INET_E_CANNOT_INSTANTIATE_OBJECT:
 805                 // CoCreateInstance will return an error code if this happens,
 806                 // we'll handle this above.
 807                 return;
 808                 break;
 809             case INET_E_REDIRECT_FAILED: // (0x800C0014L or -2146697196)
 810                 errorCode = "INET_E_REDIRECT_FAILED";
 811                 errorType = wxWEB_NAV_ERR_OTHER;
 812                 break;
 813             case INET_E_REDIRECT_TO_DIR: // (0x800C0015L or -2146697195)
 814                 errorCode = "INET_E_REDIRECT_TO_DIR";
 815                 errorType = wxWEB_NAV_ERR_REQUEST;
 816                 break;
 817             case INET_E_CANNOT_LOCK_REQUEST: // (0x800C0016L or -2146697194)
 818                 errorCode = "INET_E_CANNOT_LOCK_REQUEST";
 819                 errorType = wxWEB_NAV_ERR_OTHER;
 820                 break;
 821             case INET_E_USE_EXTEND_BINDING: // (0x800C0017L or -2146697193)
 822                 errorCode = "INET_E_USE_EXTEND_BINDING";
 823                 errorType = wxWEB_NAV_ERR_OTHER;
 824                 break;
 825             case INET_E_TERMINATED_BIND: // (0x800C0018L or -2146697192)
 826                 errorCode = "INET_E_TERMINATED_BIND";
 827                 errorType = wxWEB_NAV_ERR_OTHER;
 828                 break;
 829             case INET_E_INVALID_CERTIFICATE: // (0x800C0019L or -2146697191)
 830                 errorCode = "INET_E_INVALID_CERTIFICATE";
 831                 errorType = wxWEB_NAV_ERR_CERTIFICATE;
 832                 break;
 833             case INET_E_CODE_DOWNLOAD_DECLINED: // (0x800C0100L or -2146696960)
 834                 errorCode = "INET_E_CODE_DOWNLOAD_DECLINED";
 835                 errorType = wxWEB_NAV_ERR_USER_CANCELLED;
 836                 break;
 837             case INET_E_RESULT_DISPATCHED: // (0x800C0200L or -2146696704)
 838                 // cancel request cancelled...
 839                 errorCode = "INET_E_RESULT_DISPATCHED";
 840                 errorType = wxWEB_NAV_ERR_OTHER;
 841                 break;
 842             case INET_E_CANNOT_REPLACE_SFP_FILE: // (0x800C0300L or -2146696448)
 843                 errorCode = "INET_E_CANNOT_REPLACE_SFP_FILE";
 844                 errorType = wxWEB_NAV_ERR_SECURITY;
 845                 break;
 846             case INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY:
 847                 errorCode = "INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY";
 848                 errorType = wxWEB_NAV_ERR_SECURITY;
 849                 break;
 850             case INET_E_CODE_INSTALL_SUPPRESSED:
 851                 errorCode = "INET_E_CODE_INSTALL_SUPPRESSED";
 852                 errorType = wxWEB_NAV_ERR_SECURITY;
 853                 break;
 854             }
 855
 856             wxString url = evt[1].GetString();
 857             wxString target = evt[2].GetString();
 858             wxWebNavigationEvent event(wxEVT_COMMAND_WEB_VIEW_ERROR, GetId(),
 859                                        url, target, false);
 860             event.SetEventObject(this);
 861             event.SetInt(errorType);
 862             event.SetString(errorCode);
 863             HandleWindowEvent(event);
 864             break;
 865         }
 866
 867         case DISPID_COMMANDSTATECHANGE:
 868         {
 869             long commandId = evt[0].GetLong();
 870             bool enable = evt[1].GetBool();
 871             if (commandId == CSC_NAVIGATEBACK)
 872             {
 873                 m_canNavigateBack = enable;
 874             }
 875             else if (commandId == CSC_NAVIGATEFORWARD)
 876             {
 877                 m_canNavigateForward = enable;
 878             }
 879             break;
 880         }
 881         case DISPID_NEWWINDOW3:
 882         {
 883             wxString url = evt[4].GetString();
 884
 885             wxWebNavigationEvent event(wxEVT_COMMAND_WEB_VIEW_NEWWINDOW,
 886                                        GetId(), url, wxEmptyString, true);
 887             event.SetEventObject(this);
 888             HandleWindowEvent(event);
 889
 890             //If we veto the event then we cancel the new window
 891             if (event.IsVetoed())
 892             {
 893                 wxActiveXEventNativeMSW* nativeParams = evt.GetNativeParameters();
 894                 *V_BOOLREF(&nativeParams->pDispParams->rgvarg[3]) = VARIANT_TRUE;
 895             }
 896             break;
 897         }
 898     }
 899
 900     evt.Skip();
 901 }
 902
 903 #endif