Порядок выполнения

Постановка задачи

Пояснения к работе

ПРАКТИЧЕСКАЯ РАБОТА № 13

Тема Программирование для Интернет

Цель работы:Получить навыки использования компонента WebBrowser.

Начиная с пятой версии Delphi появился компонент WebBrowser который позволяет создать свой собственный браузер. Можно полностью поменять интерфейс, но принцип действия работы все равно будет, как у Internet Explorer.

Компонент WebBrowser находится на вкладке Internet, его основные свойства и методы приведены в таблице.

Компонент StatusBar – строка состояния представляет собой управляющий элемент, который отображает текущую информацию о содержимом окна, контекстные подсказки по текущему состоянию.

Разработать приложение, реализующее основные функции WEB-браузера.

1. Создать новый проект и сохранить его.

2. Добавить на форму компонент ToolBar (Win32), изменить значение свойств: Height= 28, ShowCaptions=True, Flat= True

3. Добавить на ToolBar 5 кнопок: Назад, Обновить, Стоп, Домашняя страница, Вперед, для этого повторить 5 раз следующую последовательность:

· щелкнуть правой кнопкой мыши на компоненте ToolBar;

· выбрать New Button;

· изменить размеры кнопки Width = 67,Height =21;

· вставить разделитель кнопок, щелкнув правой кнопкой на ToolBar и выбрав New Separator;

· изменить свойства Caption для кнопки.

4. Добавить на форму компоненты Edit, командную кнопку, OpenDialogs и WebBrowser.

5. Привести форму в соответствие с образцом.

6. Для того, чтобы компоненты размещались по местам после изменения размера формы, для процедуры FormResize ввести код:

Edit1.Left := 0;

Edit1.Top := ToolBar1.Height + 2;

Button1.Top := Edit1.Top;

Button1.Left := Form1.ClientWidth - Button1.Width - 2;

WebBrowser1.Left := 0;

WebBrowser1.Top := Edit1.Top + Edit1.Height + 2;

//меняем размеры некоторых компонентов

Edit1.Width := Form1.ClientWidth - Button1.Width - 4;

Button1.Height := Edit1.Height;

WebBrowser1.Width := Form1.ClientWidth;

WebBrowser1.Height := Form1.ClientHeight - (Edit1.Top + Edit1.Height + 2);

7. Для кнопки Открыть ввести код:

If OpenDialog1.Execute Then Begin

WebBrowser1.Navigate(OpenDialog1.FileName);

Edit1.Text := OpenDialog1.FileName;

WebBrowser1.Navigate(Edit1.Text); //загрузка документа

Edit1.SetFocus; End;

8. Загрузить приложение, проверить работу кнопки Открыть.

9. Для кнопок панели ввести соответствующие коды:

WebBrowser1.GoBack //назад

WebBrowser1.Stop; //остановить загрузку

WebBrowser1.Refresh ; //обновить страницу

WebBrowser1.GoHome; //на домашнюю страницу

WebBrowser1.GoForward; //вперед

10. Проверить работу приложения.

11. Добавить на форму компонент StatusBar (Win32)и изменить значение его свойства SimplePanel= True.

12. Для компонента WebBrowser1 выбрать событие OnStatusTextChange и ввести код:

StatusBar1.SimpleText := Text;

13. Добавить на форму компонент ProgressBar (Win32)и изменить значение его свойства Align=alButtom.

14. Для компонента WebBrowser1 выбрать событие OnProgressChangeи ввести код:

ProgressBar1.Max := ProgressMax;

ProgressBar1.Position := Progress;

15. Проверить работу приложения.

16. Модернизировать приложение для реализации следующих функций:

· при изменении размера формы компоненты StatusBar и ProgressBarдолжны всегда отображаться на экране.

· кнопки Назад и Вперед после загрузки приложения должны быть недоступны. Кнопка Назад получает доступ только после выбора пользователем гиперссылки в окне браузера. Кнопка Вперед получает доступ после щелчка по кнопке Назад