Unit1.pas

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls, ToolWin, ImgList, Menus,

MSHTML, ActiveX;

type

TBrowser = class(TForm)

WebBrowser1: TWebBrowser;

CoolBar1: TCoolBar;

ToolBar1: TToolBar;

ComboBox1: TComboBox;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

OpenDialog1: TOpenDialog;

StatusBar1: TStatusBar;

ProgressBar1: TProgressBar;

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N11: TMenuItem;

ToolButton7: TToolButton;

N2: TMenuItem;

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure ToolButton4Click(Sender: TObject);

procedure ToolButton5Click(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

procedure WebBrowser1StatusTextChange(Sender: TObject;

const Text: WideString);

procedure WebBrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

procedure ToolButton7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure WebBrowser1NavigateComplete2(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Browser: TBrowser;

implementation

uses Unit3;

{$R *.dfm}

procedure TBrowser.ToolButton1Click(Sender: TObject); //кнопка Открыть

begin

if OpenDialog1.Execute then // Если OpenDialog1 запущен, то

begin

WebBrowser1.Navigate(OpenDialog1.FileName);//перейти к указанному файлу

ComboBox1.Text:=OpenDialog1.FileName; //присвоить комбо бокс путь к файлу

end;

end;

procedure TBrowser.ToolButton2Click(Sender: TObject); //Назад

begin

WebBrowser1.GoBack;

end;

procedure TBrowser.ToolButton3Click(Sender: TObject); //Вперед

begin

WebBrowser1.GoForward;

end;

procedure TBrowser.ToolButton4Click(Sender: TObject); //Стоп

begin

WebBrowser1.Stop;

end;

procedure TBrowser.ToolButton5Click(Sender: TObject); //Обновить

begin

WebBrowser1.Refresh;

end;

procedure TBrowser.ToolButton6Click(Sender: TObject); //Печать

var

PostData, Headers:OLEvariant;

begin

// команда через OLE ядру IE

WebBrowser1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT,PostData, Headers);

end;

procedure TBrowser.WebBrowser1StatusTextChange(Sender: TObject; //Статус бар

const Text: WideString);

begin

StatusBar1.SimpleText:=Text; //присваиваем переменную "Text" (в ней хранится текст подсказки)

end;

procedure TBrowser.WebBrowser1ProgressChange(Sender: TObject; Progress,

//событие для прогресс бар

ProgressMax: Integer);

begin

ProgressBar1.Max:=ProgressMax;// созданному индикатору загрузки присваиваем

//максимальное значение (ProgressMax) и текущее значение (Progress)

ProgressBar1.Position:=Progress;

end;

procedure TBrowser.N4Click(Sender: TObject); // Открыть (меню)

begin

if OpenDialog1.Execute then

begin

WebBrowser1.Navigate(OpenDialog1.FileName); //перейти к указанному файлу

ComboBox1.Text:=OpenDialog1.FileName; //присвоить комбо бокс путь к файлу

end;

end;

procedure TBrowser.N5Click(Sender: TObject); //Выход (меню-файл)

begin

Close;

end;

procedure TBrowser.N11Click(Sender: TObject); //О программе

begin

Form3.Show; //Показать Form3

end;

procedure TBrowser.ComboBox1KeyPress(Sender: TObject; var Key: Char);

//событие OnKeyPress

//переход по введенному адресу по клавише Enter

var

a:string;

begin

if Key=#13 then

begin

WebBrowser1.Navigate(ComboBox1.Text);

a:=ComboBox1.text; // переменной а присваиваем текст из комбо бокс

ComboBox1.Items.Add(a); //добавляем содержимое переменной в список

end;

end;

procedure TBrowser.ToolButton7Click(Sender: TObject); //Сохранить

begin

WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);//Сохраняем содержимое WebBrowser1

end;

procedure TBrowser.N2Click(Sender: TObject); //Сохранить(меню-файл)

begin

WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);

end;

procedure TBrowser.WebBrowser1NavigateComplete2(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

ComboBox1.Text:=WebBrowser1.LocationURL;//при завершении загрузки страницы в комбо бокс записывается URL страницы

end;

end.

Поиск по сайту: