用Visual C＋＋开发简易浏览器

　随着Internet的持续升温,Web类应用软件得到广泛应用,有越来越多的软件具有了Web特性,我们的很多应用开发往往也需要具有Web浏览功能。以下就让我们讨论一下怎样实现一个具有基本浏览功能的Web浏览器。

　　在Visual C＋＋5.0的Components and Controls Gallery中有一个Web Browser控件,利用这个控件,我们就可以实现一个小型的Web浏览器。通过如下方法把它加入到一个项目中。首先创建一个项目(可以是一个SDI Application),然后打开Components and Controls Gallery对话框,在Components and Controls Gallery对话框中选择Registered ActiveX Control。在控件列表中选择插入Microsoft Web Browser Control，插入这个控件将在项目中自动加入CWebBrowser类，这个类将实现IWebBrowser接口的各个功能。IWebBrowser的几个重要函数说明如下:

refresh	重新装载文件
stop	停止打开文件
navigate	打开指定的html文件
goback	打开历史表中的上一项
goforward	打开历史表中的下一项
gohome	打开home或start page.

　　插入Web Browser控件后,我们先在视图类(CMyBrowserView)中加入一个CWebBrowser类型的成员变量m—browserControl,然后在视图类创建时,生成Web Browser控件并初始化它。具体实现如下:

　　int CMyBrowserView::OnCreate(LPCREATESTRUCT lpCreateStruct)

　　{ if (CView::OnCreate(lpCreateStruct) == －1)

　　 return －1;

　　 m—browserControl.Create (″Browser″, WS—VISIBLE, CRect

　　 (0,0,150,150), this, ID—BROWSER—CONTROL);

　　 return 0;}

　　在视图(View)改变大小时,同时改变Web Browser控件大小。

　　void CMyBrowserView::OnSize(UINT nType, int cx, int cy)

　　{ CView::OnSize(nType, cx, cy);

　　 if (nType != SIZE—MINIMIZED)

　　 { try {

　　 m—browserControl.SetWidth (cx);

　　 m—browserControl.SetHeight (cy);}

　　 catch (COleDispatchException＊ r)

　　 { CString str;

　　 str.Format (″Error <％d> in <％s>: <％s>″, r－>m—wCode,

　　 r－>m—strSource, r－>m—strDescription);

　　 ::AfxMessageBox (str);

　　 r－>Delete ();

　　 } catch (COleException＊ pE)

　　 {::AfxMessageBox (″IDispatch Error with Browser Control.\n″);

　　 pE－>Delete (); }

　　 m—browserControl.UpdateWindow (); } }

　　至此,我们已经创建了Web Browser控件,现在,我们可以来实现具体的浏览工作了。在工具条中加入前进,后退,刷新,打开,停止的按钮。并在视图类(CMyBrowserView)中加入它们的命令处理函数。

　　void CMyBrowserView::FileOpen()

　　{ CURlDialog dlg;//显示一个对话框,供填入URL地址

　　 if (IDOK == dlg.DoModal ())

　　 { try {

　　 m—browserControl.Navigate (dlg.m—URL,NULL,NULL,NULL,NULL);}

　　 catch (COleDispatchException＊ r)

　　 { …..

　　 r－>Delete ();

　　 } catch (COleException＊ pE)

　　 {::AfxMessageBox (″IDispatch Error with Browser Control.\n″); pE－>Delete ();} } }

　　//刷新

　　void CMyBrowserView::OnRefresh()

　　{ try { COleVariant level;

　　 level = (short)3;// Means Refresh Completely.

　　 m—browserControl.Refresh2 (level);

　　 } catch (COleDispatchException＊ r)

　　 { …..

　　 r－>Delete ();

　　 } catch (COleException＊ pE)

　　 {::AfxMessageBox (″IDispatch Error with Browser Control.\n″); pE－>Delete (); } }

　　//搜索

　　void CMyBrowserView::OnWebSearch()

　　{ m—browserControl.GoSearch();}

　　//返回上一页

　　void CMyBrowserView::OnWebBack()

　　{ m—browserControl.GoBack(); }

　　//跳到下一页

　　void CMyBrowserView::OnWebForward()

　　{ m—browserControl.GoForward(); }

　　至此，我们已完成一个Web浏览器的框架,通过调用CWebBrowser类的其他成员函数，我们还可以实现其他的一些Web浏览功能。