Задание. Создать на языке программирования Delphi простой веб-браузер

Создать на языке программирования Delphi простой веб-браузер. С установленного ранее веб-сервера запросите и получите веб-страницу с рисунками, текстом и ссылками. Ссылки должны работать, то есть щелчок мышью по ссылке вызывает загрузку и отображение соответствующей страницы. У браузера должна быть адресная строка, в которую заносится адрес URL.

Протокол

Взаимодействие осуществляется следующим образом:

· браузер передает серверу Apache запрос на открытие страницы index.html;

· сервер Apache передает браузеру html – код страницы;

· браузер обрабатывает html – код, таким образом открывая страницу;

· все дальнейшие действия осуществляются в браузере локально, без обращения к серверу Apache;

· при переходе по ссылке браузер передает серверу Apache запрос на открытие определенной страницы;

· сервер Apache передает браузеру html – код этой страницы;

· браузер обрабатывает html – код, таким образом открывая страницу.

В Delphi существует специальный компонент, для работы с WWW по протоколу HTTP, WebBrowser типа TWebBrowser. Этот компонент существенно облегчает работу с WEB-серверами, т.к. использует движок Microsoft Internet Explorer, установленный в системе. Для открытия страницы необходимо лишь вызвать процедуру Navigate2 и передать ей в качестве параметра URL-адрес страницы.

На форме желательно использовать следующие компоненты:

· WebBrowser1 – компонент для работы с WEB-страницами;

· Edit1 – текстовое поле для ввода URL-адреса страницы;

· BitBtn1 – кнопка перехода на введенную страницу;

· ToolBar1 – панель, содержащая поле для ввода URL-адреса и кнопку перехода;

· StatusBar1 – статусная строка для вывода информации;

· ProgressBar1 – для отображения текущего состояние загрузки страницы;

· OpenDialog1 – диалог открытия файла;

· меню.

Выполнение работы:

1. Создали новый проект.

2. На форму добавили компонент WebBrowser и компонент CoolBar.

3. Свойство "Align" для WebBrowser изменили на "alClient".

4. На компонент CoolBar добавили ToolBar, ComboBox, StatusBar и ProgresBar.

5. Чтобы StatusBar и ProgresBar работали, в обработчиках событий объекта WebBrowser1 OnProgressChange и OnStatusTextChange пишем:

//Задаются максимальное значение и значение позиции (хода) загрузки

//для ProgressBar1

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

begin

ProgressBar1.Max:=ProgressMax;

ProgressBar1.Position:=Progress;

end;

//Вывожу информацию о ходе загрузки страницы в StatusBar1.

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;

const Text: WideString);

begin

StatusBar1.SimpleText:=Text;

end;

6. В свойствах ComboBox событие OnKeyPress создали процедуру для перехода по введенному адресу по клавише Enter:

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

var

a:string;

begin

if Key=#13 then

begin

WebBrowser1.Navigate(ComboBox1.Text);

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

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

end;

end;

7. Для того, чтобы при завершении загрузки страницы в ComboBox записывался URL-адрес страницы, в событие OnNavigateComplete2 компонента WebBrowser добавили:

procedure TBrowser.WebBrowser1NavigateComplete2(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

ComboBox1.Text:=WebBrowser1.LocationURL;

end;

8. Для компонента CoolBar свойство "AutoSize" изменили на "true"

9. В свойствахToolBar1 изменили свойства "AutoSize", "ShowCaption" и "Flat" на "true" (все они по умолчанию false).

10. Добавили кнопки на ToolBar (Щелчок правой кнопкой мыши ->"New Button").

11. Добавили на форму компонент "OpenDialog" и "MainMenu"

12. С помощью компонента "MainMenu" создали меню:

13. Главная форма обрела следующий вид:

14. Для всех кнопок запрограммировали действия:

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