main.pas

简单几句代码实现的网 络 浏 览 器,delphi 实现.

unit main;

interface

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

type
  TMainForm = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton7: TSpeedButton;
    ToolBar2: TToolBar;
    Label1: TLabel;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    WebBrowser1: TWebBrowser;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  homepage:string;
implementation

{$R *.dfm}

procedure TMainForm.SpeedButton2Click(Sender: TObject);
var
  flags:OleVariant;
begin
    flags:=0;
    webbrowser1.Stop;
    Edit1.text:=homepage;
    webbrowser1.Navigate(widestring(Edit1.text),flags,flags,flags,flags);
end;

procedure TMainForm.FormActivate(Sender: TObject);
var
    info:array[1..100] of string;
    i:integer;
    ConfigFile:TextFile;
    flags:OleVariant;
begin
    if FileExists('netpeer.ini') then
    begin
      AssignFile(ConfigFile,'netpeer.ini');
      Reset(Configfile);
      i:=1;
      while not eof(ConfigFile) do
      begin
          Readln(ConfigFile,info[i]);
          i:=i+1;
      end;
      homepage:=info[1];
      edit1.text:=homepage;
      webbrowser1.Navigate(widestring(edit1.text),flags,flags,flags,flags);
    end;
end;

procedure TMainForm.SpeedButton3Click(Sender: TObject);
begin
    webbrowser1.Refresh;
end;

procedure TMainForm.SpeedButton4Click(Sender: TObject);
begin
    webbrowser1.Stop;
end;

procedure TMainForm.WebBrowser1DownloadBegin(Sender: TObject);
begin
    Statusbar1.SimpleText:='正在读取网页 '+Edit1.text;
end;

procedure TMainForm.WebBrowser1DownloadComplete(Sender: TObject);
begin
    Statusbar1.SimpleText:='网页 '+Edit1.text+'装载完毕.';
end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
    Webbrowser1.GoForward;
    Edit1.text:=webbrowser1.LocationURL;
end;

procedure TMainForm.SpeedButton6Click(Sender: TObject);
var
  info:array[1..100] of string;
  ConfigFile:TextFile;
  i,j:integer;
begin
  i:=1;
  AssignFile(ConfigFile,'netpeer.ini');
  if FileExists('netpeer.ini') then
  begin
      Reset(Configfile);
      while not Eof(ConfigFile) do
      begin
          Readln(ConfigFile,info[i]);
          i:=i+1;
      end;
      CloseFile(ConfigFile);
  end;
  if i=1 then
  begin
     homepage:= InputBox('主页设置', '请输入主页地址：', '');
     i:=2;
  end
  else
  begin
     homepage:= InputBox('主页设置', '请输入主页地址：', info[1]);
  end;
  info[1]:=homepage;
  Rewrite(ConfigFile);
  for j:=1 to i-1 do
      Writeln(ConfigFile,info[j]);
  CloseFile(ConfigFile);
end;

procedure TMainForm.SpeedButton5Click(Sender: TObject);
var
  Flags:OleVariant;
  opendialog1:TOpendialog;
begin
    opendialog1:=TOpendialog.Create(self);
    Opendialog1.Filter:='HTML Files(*.html;htm)|*.html;*.htm';
    if Opendialog1.Execute then
    begin
        Edit1.text:=opendialog1.filename;
        Flags:=0;
        webbrowser1.Navigate(widestring(Edit1.text),Flags,Flags,Flags,Flags);
    end;
end;

procedure TMainForm.SpeedButton7Click(Sender: TObject);
begin
    Close;
end;

procedure TMainForm.Edit1Enter(Sender: TObject);
var
    Flags:OleVariant;
begin
    if Edit1.Text<>''  then
    begin
        Flags:=0;
        Webbrowser1.Navigate(widestring(Edit1.text),flags,flags,flags,flags);
        Edit1.SetFocus;
    end;
end;

end.