Министерство сельского хозяйства и продовольствия
Республики Беларусь

УО «Полоцкий государственный аграрно-экономический колледж»

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

по дисциплине

«Основы алгоритмизации и программирование»

Тема: «Программное средство «Web-браузер»

КП 501500.32312 ПЗ

Выполнил:

учащийся гр. П23 II курса

отделения «Программное обеспечение

информационных технологий и права» А.А.Корягин

Руководитель:

преподаватель цикловой комиссии

информационных технологий И.К.Федорчук

Полоцк 2010

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1 Анализ и постановка задачи

2 Проектирование программы и разработка алгоритма

2.1 Структурная схема программы

2.2 Блок-схема процедуры поиска

2.3 Проектирование интерфейса программы

2.4 Компоненты электронное пособие «Учебно-методический комплекс по дисциплине «Основы алгоритмизации и программирование. Раздел «Система программирования Delphi»

3 Реализация разработанного алгоритма

3.1 Описание функций кнопок

3.2 Описание функций меню

3.2 Код программы

4 Тестирование программы и анализ проведенных расчетов

5 Инструкция по эксплуатации программы

ЗАКЛЮЧЕНИЕ

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

ПРИЛОЖЕНИЕ А. Функциональная схема программы

ПРИЛОЖЕНИЕ Б. Листинг всех модулей

ВВЕДЕНИЕ

Компьютерные технологии - ядро теоретических и практических знаний, которые используют в своей работе специалисты в области вычислительной техники, программирования, информационных систем и технологий. Как научная дисциплина компьютерные технологии возникли в начале 40-х годов XX века в результате слияния теории алгоритмов и математической логики, а также изобретения электронных вычислительных машин. Наиболее важные разделы компьютерных наук: алгоритмы и структуры данных, архитектура компьютеров, операционные системы и компьютерные сети, разработка программного обеспечения, базы данных и информационно-поисковые системы, искусственный интеллект и робототехника, компьютерная графика.

Появление Интернета, безусловно, производит революционные изменения в таких областях, как образование, компьютерный тренинг, во многих сферах профессиональной деятельности человека, науки и т.д. В настоящее время большое количество людей пользуются Интернетом. В глобальной сети можно найти огромное количество полезной информации, мультимедийных файлов и т.д.. Существуют массовые социальные сети («В контакте», «Я тут», «В сети», «Одноклассники») всевозможные форумы и чаты. Для работы с этим гигантским информационным пространством предусмотрены специальные прикладные программы - web-браузеры.

Объектом изучения данного курсового проекта является web-браузеры. Web-браузер -- программное обеспечение для просмотра web-сайтов, то есть для запроса web-страниц , их обработки, вывода и перехода от одной страницы к другой. Браузеры постоянно развивались со времени зарождения «Всемирной паутины» и с её ростом становились всё более востребованными программами. Ныне браузер -- комплексное приложение для обработки и вывода разных составляющих web-страницы и для организации интерфейса между web-сайтом и его посетителем. Практически все популярные браузеры распространяются бесплатно или «в комплекте» с другими приложениями.

Предметом курсового проектирования является разработка «Web-браузера» - программного средства для просмотра web-сайтов, их обработки, вывода и перехода от одной страницы к другой. Установить браузер на свой компьютер не составит труда даже не очень опытному пользователю. Внем есть всё, что может потребоваться: удобный интерфейс, ускоренный поиск, полезные дополнения, позволяющие быстро получать нужную информацию и работать с закладками, а также многое другое, которое в доступной форме позволяет пользователю окунуться в мир глобальной сети интернет.

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

Языком программирования является язык высокого уровня Pascal. В качестве среды разработки приложения выбрана среда разработки Borland Delphi.

1 АНАЛИЗ И ПОСТАНОВКА ЗАДАЧИ

В соответствии с заданием на курсовое проектирование темой является «Программное средство «Web-браузер».

1.1 Анализ предметной области

Главной целью является создание быстрого, «легкого» и понятного в оформлении web-браузера. Он будет отличается небольшим размером, удобством в работе, хорошей скоростью работы, прекрасно подходит для работы на машинах с небольшим объемом ОЗУ и маломощным CPU. Как следствие, браузер вынужден придерживаться философии рабочей среды. Она заключается в максимальном упрощении интерфейса, в оптимизации набора функций. Программа должна выполнять свою работу, только свою работу и делать все качественно. Задача заключается в отображении содержимого Всемирной паутины.

1.2 Функциональные требования к программе

Функциональные возможности разрабатываемого приложение должны быть следующими:

1) открытие и просмотр файлов следующих форматов: *.htm,*.html,*.xml,*.mht

2) поиск информации в наиболее известных интернет сервисах (Google, Rambler, Яндекс, Yahoo)

3) масштабирование просматриваемой страницы

4) Редактирование загруженной страницы

5) наличие основных стандартных функций навигации (вперёд, назад, обновить, стоп, домашняя страница)

6) Создание закладок

Присутствовать

7) сведения о разработчике

8) сведения о программе

Языком программирования является Object Pascal. Среда разработки приложения - Borland Delphi. Выбор обосновывается тем, что в данной среде разработки предоставляется удобная система визуального программирования. Соответственно, разработчик уже не тратит много времени на построение интерфейса программы, так как ему предоставляются стандартные элементы оконного интерфейса в виде компонентов. Скорость разработки тем самым повышается.

2 ПРОЕКТИРОВАНИЕ ПРОГРАММЫ И РАЗРАБОТКА АЛГОРИТМА

2.1 Структурная схема программы

На рисунке 2.1 представлена структурная схема программы



Рисунок 2.1 - Структурная схема программы

2.2 Блок-схема процедуры поиска

Блок-схема процедуры быстрого поиска информации на наиболее известных поисковых серверах находится в ПРИЛОЖЕНИИ А.

2.3 Проектирование интерфейса

По ходу построения интерфейса применены следующие компоненты: MainMenu, sSpeedButton, sEdit, WebBrowser, sListBox, sComboBox, sStatusBar, sGauge. На рисунке 2.2 показаны названия используемых компонентов

Рисунок 2.2 - Вид главной формы (Unit 1)

Вид окна добавления закладок изображен на рисунке 2.3. Используемые компоненты: sLabel, sEdit, sSpeedButton.

Рисунок 2.3 - Вид окна добавления закладок (Unit 3)

На рисунке 2.4 изображены данные о разработчике, а так же можно посетить официальный сайт УО «ПГАЭК».

Рисунок 2.4 - Вид формы о разработчике (Unit 2)

На рисунке 2.5 отображены сведения о программе. Используемые компоненты: sLabel, sSpeedButton. Также нажав на кнопку «Инструкция по эксплуатации» можно будет просмотреть инструкцию выполнения действий над просмотром страниц.

Рисунок 2.5 - Вид формы о программе (Unit 5)

На рисунке 2.6 отображена инструкция выполнения действий над просмотром страниц. Используемые компоненты: sLabel, sSpeedButton.

Рисунок 2.6 - Инструкция по эксплуатации (Unit 4)

2.4 Компоненты Программного средства «Web-браузер»

В данном курсовом проекте использовались компоненты:

- sLabelFX, sEdit, sGauge, sComboBox, sPanel, sSpeedButoon со страницы Alphastandard;

- Image со страницы Addihional;

- MainMenu со страницы Standard;

- sOpenDialog, sSaveDialog, SkinManager со страницы AlphaTools;

sLabel - Служит для отображения текста на экране;

sEdit - Используется для ввода пользователем однострочных текстов. Может использоваться для отображения текста;

sGauge - Предназначенные для отображения в стиле Windows 95/98 хода процессов, занимающих заметное время, например, копирования больших файлов, настройку приложения, установку приложения на компьютере и т.п;

sComboBox - Компонент служащий для отображения списков строк;

sPanel - С их помощью компонуются различные элементы интерфейса;

sSpeedButoon - Имеют возможность отображения пиктограмм и могут использоваться как обычные управляющие кнопки или как кнопки с фиксацией нажатого состояния;

Image - Отображает графическое изображение на форме;

MainMenu - Позволяет конструировать и создавать полосу главного меню формы и выпадающие меню;

sOpenDialog - Предназначен для создания окна диалога «Открыть файл»;

sSaveDialog - Предназначен для создания окна диалога «Сохранить файл»

sSkinManager - компонент для запуска и отображения скинов;

При разработке программного средства был использован, дополнительный компанент (SkinManager)

3 РЕАЛИЗАЦИЯ РАЗРАБОТАННОГО АЛГОРИТМА

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

В первой (основной) форме (Unit 1) осуществляется просмотр
web-страниц (рисунок 3.1) и все необходимое для работы со страницей (рисунок 3.2).

Рисунок 3.1 - Вид программы при запуске



Рисунок 3.2 - Обозначение приложения

3.2 Описание функций кнопок

На главной (Unit 1) форме содержатся все необходимы кнопки для управления web-сайтом, которые подписаны на рисунке 3.3 и ниже приведены их обозначения.



Рисунок 3.3 - Основная форма программы (Unit 1)

- Кнопка «Новое окно»(1) предназначена для создания подобного окна для перехода по сайтам;

- Кнопка «Назад»(2) предназначена для перехода на предыдущую страницу;

- Кнопка «Вперед» (3) предназначена для перехода на следующую страницу;

- Кнопка «Стоп»(4) предназначена для остановки загрузки web-страницы;

- Кнопка «Обновить»(5) предназначена для обновления активной страницы;

- Кнопка «Домашняя страница» (6) предназначена для перехода на домашнюю страницу;

- Кнопка «Печать» (7) предназначена для печати страницы;

- Кнопка «Открытие панели поиска» (8) предназначена для открытия панели, где пользователь выбрав поисковую систему сможет найти необходимую информацию;

- Кнопка «Добавить» (9) предназначена для добавления закладки;

- Кнопка «Перейти» (10) предназначена для перехода по существующей закладке;

- Кнопка «Поиск» (11) предназначена для активации запроса пользователя на поиск;

- Кнопка «Экранная лупа»(12) предназначена для отображения экранной лупы (увеличение любой просматриваемой области);

- Кнопка «Поиск в Google» (13) предназначена для выбора пользователя данной поисковой системы;

- Кнопка «Поиск в Яндекс»(14) предназначена для выбора пользователя данной поисковой системы

- Кнопка «Поиск в Yahoo»(15) предназначена для выбора пользователя данной поисковой системы;

- Кнопка «Поиск в Rambler»(16) предназначена для выбора пользователя данной поисковой системы;

- Кнопка «Открытия панели с закладками» (17) предназначена для открытия панели, где пользователь сможет добавить закладку или перейти по ранее записанной.

Вторая форма (Unit 3) предназначена для добавления закладок (рисунок 3.4).



Рисунок 3.4 - Добавление закладки (Unit 3)

Третья форма (Unit 2) предназначена для отображения информации о разработчике (рисунок 3.5)

Рисунок 3.5 - Информация о разработчике (Unit 2)

Четвертая форма (Unit 5) предназначена для отображения краткой информации о программе (рисунок 3.6)

Рисунок 3.6 - Информация о программе (Unit 5)

Пятая форма (Unit 4) предназначена для отображения краткой информации о программе (рисунок 3.7)

Рисунок 3.7 - Информация по эксплуатации программы (Unit 4)

3.3 Описание функций меню

В меню «файл» изображенном на рисунке 3.8 находятся кнопки: Создать, Открыть, Сохранить как, Печать и Выход.

Рисунок 3.8 - Вкладка главного меню «Файл»

В меню «Правка» изображенном на рисунке 3.9 находятся кнопки: Назад, Вперед, Обновить, Выделить все, Копировать, Вставить, Найти, Редактировать.

Рисунок 3.9 - Вкладка главного меню «Правка»

В меню «Вид» изображенном на рисунке 3.10 находятся кнопки: Масштаб, Свойства страницы.



Рисунок 3.10 - Вкладка главного меню «Вид»

В меню «Справка» изображенном на рисунке 3.11 находятся кнопки:
О разработчике, О программе.

Рисунок 3.11 - Вкладка главного меню «Справка»

3.4 Код программы

Код программы находится в ПРИЛОЖЕНИИ Б

4. ТЕСТИРОВАНИЕ ПРОГРАММЫ

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

4.1 Переход по сайтам

Рисунок 1 - Переход к сайту http:\\pgaek.org



Рисунок 2 - Переход по ссылке «Абитуриенту» сайта http:\\pgaek.org

4.2 Печать страницы

Рисунок 3 - Посылаем страницу на печать

4.3 Открытие панели с поиском и поиск заданного значения

Рисунок 4 - Быстрый поиск на www.google.ru слова «ПГАЭК»



Рисунок 5 - Перешли по ссылке и открылось новое окно с сайтом

4.4 Добавление в закладки и переход по ним

Рисунок 6 - Добавляем сайт в закладки



Рисунок 7 - Нажимаем «Добавить» и вводим данные

Рисунок 8 - Сайт добавился в закладки

4.5 Экранная лупа

Рисунок 9 - Просматриваем информацию с помощью экранной лупы

4.6 Масштаб страницы

Рисунок 10 - Масштаб страницы 200%

Рисунок 11 - Масштаб страницы 60%

В ходе тестирования программа показала себя как стабильное и удобное в работе приложение.

Все тесты пройдены успешно.

Данное тестирование производилось на операционной системе:

5. ИНСТРУКЦИЯ ПО ЭКСПЛУАТАЦИИ ПРОГРАММЫ

1 Установка программного средства:

Для того чтобы воспользоваться данной программой нужно произвести её установку на ваш жесткий диск.

1.1 Вставить компакт диск с программой в привод вашего компьютера;

1.2 Дождаться автозапуска и выбрать пункт "Установить программу";

1.3 При появлении окна установки выберите язык установки и нажните кнопку «Далее»;

1.4 Для продолжения установки нажмите «Далее»;

1.5 Укажите папку в которую хотите установить (по умолчанию C:\Program Files\EasyNet) и нажмите «Далее»;

1.6 Если выберите дополнительный флажок, то на Рабочем столе появится ярлык с программой и жмем «Далее»;

1.7 Проверяем заданные настройки и жмем «Установить»;

1.8 Если выберите дополнительный флажок, то запустится программа и затем жмем «Завершить»;

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

2 Инструкция по эксплуатации:

2.1 Запустить программу (нажать на соответствующий ярлык программы);

2.2 Ввести в поле «Адрес:» URL-адрес сайта и нажать клавишу Enter:

2.3 Просматривать страницу и производить с ней стандартные операции «web-браузера» (назад, вперед, обновить и т.д.);

2.3 При необходимости можно запомнить сайт. Нажав на кнопку «Закладки» создаем закладку или переходим по существующей;

2.4 При необходимости управляем масштабом страницы. Для этого выбираем меню «Вид»-«Масштаб» и выбираем нужный масштаб;

2.5 В меню «Файл» можно создать новое окно, открыть страницу, сохранить страницу или послать страницу на печать.

2.6 В меню «Правка» доступны клавиши управления страницей, а также некоторые функции текстового редактора «Выделить все», «Копировать», «Вставить»;

2.7 В меню «Справка» можно просмотреть сведения о программе и разработчике

ЗАКЛЮЧЕНИЕ

В ходе разработки программного средства, было создано приложение (программа) «Web-браузер», позволяющее просматривать web-страницы, производить их обработку, осуществлять переход от одной страницы к другой. Установить браузер на свой компьютер не составит труда даже не очень опытному пользователю. Внем есть всё, что может потребоваться: удобный интерфейс, ускоренный поиск, полезные дополнения, позволяющие быстро получать нужную информацию и работать с закладками, а также многое другое, которое в доступной форме позволяет пользователю окунуться в мир глобальной сети интернет.

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

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

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

ГОСТ 19.404-79 ЕСПД. Пояснительная записка. Требования к содержанию и оформлению. - М.: Изд-во стандартов, 1982.

ГОСТ 2.104-68 ЕСКД. Основные надписи. - М.: Изд-во стандартов, 1982.

ГОСТ 2.105-95 ЕСКД. Общие требования к текстовым документам. - М.: Изд-во стандартов, 1995.

ГОСТ 19.103-77 ЕСПД. Обозначения программ и программных документов. - М.: Изд-во стандартов, 1982.

Архангельский А.Я. Программирование в Delphi 7 --М.: ЗАО «Издательство БИНОМ», 2002г. - 1200 с.

Кулагин Н.Б. Программирование в Turbo Pascal 7.0 и Delphi. - СПб.:BHV, 2000.

Программирование в среде Delphi: Лабораторный практикум для студентов всех специальностей. Под общей редакцией Синицына А.К. - Мн.; БГУИР, 1998. - 94 с.

Программирование в среде Delphi: Лабораторный практикум для студентов всех специальностей. Под общей редакцией Синицына А.К. - Мн.; БГУИР, 1998. - 94 с.

Прищепов М.А., Севернева Е.В., Шарикин А.И. Программирование на языках Basic, Pascal и Object Pascal в среде Delphi. Учеб.пособие. - Мн.: ТетраСистемс, 2006.

Тассел Д. Ван. Стиль, разработка, эффективность, отладка и испытание программ. - М.: Мир, 1985.

ПРИЛОЖЕНИЕ А

(Рекомендуемое)

Процедура быстрого поиска информации на наиболее известных поисковых серверах

ПРИЛОЖЕНИЕ Б

(Обязательное)

Листинг 1 - Модуль Unit1.pas

{====================================================}

{ Модуль Unit1.pas }

{ группа П23 }

{ Разработчик: Корягин А.А. }

{ Модифицирован: 15 июня 2010 }

{----------------------------------------------------}

{ Модуль в котором реализованы функции работы с web-браузером}

{====================================================}

unit Unit1;

interface

uses

Windows, ActiveX, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, sSkinManager, Buttons, sSpeedButton, OleCtrls, SHDocVw, ComCtrls, acProgressBar, sStatusBar, ExtCtrls, sPanel, Menus, StdCtrls, sLabel, sEdit, sGroupBox, HTTPApp, sPageControl, sTabControl, sMemo, sGauge, ddeman, XpMan, sAlphaListBox, acMagn,ShellAPI, Registry, WinInet, sSplitter, sComboBox, sHintManager, sSkinProvider, sDialogs, MSHtml;

type

TForm1 = class(TForm)

sSkinManager1: TsSkinManager;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

N27: TMenuItem;

N2501: TMenuItem;

N2001: TMenuItem;

N501: TMenuItem;

N1201: TMenuItem;

N1101: TMenuItem;

N1001: TMenuItem;

N901: TMenuItem;

N801: TMenuItem;

N701: TMenuItem;

N601: TMenuItem;

N502: TMenuItem;

N28: TMenuItem;

N30: TMenuItem;

sPanel1: TsPanel;

sStatusBar1: TsStatusBar;

WebBrowser1: TWebBrowser;

sSpeedButton1: TsSpeedButton;

sSpeedButton2: TsSpeedButton;

sEdit1: TsEdit;

sSpeedButton3: TsSpeedButton;

sSpeedButton4: TsSpeedButton;

sSpeedButton5: TsSpeedButton;

sSpeedButton6: TsSpeedButton;

sSpeedButton7: TsSpeedButton;

sPanel3: TsPanel;

sPanel6: TsPanel;

sPanel4: TsPanel;

sGauge1: TsGauge;

sSpeedButton9: TsSpeedButton;

sEdit2: TsEdit;

sSpeedButton10: TsSpeedButton;

sSpeedButton11: TsSpeedButton;

sSpeedButton13: TsSpeedButton;

sSpeedButton14: TsSpeedButton;

sPanel7: TsPanel;

N31: TMenuItem;

sPanel2: TsPanel;

sSpeedButton17: TsSpeedButton;

sPanel11: TsPanel;

sSpeedButton18: TsSpeedButton;

sListBox1: TsListBox;

sSpeedButton19: TsSpeedButton;

sSpeedButton20: TsSpeedButton;

sGroupBox1: TsGroupBox;

sPanel5: TsPanel;

sComboBox1: TsComboBox;

N32: TMenuItem;

sPanel8: TsPanel;

sMagnifier1: TsMagnifier;

sSpeedButton8: TsSpeedButton;

sOpenDialog1: TsOpenDialog;

sSaveDialog1: TsSaveDialog;

N8: TMenuItem;

procedure N10Click(Sender: TObject);

procedure sEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure sSpeedButton2Click(Sender: TObject);

procedure sSpeedButton3Click(Sender: TObject);

procedure sSpeedButton4Click(Sender: TObject);

procedure sSpeedButton6Click(Sender: TObject);

procedure WebBrowser1StatusTextChange(ASender: TObject;

const Text: WideString);

procedure WebBrowser1ProgressChange(ASender: TObject; Progress,

ProgressMax: Integer);

procedure sSpeedButton5Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N2501Click(Sender: TObject);

procedure N2001Click(Sender: TObject);

procedure N501Click(Sender: TObject);

procedure N1201Click(Sender: TObject);

procedure N1101Click(Sender: TObject);

procedure N1001Click(Sender: TObject);

procedure N901Click(Sender: TObject);

procedure N801Click(Sender: TObject);

procedure N701Click(Sender: TObject);

procedure N601Click(Sender: TObject);

procedure N502Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure sSpeedButton1Click(Sender: TObject);

procedure sSpeedButton9Click(Sender: TObject);

procedure sSpeedButton10Click(Sender: TObject);

procedure sSpeedButton11Click(Sender: TObject);

procedure sSpeedButton13Click(Sender: TObject);

procedure sSpeedButton14Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure WebBrowser1CommandStateChange(ASender: TObject; Command: Integer;

Enable: WordBool);

procedure N16Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure sSpeedButton18Click(Sender: TObject);

procedure sSpeedButton19Click(Sender: TObject);

procedure sSpeedButton20Click(Sender: TObject);

procedure WebBrowser1NavigateComplete2(ASender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

procedure sListBox1DblClick(Sender: TObject);

procedure sComboBox1Change(Sender: TObject);

procedure WebBrowser1TitleChange(ASender: TObject; const Text: WideString);

procedure N110Click(Sender: TObject);

procedure sMagnifier1DblClick(Sender: TObject);

procedure sSpeedButton8Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;

var Cancel: WordBool);

procedure N5Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure sSpeedButton7Click(Sender: TObject);

procedure sSpeedButton17Click(Sender: TObject);

procedure N32Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure WebBrowser1DocumentComplete(ASender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

procedure N22Click(Sender: TObject);

procedure N30Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

type

mas= array[0..100] of string;

var

Form1: TForm1;

estyle:integer; //переманная поиска

poisk:string;

m:mas;

disp: idispatch;

editor: ihtmldocument2;

implementation

uses Unit2, Unit3, Unit4, UrlMon, CommCtrl, ComObj, Unit5;

{$R *.dfm}

// пользовательская процедура сохранения

procedure SaveHTMLSourceToFile(const FileName: string;WB: TWebBrowser);

var

PersistStream: IPersistStreamInit;

FileStream: TFileStream;

Stream: IStream;

SaveResult: HRESULT;

begin

PersistStream := WB.Document as IPersistStreamInit;

FileStream := TFileStream.Create(FileName, fmCreate);

try

Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;

SaveResult := PersistStream.Save(Stream, True);

finally

FileStream.Free;

end;

end;

//Функция запуска

function ExecuteFile(const FileName,Params,DefaultDir:string;

ShowCmd:Integer):THandle;

var

zFileName,zParams,zDir:array [0..79 ] of Char;

begin

Result :=ShellExecute(Application.MainForm.Handle,nil,

StrPCopy(zFileName,FileName),StrpCopy(zParams,Params),

StrPCopy(zDir,DefaultDir),ShowCmd);

end;

// процедура, если форма стала активной

procedure TForm1.FormActivate(Sender: TObject);

var

f:textfile;

a,b:string;

i:integer;

begin

spanel11.Width:=0;

spanel3.Height:=0;

WebBrowser1.GoHome;

sListBox1.Clear;

assignfile(f,'Favorits.dat');

reset(f);

i:=0;

repeat

readln(f,a);

readln(f,b);

sListBox1.Items.Add(b);

m[i]:=a;

i:=i+1;

until eof(f);

closefile(f);

slistbox1.Refresh;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

close; // Выход

end;

// позиция sGauge

procedure tForm1.FormResize(Sender: TObject);

var

r: TRect;

begin

sgauge1.Parent := sStatusbar1; // присвоение к панели статуса

sgauge1.SetBounds(r.Left, r.Top, r.Right - r.Left - -100, r.Bottom - r.Top); // размещение по координатам

end;

procedure TForm1.N110Click(Sender: TObject);

begin

sMagnifier1.Execute;

end;

// Процедура перехода на предыдущую страницу

procedure TForm1.N12Click(Sender: TObject);

begin

sSpeedButton1Click(Sender); // На предыдущую страницу

end;

// Процедура перехода на следующую страницу

procedure TForm1.N13Click(Sender: TObject);

begin

sSpeedButton2Click(Sender); // на следующую страницу

end;

// Процедура обновления страницы

procedure TForm1.N14Click(Sender: TObject);

begin

sSpeedButton3Click(Sender); // Обновить страницу

end;

//*************************** Масштаб страницы *************************

procedure TForm1.N2501Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 2.5; // масштаб страницы 250%

end;

procedure TForm1.N2001Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 2; // масштаб страницы 200%

end;

procedure TForm1.N501Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.5; // масштаб страницы 150%

end;

procedure TForm1.N1201Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.2; // масштаб страницы 120%

end;

procedure TForm1.N1101Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.1; // масштаб страницы 110%

end;

procedure TForm1.N1001Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1; // масштаб страницы 100%

end;

procedure TForm1.N26Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1; // масштаб страницы 100%

end;

procedure TForm1.N901Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.9; // масштаб страницы 90%

end;

procedure TForm1.N801Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.8; // масштаб страницы 80%

end;

procedure TForm1.N701Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.7; // масштаб страницы 70%

end;

procedure TForm1.N601Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.6; // масштаб страницы 60%

end;

procedure TForm1.N502Click(Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.5; // масштаб страницы 50%

end;

// масштаб (250, 200, 150, 120, 110, 100, 90, 80, 70, 60, 50) на главной форме в sComboBox

procedure TForm1.sComboBox1Change(Sender: TObject);

begin

if scombobox1.ItemIndex=0

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=2.5

else if scombobox1.ItemIndex=1

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=2.2

else if scombobox1.ItemIndex=2

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=2

else if scombobox1.ItemIndex=3

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=1.5

else if scombobox1.ItemIndex=4

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=1.2

else if scombobox1.ItemIndex=5

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=1.1

else if scombobox1.ItemIndex=6

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=1

else if scombobox1.ItemIndex=7

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=0.9

else if scombobox1.ItemIndex=8

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=0.8

else if scombobox1.ItemIndex=9

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=0.7

else if scombobox1.ItemIndex=10

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=0.6

else if scombobox1.ItemIndex=11

then WebBrowser1.OleObject.Document.Body.Style.Zoom :=0.5

end;

//************************************************************

// процедура открытия окна о программе

procedure TForm1.N8Click(Sender: TObject);

begin

form5.show;

end;

// процедура выделения

procedure TForm1.N16Click(Sender: TObject);

begin

WebBrowser1.ExecWB(OLECMDID_SelectAll, OLECMDEXECOPT_PROMPTUSER); // Выделить все

end;

// процедура копирования

procedure TForm1.N19Click(Sender: TObject);

begin

WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER); // Копировать

end;

// процедура вставки

procedure TForm1.N20Click(Sender: TObject);

begin

WebBrowser1.ExecWB(OLECMDID_PASTE, OLECMDEXECOPT_PROMPTUSER); // Вставить

end;

// процедура поиска

procedure TForm1.N22Click(Sender: TObject);

begin

//

end;

// процедура создания нового окна

procedure TForm1.N2Click(Sender: TObject);

begin

sSpeedButton17Click(Sender); // вызов процедуры, в которой описано создание нового окна

end;

// данные о разработчике

procedure TForm1.N30Click(Sender: TObject);

begin

form2.Show; // вызов формы с данными о разработчике

end;

// процедура редактирования содержания страницы

procedure TForm1.N31Click(Sender: TObject);

var

currentwb: iwebbrowser;

begin

if N31.Checked = true // если кнопка "Редактировать" нажата

then

Begin

currentwb := disp as iwebbrowser;

editor:=(currentwb.document as ihtmldocument2);

editor.designmode := 'Включено';

N2.Enabled:=false;

End;

if N31.Checked = false // если кнопка "Редактировать" не нажата

then

Begin

currentwb := disp as iwebbrowser;

editor:=(currentwb.document as ihtmldocument2);

editor.designmode := 'Выключено';

N2.Enabled:=true;

end;

end;

// процедура просмотра свойств страницы

procedure TForm1.N32Click(Sender: TObject);

var

eQuery: OLECMDF;

vaIn, vaOut: OleVariant;

begin

try

eQuery := Webbrowser1.QueryStatusWB(OLECMDID_PROPERTIES);

if (eQuery and OLECMDF_ENABLED) = OLECMDF_ENABLED then

Webbrowser1.ExecWB(OLECMDID_PROPERTIES, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);

except

end;

end;

// процедура открытия файла

procedure TForm1.N4Click(Sender: TObject);

begin

if sOpenDialog1.Execute

then

begin

WebBrowser1.Navigate(sOpenDialog1.FileName);

sEdit1.Text:=sOpenDialog1.FileName;

end;

end;

// процедура сохранения файла

procedure TForm1.N5Click(Sender: TObject);

begin

if sSaveDialog1.Execute then

SaveHTMLSourceToFile(sSaveDialog1.FileName, WebBrowser1);

end;

// Процедура печати страницы

procedure TForm1.N7Click(Sender: TObject);

begin

sSpeedButton6Click(Sender); // вызов процедуры, в которой описана печать страницы

end;

// Процедура ввода url-адреса

procedure TForm1.sEdit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_RETURN // если нажата клавиша Enter

then

begin

webbrowser1.Navigate(sedit1.Text); // присвоение адреса

end;

end;

// Процедура перехода из закладок по выбранному пользователем адреса

procedure TForm1.sListBox1DblClick(Sender: TObject);

begin

sSpeedButton19Click(sender); // вызов процедуры, в которой описан переход из по определенному адресу

end;

// Процедура закрытия экранной лупы

procedure TForm1.sMagnifier1DblClick(Sender: TObject);

begin

sMagnifier1.hide; // по двойному щелчку закрывается экранная лупа

end;

//************* Поиск необходимой информации в наиболее ивестных поисковиках (Google, Yahoo, Яндекс, Рамблер)

procedure TForm1.sSpeedButton10Click(Sender: TObject);

begin

poisk:='http://www.google.ru/search?hl=ru&q='; // поиск на Google

end;

procedure TForm1.sSpeedButton11Click(Sender: TObject);

begin

poisk:='http://yandex.ru/yandsearch?stype=www&nl=0&text='; // поиск на Яндекс

end;

procedure TForm1.sSpeedButton13Click(Sender: TObject);

begin

poisk:='http://search.yahoo.com/bin/query?p='; // поиск на Yahoo

end;

procedure TForm1.sSpeedButton14Click(Sender: TObject);

begin

poisk:='http://search.rambler.ru/cgi-bin/rambler_search?english=0&and=1&words='; // поиск на Рамблер

end;

//****************************************************

// Процедура создания нового окна

procedure TForm1.sSpeedButton17Click(Sender: TObject);

var

NewWindow: TForm1;

begin

try

NewWindow := TForm1.Create(self); // создание формы

NewWindow.Show; // показать форму

except;

end;

end;

// Процедура вызова закладок

procedure TForm1.sSpeedButton18Click(Sender: TObject);

begin

if spanel11.Width=0 // ели панель не видна

then

spanel11.Width:=185 // то сделать видимой

else if spanel11.Width=185 // если панель видна

then

spanel11.Width:=0 // то сделать невидимой

end;

// процедура перехода по закладке

procedure TForm1.sSpeedButton19Click(Sender: TObject);

begin

Form3.sEdit1.Text:=m[slistbox1.ItemIndex]; // выбор имени звкладки

Form1.WebBrowser1.Navigate(m[slistbox1.ItemIndex]); // переход по заданной ссылке

end;

// Процедура перехода на предыдущую страницу

procedure TForm1.sSpeedButton1Click(Sender: TObject);

begin

try

WebBrowser1.GoBack; // переход на предыдущую страницу

except

end;

end;

// Процедура перехода на следующую страницу

procedure TForm1.sSpeedButton2Click(Sender: TObject);

begin

try

WebBrowser1.GoForward; // переход на следующую страницу

except

end;

end;

// Процедура обновления страницы

procedure TForm1.sSpeedButton3Click(Sender: TObject);

begin

try

WebBrowser1.Refresh; // обновление страницы

except

end;

end;

// Процедура остановки загрузки страницы

procedure TForm1.sSpeedButton4Click(Sender: TObject);

begin

try

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

except

end;

end;

// Процедура перехода на домашнюю страницу

procedure TForm1.sSpeedButton5Click(Sender: TObject);

begin

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

end;

// Процедура печати страницы

procedure TForm1.sSpeedButton6Click(Sender: TObject);

var

PostData, Headers: OLEvariant;

begin

try

WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, PostData, Headers); // печать страницы

except

end;

end;

// процедура добавления страницы в закладки

procedure TForm1.sSpeedButton20Click(Sender: TObject);

begin

form3.Show; // открытие формы заполнения

end;

// процедура открытия панели с поиском

procedure TForm1.sSpeedButton7Click(Sender: TObject);

begin

if spanel3.Height=0 // если панель скрыта

then

spanel3.Height:=41 // то показать панель

else if spanel3.Height=41 // если панель видна

then

spanel3.Height:=0 // то скрыть панель

end;

// процедура активации экранной лупы

procedure TForm1.sSpeedButton8Click(Sender: TObject);

begin

sMagnifier1.Execute; // активация экранной лупы

end;

// процедура поиска

procedure TForm1.sSpeedButton9Click(Sender: TObject);

var

s,sear:string;

c,i:integer;

mass:array[1..30] of string;

begin

s:=sedit2.Text; // присваеваем фразу, которую будем искать

c:=Length(s); // находим сколько символов в строке

for i:=1 to c do // цикл, который ищет пробелы в вырожении и ставит вместо них "+"

begin

mass[i]:=copy(s,i,1);

if mass[i]=' '

then

mass[i]:='+';

sear:=sear+mass[i];

end;

webbrowser1.Navigate(poisk+sear); // открываем и ищем

end;

// Процедура активации клавиш впереди назад

procedure TForm1.WebBrowser1CommandStateChange(ASender: TObject;

Command: Integer; Enable: WordBool);

begin

case Command of

CSC_NAVIGATEBACK:

begin

sspeedbutton1.Enabled := Enable; // для клавиши назад

end;

CSC_NAVIGATEFORWARD:

begin

sspeedbutton2.Enabled := Enable; // для клавиши вперед

end;

end;

end;

// процедура редактирования содержимого страницы

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

var

currentwb: iwebbrowser;

editor: ihtmldocument2;

begin

disp:=pdisp;

end;

// процедура присвоения адреса активной страницы полю ввода url-адреса

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

sEdit1.Text:=WebBrowser1.LocationURL; //присвоение адреса активной страницы полю ввода url-адреса

end;

// процедура открытия страницы в новом окне

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;

var Cancel: WordBool);

var

NewWindow: TForm1;

begin

try

NewWindow := TForm1.Create(self); // создание нового окна

NewWindow.Show; // видимость окна

ppDisp := NewWindow.Webbrowser1.DefaultDispatch; // переход по заданному адресу

except;

end;

end;

// процедура отображения прогресса загрузки страницы

procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,

ProgressMax: Integer);

begin

sgauge1.MaxValue:=progressmax; // отображение максимальности процесса (100%)

sgauge1.Progress:=progressmax; // отображение прогресса загрузки

end;

// процедура отображения перехода по адресу

procedure TForm1.WebBrowser1StatusTextChange(ASender: TObject;

const Text: WideString);

begin

sStatusBar1.SimpleText := Text; // отображения перехода по адресу

end;

// процедура отображения названия сайта

procedure TForm1.WebBrowser1TitleChange(ASender: TObject; const Text: WideString);

begin

Caption := Text; // названию формы присваивается название сайта

end;

end.

Листинг 2 - Модуль Unit2.pas

{====================================================}

{ Модуль Unit2.pas }

{ группа П23 }

{ Разработчик: Корягин А.А. }

{ Модифицирован: 15 июня 2010 }

{----------------------------------------------------}

{ Модуль в котором содержится информация о разработчике}

{====================================================}

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, sComboBox, sLabel, Buttons, sSpeedButton, Registry,

ExtCtrls, sPanel, ComCtrls, sTrackBar, sSkinManager, sAlphaListBox, acPNG,

sGroupBox, jpeg, sBitBtn;

type

TForm2 = class(TForm)

sLabelFX1: TsLabelFX;

sLabelFX2: TsLabelFX;

sLabelFX3: TsLabelFX;

sLabelFX4: TsLabelFX;

sLabelFX6: TsLabelFX;

sLabelFX7: TsLabelFX;

sLabelFX8: TsLabelFX;

sLabelFX9: TsLabelFX;

sGroupBox1: TsGroupBox;

sGroupBox2: TsGroupBox;

sGroupBox3: TsGroupBox;

sGroupBox4: TsGroupBox;

Image1: TImage;

sWebLabel1: TsWebLabel;

sSpeedButton1: TsSpeedButton;

Image2: TImage;

sLabelFX5: TsLabelFX;

procedure sWebLabel1Click(Sender: TObject);

procedure sSpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

// процедура закрытия формы

procedure TForm2.sSpeedButton1Click(Sender: TObject);

begin

form2.Hide;

end;

// процедура перехода по заданному адресу

procedure TForm2.sWebLabel1Click(Sender: TObject);

begin

form1.webbrowser1.navigate('www.pgaek.org');

end;

end.

Листинг 3 - Модуль Unit3.pas

{====================================================}

{ Модуль Unit3.pas }

{ группа П23 }

{ Разработчик: Корягин А.А. }

{ Модифицирован: 15 июня 2010 }

{----------------------------------------------------}

{ Модуль в котором реализована функция добавления закладки}

{====================================================}

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, sEdit, Buttons, sBitBtn, sLabel, sSpeedButton;

type

TForm3 = class(TForm)

sEdit1: TsEdit;

sEdit2: TsEdit;

sLabel1: TsLabel;

sLabel2: TsLabel;

sSpeedButton1: TsSpeedButton;

procedure sBitBtn1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure sSpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

f1,f2:textfile;

a,b:string;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);

begin

sEdit1.Text:=Form1.WebBrowser1.LocationURL;

sEdit2.Text:=Form1.WebBrowser1.LocationName;

end;

procedure TForm3.sBitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm3.sSpeedButton1Click(Sender: TObject);

begin

CopyFile('Favorits.dat','Favorits.tmp',True);

DeleteFile('Favorits.dat');

assignfile(f1,'Favorits.dat');

assignfile(f2,'Favorits.tmp');

rewrite(f1);

reset(f2);

a:=sEdit1.Text;

b:=sEdit2.Text;

writeln(f1,a);

writeln(f1,b);

repeat

readln(f2,a,b);

writeln(f1,a);

write(f1,b);

until eof(f2);

closefile(f2);

closefile(f1);

DeleteFile('Favorits.tmp');

Form3.Close;

form1.sListBox1.Refresh;

end;

end.

Листинг 4 - Модуль Unit5.pas

{====================================================}

{ Модуль Unit5.pas }

{ группа П23 }

{ Разработчик: Корягин А.А. }

{ Модифицирован: 15 июня 2010 }

{----------------------------------------------------}

{ Модуль в котором реализована информация о программе}

{====================================================}

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, sLabel, acPNG, ExtCtrls, Buttons, sSpeedButton;

type

TForm5 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

sSpeedButton1: TsSpeedButton;

procedure sSpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

// процедура закрытия формы

procedure TForm5.sSpeedButton1Click(Sender: TObject);

begin

form5.Hide;

end;

end.

Листинг 5 - Модуль Unit4.pas

{====================================================}

{ Модуль Unit4.pas }

{ группа П23 }

{ Разработчик: Корягин А.А. }

{ Модифицирован: 15 июня 2010 }

{----------------------------------------------------}

{ Модуль в котором реализованы функции работы с web-браузером}

{====================================================}

unit Unit4;

interface

uses

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

Dialogs, Buttons, sSpeedButton, StdCtrls;

type

TForm4 = class(TForm)

sSpeedButton1: TsSpeedButton;

Label1: TLabel;

procedure sSpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

// процедура скрытия формы

procedure TForm4.sSpeedButton1Click(Sender: TObject);

begin

form4.Hide;

end;

end.