ieunit.~pas

这是一个间歇的IE小程序,希望能给刚刚学习DELPHI和朋友提供一点帮助!

unit IEUnit;

interface

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

type
  TfrmIE = class(TForm)
    WebBrowser1: TWebBrowser;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ToolBar1: TToolBar;
    BackToolButton: TToolButton;
    AheadToolButton: TToolButton;
    RefurbishToolButton: TToolButton;
    StopToolButton: TToolButton;
    MainpageToolButton: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    TcpServer1: TTcpServer;
    TcpClient1: TTcpClient;
    procedure Button1Click(Sender: TObject);
    procedure BackToolButtonClick(Sender: TObject);
    procedure AheadToolButtonClick(Sender: TObject);
    procedure RefurbishToolButtonClick(Sender: TObject);
    procedure StopToolButtonClick(Sender: TObject);
    procedure MainpageToolButtonClick(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton2Click(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIE: TfrmIE;

implementation

uses aaa,ping;

{$R *.DFM}

procedure TfrmIE.Button1Click(Sender: TObject);
begin
     WebBrowser1.Navigate (Edit1.Text );  //链接到指定的网页
    // self.StatusBar1.Panels[0].Text :='您当前的链接是：'+Edit1.Text ; 
end;

procedure TfrmIE.BackToolButtonClick(Sender: TObject);
begin
    try
       WebBrowser1.GoBack ; //后退
      // self.BackToolButton.Enabled :=false;
    except
       {on EoleException do showmessage('已经到最早的历史记录了！');

       //showmessage('666');
       // on E: Exception do showmessage(E.Message);     //ErrorDialog(E.Message, E.HelpContext);
       // exit;
    else
        showmessage('aaa');
        exit;  }
        on E:Exception do showmessage(E.Message);

    end;
end;

procedure TfrmIE.AheadToolButtonClick(Sender: TObject);
begin                        
    try          
        WebBrowser1.GoForward;//转到下一页
    except
        showmessage('已经到最后的历史记录了！');
        exit;
    end;
end;

procedure TfrmIE.RefurbishToolButtonClick(Sender: TObject);
begin
     WebBrowser1.Refresh ; //刷新页面
end;

procedure TfrmIE.StopToolButtonClick(Sender: TObject);
begin
     WebBrowser1.Stop ; //停止
end;

procedure TfrmIE.MainpageToolButtonClick(Sender: TObject);
begin
     WebBrowser1.Navigate ('www.hao123.com');
   // self.WebBrowser1.GoHome ;
end;

procedure TfrmIE.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
      Button1.Click; 
end;

procedure TfrmIE.ToolButton2Click(Sender: TObject);
begin
        //frmping.ShowModal ;
        //aaa.Form1.ShowModal ;
        ping.frmPing.ShowModal; 
end;

procedure TfrmIE.WebBrowser1DownloadBegin(Sender: TObject);
begin
       StatusBar1.Panels[0].Text :='正在连接:'+Edit1.Text ;
end;

procedure TfrmIE.WebBrowser1DownloadComplete(Sender: TObject);
begin
         StatusBar1.Panels[0].Text :='完成'+WebBrowser1.LocationURL ;
         frmIE.Caption :=self.TcpServer1.GetNamePath ;

end;

procedure TfrmIE.FormCreate(Sender: TObject);
begin
    frmIE.Caption :='简易IE浏览器......';
end;

end.