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，放到文件夹下，这样就能够有更好的打开速度。