Создание браузера в Delphi

Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

филиал федерального государственного бюджетного образовательного учреждения высшего профессионального образования

«Алтайский государственный университет» в г. Бийске

Курсовая работа

По дисциплине: «Прикладное программирование»

На тему: «Создание браузера в Delphi»

Выполнил:

Студент 2 курса

Крюков А.А.

Проверил:

Сычев И.А.

Бийск 2015

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1. ОСНОВНЫЕ ВОЗМОЖНОСТИ СРЕДЫ DELPHI

2. РЕАЛИЗАЦИЯ ПРОГРАММЫ

ЗАКЛЮЧЕНИЕ

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

ВВЕДЕНИЕ

Актуальность темы: Создание нового WEB браузера Delphi актуально. В современном мире человек зависим от социальных сетей и Интернет-ресурсов. А использование WEB браузера Delphi гораздо облегчит и ускорит поиск необходимой информации и поможет быстрее справиться с поставленными задачами, ведь он очень быстр и прост в использование.

Прикладное программирование принадлежит к числу ведущих компьютерных технологий и используется в большинстве языков программирования. Основная цель - повышение эффективности разработки программ.

Объект исследования: В качестве объекта исследования, будет выступать среда прикладного программирования Delphi.

Предмет исследований: Основные возможности среды программирования Delphi, его компонентов и их свойств, для создания браузера.

Цель курсовой работы: Создать браузер в Delphi.

Задачи:

1. Изучить литературные источники по теме работы.

2. Проанализировать основные возможности среды программирования Delphi для создания программы.

3. Реализовать и протестировать программу браузер.

Методы исследования:

Изучение и анализ литературных источников, источников сети Интернет, технической документации.

1. ОСНОВНЫЕ ВОЗМОЖНОСТИ СРЕДЫ DELPHI

Delphi -- результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль.[18, стр.1]

Ниже перечислены основные составные части Delphi:

1. Дизайнер Форм (Form Designer)

Рисунок 1 Дизайнер Форм

В дизайнере форм создается визуальный интерфейс программы. Он достаточно прост в использовании. Первоначально состоит из одного пустого окна, в который мы добавляем все возможные компоненты.[3, стр. 288]

2. Окно редактора Исходного текста (Editor Window)

Рисунок 2 Окно редактора Исходного текста

В окне редактора Исходного текста мы создаем логику управления программой, прописываем коды компонентов.

3. Палитра компонентов (Component Palette)

Рисунок 3 Палитра компонентов

Палитра компонентов позволяет нам выбрать нужные объекты и разместить их на Дизайнере Форм. Для использования палитры компонентов, первый раз кликаем на нужном компоненте и второй раз на Дизайнере Форм. Выбранный нами объект появится на Форме.[9, стр. 496]

Палитра компонентов использует группировку объектов. Сверху палитры находится набор закладок - Standart, Additional, Dialogs и т.д. Если мы кликнем на одну из вкладок , то перейдем на следующую страницу Палитры компонентов

4. Инспектор объектов (Object Inspector)

Рисунок 4 Инспектор объектов

Окно ObjectInspector (Рис. 4) окно редактора свойств объектов, предназначено для редактирования значений свойств объектов. В терминологии визуального программирования объекты - это диалоговые окна и элементы управления (поля ввода и вывода, командные кнопки, переключатели и др. ) Свойства объекта - это характеристика, определяющие вид, положение и поведение объекта. Например, свойства Width и Height задают размер (ширину и высоту) формы, свойства Top и Loft - положение формы на экране. [5, стр. 20]

Вкладка «Properties» служит для установки нужных свойств компонента, вкладка «Events» позволяет определить реакцию компонента на то или иное событие. Совокупность cвойств отображает видимую сторону компонента: положение относительно левого верхнего угла рабочей области формы, его размеры и цвет, шрифт и текст надписи на нем и т. п. Совокупность событий - его поведенческую сторону: будет ли компонент реагировать на щелчок мыши или на нажатие клавиш, как он будет вести себя в момент появления на экране или в момент изменения размеров окна.

5. Обозреватель дерева объектов (Object TreeView)

Рисунок 5 Обозреватель дерева объектов

С помощью дерева объектов легко находить нужный компонент, т.к. они расположены в виде древа. Если какой-то компонент полностью перекрыт другим, то в дереве можно выделить верхний компонент, а потом легко найти тот, который находится ниже.[13, стр. 162]

Рассмотрим компоненты, которые будут использованы для создания браузера.

Таблица 1 Компоненты Delphi

Пиктограмма	Имя	Назначение
	MainMenu	Главное меню программы. Компонент способен создавать сложные иерархические меню. [7, стр. 206]. Это невизуальный компонент, т.е. место его размещения на форме в процессе проектирования не имеет никакого значения для пользователя -- он все равно увидит не сам компонент, а только меню, сгенерированное им.
	ImageList	Компонент ImageList представляет собой набор изображений одинаковых размеров, на которые можно ссылаться по индексам, начинающимся с 0. Изображения в компоненте ImageList могут быть загружены в процессе проектирования с помощью редактора списков изображений. Окно редактора, представленное на рис.6 , вызывается двойным щелчком на компоненте ImageList или щелчком правой кнопки мыши и выбором команды контекстного меню ImageList Editor. [7, стр 187]
	ProgressBar	Индикатор процесса. С помощью этого процесса можно отображать ход исполнения длительного процесса.[15, стр. 463]
	StatusBar	Панель статуса. Предназначена для размещения разного рода служебной информации в окнах редактирования.
	ToolBar	Инструментальная панель. Этот компонент служит контейнером для командных кнопок и способен автоматически изменять свои размеры и положение при добавлении кнопок. Если поместить компонент ToolBar на форму, то он расположится вверху, поскольку его свойство Align равно alTop(по умолчанию).
	CoolBar	Инструментальная панель. В отличии от ToolBar используется для размещения стандартных интерфейсных компонентов.
	OpenDialog	Не визуальный компонент, предназначенный для поддержки операции открытия файлов.
	ComboBox	Комбинированный список представляет собой симбиоз строки ввода и обычного списка, выпадающего по щелчку.[7, стр.186] Компонент ComboBox позволяет пользователю выбрать один элемент в раскрывающемся списке. Компонент ComboBox может быть статическим или редактируемым. Редактируемый компонент ComboBox позволяет вводить текст непосредственно в текстовое поле в начале списка. Если список, открываясь, достигает конца документа, то он открывается не вниз, а вверх. В редактируемом компоненте ComboBox областью щелчка является только кнопка, а текстовое поле -- нет. В статическом ComboBox область щелчка состоит из кнопки и текстового поля. Эта область реагирует на щелчок, открывая или закрывая раскрывающийся список.
	WebBrowser	Это Microsoft's Internet Explorer в виде ActiveX контроллера. Его можно размещать на форме наравне с другими компонентами. Компонент WebBrowser представляет собой окно небольшого браузера, в котором можно отображать содержимое какой-нибудь html-страницы.



Рисунок 6 Окно редактора списков изображений

Перечислим некоторые общие свойства компонентов.

Свойства компонента так же, как и свойства формы, можно изменить при помощи Object Inspector. Для того чтобы свойства требуемого компонента были выведены в окне Object Inspector, нужно выделить этот компонент.

1. Enabled - определяет, активен ли компонент.

2. Height - высота.

3. Hint - всплывающая подсказка.

4. Left - положение компонент относительно левого края формы.

5. Name - имя компонента.

6. Top - отступ от верха формы.

7. Visible - определяет видимость объекта.

8. Widht - ширина.

9. Caption - Отображаемый текст.[11, стр. 160]

2. РЕАЛИЗАЦИЯ ПРОГРАММЫ

Целью курсовой работы, является создания WEB браузера с помощь которого можно посещать страницы Интернета.

Исходя из анализа существующих браузеров, программа должна содержать следующие функции :

- набор стандартных кнопок (открыть, назад, вперед, обновить, остановить)

- должна содержать строку ввода адреса домена.

- строку загрузки страницы и строку состояния;

- интерфейс, удобный для восприятия;

После определения основных требований можно приступить к определению общей структуры программы.

Программа должна быть простой и удобной для пользования людям, как молодым, так и пожилого возраста, поэтому она должна содержать простой для восприятия интерфейс, поэтому в ней не будет большинства функций, которые содержит множество существующих браузеров.

Браузер, это обычное стандартное окно содержащее:

- кнопку «Назад» для возврата на предыдущую страницу

- кнопку «Вперед» для просмотра страницы, на которой находился пользователь до того, как нажал кнопку «Назад».

- кнопку «Стоп» для остановки загрузки страницы.

- кнопку «Обновить» для обновления загруженной страницы.

Кроме кнопок браузер содержит строку для ввода адреса домена «ComboBox». Содержит саму область, в которой будет загружаться нужная пользователю страница «WebBrowser».Под загружаемой страницей находится строка, которая отображает статус загрузку «ProgressBar». А ниже находится строка состояния, показывающая действия, происходящие во время загрузки страницы «StatusBar».

Для создания браузера используем компонент WebBrowser из вкладки Internet. Выделяем «WebBrowser» и переходим в «ObjectInspector». Щелкаем по свойству «Align» и в выпадающем списке выбераем «alClient». «WebBrowser» должен растянуться на все свободное место формы.

После этого бросаем на форму «CoolBar», который находится на закладке «Win32» палитры компонентов. Это панелька, которая должна выровняться по верхнему краю на форме.

Добавляем на CoolBar1 панель «ToolBar» из закладки «Win32» и «ComboBox» из закладки «Standart» палитры компонентов. После этого нужно выделить CoolBar1 и перейти в ObjectInspector. Здесь ты должен изменить строку «AutoSize» на «true».

Размещаем на форме компонент MainMenu из вкладки Standart. В нем прописываем вкладки «Файл», «Справка». Во вкладке «Файл» в выпадающем списке добавляем такие пункты, как «Открыть», «Сохранить как», «Настройки печати», «Печать» и «Выход».

Так же, размещаем на форме компоненты «OpenDialog» из вкладки «Dialogs».

Далее продолжим о каждом компоненте подробне

Выделяем компонент «ComboBox» и переходим в «ObjectInspector». Здесь во вкладке «Events», делаем двойной клик на строке «OneKeyDown» - Delphi создаст процедуру. Она будет выполняться каждый раз, когда мы будем вводить новый адрес в поле «ComboBox». Вписываем в процедуру код:

if Key = VK_RETURN then

WebBrowser1.Navigate(ComboBox1.Text);

Вписываем данную часть кода между «Begin» и «end». Все остальное Delphi сделает за нас. Подробнее этот код будет означать, что если код нажатой клавиши будет означать «Enter», то компонент «WebBrowser» перейдет на адрес указанный в «ComboBox».

Теперь делаем двойной клик на кнопке «Открыть», на вкладке «Файл», в ней прописываем процедуру:

procedure TForm1.N3Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

WebBrowser1.Navigate(OpenDialog1.FileName);

ComboBox1.Text := OpenDialog1.FileName;

end;

end;

Подробнее это будет означать:

Начало

Если OpenDialog1 запущен, то

Начало

WebBrowser1.Перейти на указанное имя файла в OpenDialog1;

ComboBox1.Тексту присвоить значение OpenDialog1.ИмяФайла;

Конец;

Конец;

Теперь с помощью кнопки «Открыть» мы можем открывать любые файлы сохраненные в памяти.

Во вкладке «Выход» прописываем строчу кода:

begin

close;

end;

При её нажатии программа будет закрываться.

Во вкладке «Справка» щелкаем два раза на подпункт «Об авторе», и с помощью процедуры «ShowMessage» прописываем автора программы. Теперь при нажатии этой кнопки будет всплывать новое диалоговое окно.

Рисунок 7 Справка - Об авторе

Теперь займемся кнопками.

Нажимаем правой кнопкой мыши на компонент «ToolBar», который мы добавили ранее. В всплывающем меню выбираем пункт «NewButton». Данную операцию проделываем четыре раза. Именно столько кнопок нам понадобится, для создания процедур «Назад», «Вперед», «Остановить» и «Обновить».

Далее придадим этим кнопкам более приятный вид. Для этого найдем в интернете иконки формата .bmp с расширением 24 на 24 пикселя.

Добавим на нашу форму компонент «ImageList», и добавим в него эти иконки, заранее пронумеровав, в том порядке, в котором расположены кнопки на панели.

Выделяем компонент «ToolBar» и переходим в «ObjectInspector». Там в свойстве «Image» выбираем пункт «ImageList».

Теперь опишем процедура для каждой кнопки.

Для кнопки «Назад» прописываем процедуру:

procedure TForm1.ToolButton1Click(Sender: TObject);

begin

WebBrowser1.GoBack

end;

end.

Тут ничего не нужно объяснять, мы просто заставляем «WebBrowser» идти на предыдущую страницу.

Подобную процедуры прописываем в кнопке вперед:

procedure TForm1.ToolButton2Click(Sender: TObject);

begin

WebBrowser1.GoForward;

end;

end.

Для кнопки «Стоп» пишем:

procedure TForm1.ToolButton3Click(Sender: TObject);

begin

WebBrowser1.Stop;

end;

end.

А для кнопки «Обновить»:

procedure TForm1.ToolButton4Click(Sender: TObject);

begin

WebBrowser1.Refresh

end;

end.

Добавим индикатор загрузки. Для этого бросаем на форму ProgressBar из закладки «Win32». Изменяем у него свойство «Align» на «alBottom», чтобы он находился вдоль нижней границы формы. Снова выделяем WebBrowser1 и щелкни по закладке «Events» в ОbjecInspector-е. Дважды щелкаем по строке «OnProgressChange» и пишем в созданной процедуре:

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

begin

ProgressBar1.Max := ProgressMax;

ProgressBar1.Position := Progress;

end;

Здесь мы созданному ProgressBar1 (индикатор загрузки) присваиваем максимальное значение (ProgressMax) и текущее значение (Progress).

Теперь добавляем на форму компонент «StatusBar» из закладки «Win32» и изменяем у него свойство «SimplePanel» в «true». Теперь выделяем «WebBrowser» и щелкаем по закладке «Events» в «ОbjecInspector». Дважды кликаем по строке «OnStatusTextChange» и пишем в созданной процедуре следующее:

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;

const Text: WideString);

begin

StatusBar1.SimpleText := Text;

end;

Здесь мы присваиваем переменную «Text» (в ней хранится текст подсказки) в «StatusBar». Теперь мы сможем видеть подсказки в строке состояния. визуальный интерфейс браузер сеть

Дадим нашей форме имя. Например: «BROWSER». И сменим стандартную иконку делфи для приложения. Для этого во вкладке «Tools» есть встроенный редактор изображений «Image Editor». Здесь мы можем нарисовать свою собственную иконку для exe файла приложения.

Далее во вкладе «Project» заходим в «Options». В настройках выбираем вкладку «Application» и добавляем нарисованную нами иконку.

Запускаем программу клавишей F9.

В итоге получаем браузер вот такого вида:

Рисунок 8 Браузер

Ниже приведем код программы целиком:

unit Unit1;

interface

uses

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

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

type

TBROWSER = class(TForm)

WebBrowser1: TWebBrowser;

CoolBar1: TCoolBar;

ToolBar1: TToolBar;

ComboBox1: TComboBox;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ImageList1: TImageList;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

OpenDialog1: TOpenDialog;

N8: TMenuItem;

ProgressBar1: TProgressBar;

StatusBar1: TStatusBar;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

procedure WebBrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure N3Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure ToolButton4Click(Sender: TObject);

procedure WebBrowser1StatusTextChange(Sender: TObject;

const Text: WideString);

private

{ Private declarations }

public

{ Public declarations }

end;

var

BROWSER: TBROWSER;

implementation

{$R *.dfm}

procedure TBROWSER.WebBrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

begin

ProgressBar1.Max := ProgressMax;

ProgressBar1.Position := Progress;

end;

procedure TBROWSER.ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_RETURN then

WebBrowser1.Navigate(ComboBox1.Text);

end;

procedure TBROWSER.N3Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

WebBrowser1.Navigate(OpenDialog1.FileName);

ComboBox1.Text := OpenDialog1.FileName;

end;

end;

procedure TBROWSER.N8Click(Sender: TObject);

begin

close;

end;

procedure TBROWSER.N7Click(Sender: TObject);

begin

ShowMessage('Автор программы Крюков А.А. ОЗО 231-с\п')

end;

procedure TBROWSER.ToolButton1Click(Sender: TObject);

begin

WebBrowser1.GoBack

end;

procedure TBROWSER.ToolButton2Click(Sender: TObject);

begin

WebBrowser1.GoForward;

end;

procedure TBROWSER.ToolButton3Click(Sender: TObject);

begin

WebBrowser1.Stop;

end;

procedure TBROWSER.ToolButton4Click(Sender: TObject);

begin

WebBrowser1.Refresh

end;

procedure TBROWSER.WebBrowser1StatusTextChange(Sender: TObject;

const Text: WideString);

begin

StatusBar1.SimpleText := Text;

end;

end.

ЗАКЛЮЧЕНИЕ

В процессе курсовой работы, были проанализированы литературные источники, интернет-ресурсы.[19,20] Были анализированы и выбраны компоненты, необходимые для создания браузера.

В результате была получена программа для посещения страниц Интернета.

Браузер работает. Работа выполнена. Цель достигнута.

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1. Алексеев, Е.Р. Самоучитель по программированию на Free Pascal и Lazarus / Е.Р. Алексеев, О.В. Чеснокова, Т.В. Кучер. - Донецк.: ДонНТУ, Технопарк ДонНТУ УНИТЕХ, 2009. - 503 с.

2. Бобровский, С.И. Технологии Delphi 2006. Новые возможности / C.И. Бобровский. - СПб.: Петербург, 2006. - 288 с.

3. Гофман, В. Delphi быстрый старт / В. Гофман, А. Хоменко. - СПб.: БХВ Петербург, 2003. - 288 с.

4. Культин, Н. Delphi в задачах и примерах / Н. Культин. - СПб.: БХВ Петербург, 2003. - 288 с.

5. Культин, Н. Основы программирования в Delphi 7 / Н. Культин. - СПб.: БХВ Петербург, 2007. - 20 с.

6. Мансуров, К.Т. Основы программирования в среде Lazarus / К.Т. Мансуров. - 2010. - 772 с.

7. Осипов, Д. Delphi. Профессиональное программирование / Д. Осипов. - СПб.: Издательство Символ-плюс, Санкт-Петербург - Москва, 2006. - 187 с.

8. Парижский, С.М. Delphi. Учимся на примерах / С.М. Парижский. - К.: МК-Пресс, 2005. - 216 с.

9. Пестриков, В.М. Delphi на примерах / В.М. Пестриков, А.Н. Маслобоев. - СПб.: БХВ Петербург, 2005. - 496 с.

10. Стивенc, Р. Delphi. Готовые алгоритмы / Р. Стивенc. - М.: ДМК Пресс; CПб.: Петербург, 2004. - 384 с.

11. Сухарев, М.В. Основы Delphi. Профессиональный подход / М.В. Сухарев. - СПб.: Наука и Техника, 2004. - 660 с.

12. Фаронов, В.В. Delphi 2005. Разработка приложений для баз данных и Интернета / В.В. Фаронов. - СПб.: Питер, 2006. - 603 с.

13. Фаронов, В.В. Delphi 6. Учебный курс / В.В. Фаронов. - М.: Издатель Молгачева С.В., Москва, 2001. - 672 с.

14. Фаронов, В.В. Turbo Pascal / В.В. Фаронов. - СПб.: БХВ-Петербург, 2004. - 1056 с.

15. Фаронов, В.В. Искусство создания компонентов Delphi / В.В. Фаронов. - СПб.: Питер, 2005. - 463 с.

16. Фленов, М.Е. Delphi 2005. Секреты программирования / М.Е. Фленов. - СПб.: Питер, 2006. - 266 с.

17. Фленов, М.Е. Библия Delphi / М.Е. Фленов. - СПб.: БХВ-Петербург, 2011. - 668 с

Размещено на Allbest.ru