Программирование для Интернет - Разработка Windows-приложений в среде Borland Delphi

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

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

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

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

OffLine

Включить / выключить автономный режим

Navigate

Открыть HTML-документ

Refresh

Обновить

Stop

Остановить загрузку

GoHome

На домашнюю страницу

GoForward

Вперед

GoBack

Назад

Компонент 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 должны всегда отображаться на экране. - кнопки Назад и Вперед после загрузки приложения должны быть недоступны. Кнопка Назад получает доступ только после выбора пользователем гиперссылки в окне браузера. Кнопка Вперед получает доступ после щелчка по кнопке Назад

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

Похожие статьи




Программирование для Интернет - Разработка Windows-приложений в среде Borland Delphi

Предыдущая | Следующая