keke blogging

获得WebBrowser控件中的HTML源码

                                      

这里介绍如何用程序的方法获得WebBrowser控件中的HTML的源代码，并可以通过修改源代码内容来修改页面内容(注意:不是显示一个新的页面)。 

    首先要加入WebBrowser控件，加入控件的方面我就不说了。获得源代码方法有两种： 

一、方法1（严格说，这个方法只不过是调用WebBrowser自己的菜单命令"查看源文件而已"，并非我们所希望的）
关键代码： 

#include "mshtmcid.h"
void CHtmlView::OnMethod1() 
{
    CWnd* pWnd = NULL; 

    CWnd* pWndShell = m_browser.GetWindow(GW_CHILD); // get the webbrowser window pointer

    if (pWndShell) 
    { 
       pWnd = pWndShell->GetWindow(GW_CHILD);  //get the child window pointer
    } 
    
    if (pWnd != NULL) 
    { 
       WPARAM wParam = MAKEWPARAM(IDM_VIEWSOURCE, 1);  //convert to unsigned 32 bit value and pass it to wparam
       pWnd->SendMessage(WM_COMMAND, wParam, (LPARAM)this->m_hWnd); //cool send a message to retreive the source.
    }         
}

二、方法2 

   原理在于取得IPersistStreamInit接口指针，然后把网页写到IStream流中去。
关键代码： 

#include "mshtml.h"
//在SourceView中填写HtmlView中网页的源程序
void CMainFrame::OnMethod2() 
{
    IHTMLDocument2 *pHTMLDocument=NULL;
    IPersistStreamInit *pPSI=NULL;

    IStream *pStream=NULL; 
    HGLOBAL  hHTMLText; 

    if  (!(pHTMLDocument = (IHTMLDocument2*)m_pHtmlView->m_browser.GetDocument()))
    return;
    
    if  (FAILED(pHTMLDocument->QueryInterface(&pPSI)))
    {
//   pHTMLDocument->Release();
    return;
    }    

    hHTMLText = GlobalAlloc(GMEM_FIXED, MAX_SIZE);
    CreateStreamOnHGlobal(hHTMLText, TRUE, &pStream); 
    pPSI->Save(pStream, FALSE); 

//   m_pSourceView->SetWindowText((char*)hHTMLText);

    long nEditLength = m_pSourceView->GetEditCtrl().GetWindowTextLength();
    m_pSourceView->GetEditCtrl().SetSel(0, nEditLength);
    m_pSourceView->GetEditCtrl().ReplaceSel("");
    char *pText = (char*)hHTMLText;
    long lHtmlLength = strlen(pText);
    CString str("");
    long n = 0;
    for    (long i=0; i < lHtmlLength; i++)
    {
        if  (*pText != 0x0d && *pText != 0x0a)
        {
            str += *pText;
            pText++;
        }
        else
        {
            pText++;
            if  (*pText == 0x0a)
            pText++;
            str += "\r\n";
            nEditLength = m_pSourceView->GetEditCtrl().GetWindowTextLength();
            m_pSourceView->GetEditCtrl().SetSel(nEditLength, nEditLength);
            m_pSourceView->GetEditCtrl().ReplaceSel(str);
            str.Empty();
        }
    }

    pStream->Release();
    pPSI->Release();
//   pHTMLDocument->Release();
}

三、修改HTML源代码以改变网页的显示 

    这部分比较有意思，可以当作是一个小的HTML编辑器，看看预演效果。特别的不是显示一个新文件，而是修改原来的HTML文件。
关键代码： 

//根据SourceView里的HTML文本改变HtmlView里的显示
void CMainFrame::OnChangehtml() 
{
    IHTMLDocument2 *pHTMLDocument=NULL;
    IPersistStreamInit *pPSI=NULL;

    IStream *pStream=NULL; 
    HGLOBAL  hHTMLText; 

    if    (!(pHTMLDocument = (IHTMLDocument2*)m_pHtmlView->m_browser.GetDocument()))
        return;
    
    if    (FAILED(pHTMLDocument->QueryInterface(&pPSI)))
    {
//        pHTMLDocument->Release();
        return;
    }    

    pHTMLDocument->clear();
    pPSI->InitNew();

    LPCTSTR strText = m_pSourceView->LockBuffer();
    DWORD dwLength = strlen(strText);
    hHTMLText = GlobalAlloc(GMEM_FIXED, dwLength);
    memset(hHTMLText, 0, dwLength);
    memcpy(hHTMLText, strText, dwLength);
    m_pSourceView->UnlockBuffer();
    CreateStreamOnHGlobal(hHTMLText, TRUE, &pStream); 
    ULARGE_INTEGER libNewSize;
    libNewSize.QuadPart = dwLength;
    pStream->SetSize(libNewSize);这一步必须要，否则显示时会有多余字符出现
    pPSI->Load(pStream); 

    pStream->Release();
    pPSI->Release();    
//    pHTMLDocument->Release();
}

    有时侯不能显示出网页而显示的是源码文本，比如微软网站的首页就是这种情况。把源码中的这句话 < META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1" />去掉就可以了。原因不明。如果您知道原因请告诉我。

还有一种方法： 
 IHTMLDocument2 *pNewDoc = NULL;

          pMC->QueryInterface(IID_IHTMLDocument,
                              (LPVOID *) &pNewDoc);
          if (pNewDoc)
          {
            // do anything with pNewDoc, in this case
            // get the body innerText.
             IHTMLElementCollection *pAll;
             pNewDoc->get_all(&pAll);


             //得到源码
             IDispatch   *pdisp;
             HRESULT hr;
             BSTR bstrTagName;
             bstrTagName = SysAllocString(L"HTML");
             VARIANT  varTag;
             varTag.vt=VT_BSTR;
             varTag.bstrVal=bstrTagName;
             pAll->tags(varTag ,&pdisp) ;
             SysFreeString(bstrTagName);

            IHTMLElementCollection* pElemColl;
            pdisp->QueryInterface( IID_IHTMLElementCollection, (LPVOID*)&pElemColl );
            void *pElem;
            long cElems = -1;
            pElemColl->get_length( &cElems );
            IDispatch* pElemDisp = NULL;
            if (cElems>=0)
            {

                VARIANT vIndex;
                vIndex.vt = VT_UINT;
                vIndex.lVal = 0;
                VARIANT var2 = { 0 };
                pElemColl->item( vIndex, var2, &pElemDisp );
                if ( SUCCEEDED(pElemDisp->QueryInterface(IID_IHTMLElement, (void**)&pElem )))
                {
                    BSTR strText;
                    ((IHTMLElement*)pElem)->get_outerHTML(&strText);
                    ((IHTMLElement*)pElem)->Release();
                    SysFreeString(strText);
                }
                pElemDisp->Release();

             }
             pElemColl->Release();
             pdisp->Release();
             pAll->Release();

【作者: keke7】【访问统计:】【2006年03月10日 星期五 22:59】【 加入博采】【打印】