WINCE IE浏览器定制--支持触摸屏滑动操作

 

 

 

    由于需要在现有产品中集成WEB 浏览器，但IE自带的浏览器本身是不支持触摸屏滑动翻页的，而且IE本身用户体验也不敢恭维。有什么办法我们可以自己定制IE浏览器呢？下面将介绍如何定制IE使其支持触摸屏滑动操作。

    安装WINCE6.0后，在%_WINCEROOT%/Public/Ie/Oak 目录下有IESAMPLE和IESIMPLE两个文件夹，IESAMPLE是CE下IE的标准版本的源码，有工具栏、状态栏、地址栏，还有Internet选项、收藏夹等等。和PC Windows的IE几乎一样。而IESIMPLE是简化版本，只包含了基本的IWebBrowser控件。我们就可以基于这两个IE源码来定制我们自己需要的浏览器。IESIMPLE目录如下图所示：

 

   

    废话不多说了，下面就基于IESIMPLE源码来定制一个支持触摸滑动操作的web 浏览器。

 

      在VS2005下新建一个智能设备WIN32工程，并把IESIMPLE目录下的mainwnd.cpp,mainwnd, iesimple.rc, resource.h的四个文件拷贝至新建的工程目录。你也可以 直接在PB中找到iesimple 并右键build，如下图所示，然后到PB工程realease目录下将生成的

iesimple.exe拷贝至设备运行。但这样会有一个弊端：因为PB是不支持在线调试的，而且每次build后需要手动将可执行文件拷贝至设备运行。而直接新建一个工程的话会省去这些麻烦，而且不影响WINCE600原有代码。

       首先直接编译一下，正常的话能够顺利编译通过，可以先将生成的.exe拷贝到设备运行看一下效果。

 

     要想IE能够支持滑动翻页，主要是能够让IE响应WM_MOUSEMOVE消息，但IWebBrowser控件内部本身并未对WM_MOUSEMOVE消息做处理，这里采用在消息循环中截获WM_LBUTTONDOWN、WM_MOUSEMOVE、WM_LBUTTONUP并将消息交给主窗体的过程处理函数处理。在mainwnd.cpp找到NewWindow线程函数，加入如下代码：

  while (GetMessage( &msg, NULL, 0, 0 )) {switch(msg.message){case WM_LBUTTONDOWN:{::SendMessage(pWnd->_hWnd,msg.message,msg.wParam,msg.lParam);break;}case WM_MOUSEMOVE:{::SendMessage(pWnd->_hWnd,msg.message,msg.wParam,msg.lParam);break;}case WM_LBUTTONUP:{::SendMessage(pWnd->_hWnd,msg.message,msg.wParam,msg.lParam);break;}}if (!pWnd->PreTranslateMessage(&msg) && !(msg.message == WM_CHAR && msg.wParam == VK_TAB)){TranslateMessage(&msg);DispatchMessage(&msg);}} 

 

    在窗口处理函数LRESULT CALLBACK CMainWnd::MainWndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)添加对WM_LBUTTONDOWN、WM_MOUSEMOVE、WM_LBUTTONUP消息处理。IE HTML页面的滑动操作主要通过调用IHTMLElement2接口的put_scrollTop方法来控制滚动条拖动。具体代码如下：LRESULT CALLBACK CMainWnd::MainWndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam){CMainWnd *pMainWnd = (CMainWnd*)GetWindowLong(hwnd, GWL_USERDATA);HRESULT hr;IDispatch *pDisp = NULL;IHTMLElement2 *pElement = NULL;IHTMLDocument2 *pDocument = NULL;if (pMainWnd){switch (message){case WM_LBUTTONDOWN:{g_MoveFlag=true;yLastPos = HIWORD(lParam);break;}case WM_MOUSEMOVE:{SHORT yPos = HIWORD(lParam);if(pMainWnd->_pBrowser){hr = pMainWnd->_pBrowser->get_Document(&pDisp); ASSERT( SUCCEEDED( hr ) );if(SUCCEEDED( hr )){hr = pDisp->QueryInterface( IID_IHTMLDocument2, (void**)&pDocument );IHTMLDocument3 *pDocument3=NULL;hr = pDisp->QueryInterface( IID_IHTMLDocument3, (void**)&pDocument3 );IHTMLElement *pBody2=NULL;hr = pDocument3->get_documentElement(&pBody2);if(SUCCEEDED( hr )&&pBody2!=NULL){hr=pBody2->QueryInterface( IID_IHTMLElement2, (void**)&pElement );pBody2->Release();}pDocument3->Release();pDocument->Release();pDisp->Release();}}if(g_MoveFlag==true){if(pElement){long MoveTo=yTotal+(yLastPos-yPos);printf(" yPos:%d/n", yPos);printf(" MoveTo:%d/n", MoveTo);pElement->put_scrollTop(MoveTo);}}break;}case WM_LBUTTONUP:{SHORT yPos = HIWORD(lParam);yTotal+=(long)(yLastPos-yPos);if(yTotal<0)yTotal=0;if(pElement){long scroll_height=0; pElement->get_scrollHeight(&scroll_height);if(yTotal>(scroll_height-IE_WINDOW_H))yTotal=scroll_height-IE_WINDOW_H;pElement->Release();}g_MoveFlag=false;break;}// TODO Other Message}

    这样就可以生成一个支持滑动操作的WebBrowser了,你还可以重新设计IE工具栏的UI，添加前进、返回、地址输入框等，这样一个全新的IE就出现了。