Delphi实例之一个简易的浏览器的实现

Delphi实例之一个简易的浏览器的实现

Delphi7的WebBrowser组件提供了很多不错的网页设计的功能，下面做一个简单的浏览器。组件很简单按照下面摆放就行了。

这是运行后的效果

源代码

主页面

 unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, OleCtrls, SHDocVw,
   ImgList, ToolWin;

 type
   TForm1 = class(TForm)
     ToolBar1: TToolBar;
     StatusBar1: TStatusBar;
     ImageList1: TImageList;
     WebBrowser1: TWebBrowser;
     Panel1: TPanel;
     BackButton: TToolButton;
     ForwardButton: TToolButton;
     ToolButton3: TToolButton;
     RefreshButton: TToolButton;
     Stopbutton: TToolButton;
     HomeButton: TToolButton;
     Label1: TLabel;
     Edit1: TEdit;
     GotoButton: TBitBtn;
     procedure GotoButtonClick(Sender: TObject);
     procedure WebBrowser1DownloadBegin(Sender: TObject);
     procedure WebBrowser1DownloadComplete(Sender: TObject);
     procedure BackButtonClick(Sender: TObject);
     procedure ForwardButtonClick(Sender: TObject);
     procedure StopbuttonClick(Sender: TObject);
     procedure RefreshButtonClick(Sender: TObject);
     procedure HomeButtonClick(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.GotoButtonClick(Sender: TObject);
 begin
   WebBrowser1.Navigate(Edit1.Text); {连接到指定地址}
 end;

 procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
 begin
   Form1.Caption:=Form1.Caption+'  '+Edit1.Text+'……';
   StatusBar1.SimpleText:='正在连接地址： '+Edit1.Text; {状态栏显示正在连接的地址}
 end;

 procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
 begin
   Form1.Caption:=Form1.Caption+'  '+WebBrowser1.LocationURL;
   StatusBar1.SimpleText:='完成' +WebBrowser1.LocationURL;{连接完成}
 end;

 procedure TForm1.BackButtonClick(Sender: TObject);
 begin
   try
     WebBrowser1.GoBack;                    {返回}
   except
     ShowMessage('已经达到最早历史记录');
     exit;
   end;
 end;

 procedure TForm1.ForwardButtonClick(Sender: TObject);
 begin
   try
     WebBrowser1.GoForward;                 {前进}
   except
     ShowMessage('已经达到最新历史记录');
     exit;
   end;
 end;

 procedure TForm1.StopbuttonClick(Sender: TObject);
 begin
   WebBrowser1.Stop;                       {停止}
 end;

 procedure TForm1.RefreshButtonClick(Sender: TObject);
 begin
   WebBrowser1.Refresh;                     {刷新}
 end;

 procedure TForm1.HomeButtonClick(Sender: TObject);
 begin
   WebBrowser1.GoHome;
   Edit1.Text:='http://www.cnblogs.com/Chaobs';    {主页}
 end;

 end.

很简单吧！

Delphi的WebBrowser实际上是调用了mshtml.dll里的函数，而mshtml.dll就是所谓的IE内核Triend，换句话说，这个浏览器和当前电脑上的IE浏览器公用同一内核。

鉴于国内大部分用户电脑上装的都是IE8、9，个人认为下载一个IE11（IE11的速度绝对比得上Chrome），然后提出mshtml.dll，放到文件夹下，这样就能够有更好的打开速度。