Пишем простенький браузер - Примеры - Delphi - Каталог статей - Вирусология, взгляд из Delphi
Четверг, 08.12.2016, 01:12 Приветствую вас Гость | Группа "Гости" 


Меню сайта

Категории раздела
Вирусология [39]
Статьи о вирусах
Системные [0]
Работа с системой
Примеры [44]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Приколы [5]
Пишем шуточные програмки
Остальное [5]
Всё что не вошло

Администрация
000000 dolphin

Помощь проекту

R106276538945
Z160640024212

Яндекс деньги
410011190732605

Недавние темы

Опрос
Нужна ли цензура в интернете?
Всего ответов: 176

Главная » Статьи » Delphi » Примеры

Пишем простенький браузер
Целью данной статьи было не просто написание программного обеспечения, альтернативы которому имеются во множестве, а описание хода работы над данным ПО, рассмотрение возможностей INDY-компонентов Дельфи: idHTTP и idSMTP, и примеры осуществления некоторых функций (ping, HostToIp и пр.). Таким образом, это своего рода учебное пособие по созданию приложений такого типа, работе с Дельфи и вышеперечисленными компонентами. Исходные коды и готовое приложение здесь.

  Статья рассчитана на читателей, освоивших азы программирования на Паскале, уже умеющих создавать на Дельфи простые оконные приложения (Hello world). Некоторые термины, применяемые здесь, могут показаться непонятными:
INDY – Internet Dyrect, набор компонентов для Дельфи, ориентированный преимущественно на работу с сетевыми функциями.
idHTTP – INDY компонент для клиентской работы с протоколом HTTP.
idSMTP – INDY компонент для отправки электронной почты по протоколу SMTP.

  ПО «Simple Internet Browser» (далее SIB) должно обладать следующими возможностями: загрузка только исходного кода html-страниц, установка произвольных параметров http-request, поиск гиперссылок в загруженном коде и вывод их пользователю, определение свойств веб-страницы и её сервера (тип сервера, его ИП, пинг, размер страницы, кодировка и проч.), печать и изменение шрифта отображаемого кода, пинг любого указанного узла, получение информации о узле со WhoIs сервиса, выяснение ИП по имени и наоборот, отправка почты.

  Итак, с чего начинается написание такого приложения на Дельфи, учитывая что все нужные книги прочитаны, нужные исходники найдены? Как и всегда – с создания первой формы. Назовём её MForm, и соответственно у нас сразу появиться новый класс TMForm. Далее установим параметры формы. Сделаем так, чтобы форма появлялась по центру экрана (position - poDesktopCenter), зададим текст для шапки формы (Caption - Simple Internet Browser 1.0) и растянем форму так, чтобы на экране она нормально смотрелась. Сохраним, дав имя MainUnit pas-файлу. Вот форма и готова. Берём и ищем на вкладке Standart (там где компоненты) MainMenu, кликаем и ложим на форму. Далее, кликая уже по нему, создаём главное меню такого вида: Файл, Правка, Вид, Сервис, Справка. В «Файл» подменю: Открыть, Сохранить как, Печать, Свойства и Закрыть. В «Правка»: Копировать и Выделить всё. В «Вид»: Ссылки из html, Обновить, Переход, Шрифт, Во MSIE. В «Сервис»: Свойства SIB, Свойства MSIE, Утилиты (Пинг узла, Отправка почты, Host to IP to Host). В «Справка» - О программе. Все эти пункты меню будут позволять использовать функционал программы, и уже сразу видно, как много ещё предстоит сделать. Куда будет загружаться исходный код страниц? В простой компонент Memo, для которого укажем отображение во весь клиентский экран, независимо от его размера (align - alClient). И запретим изменение текста в нём (Readonly - true) и добавим полосы прокрутки (ScrollBars - ssBoth). Теперь добавим строку ввода текста (ComboBox) и кнопку (SpeedButton). Чтобы они выглядели нормально вместе с Memo, поставим их не на форму, а на Panel c align – alTop, BevelOuter – bvNone. Для ComboBox укажем Anchors - [akLeft,akTop,akRight,akBottom], а для SpeedButton Anchors - [akTop,akRight,akBottom] и Caption – Переход. На этом оформление формы MForm завершено. Поставим на неё ещё только компоненты, нужные для работы далее: OpenDialog (DefaultExt – htm, Filter - Веб-страницы|*.htm |Все файлы|*.*), SaveDialog (DefaultExt – htm, Filter - Веб-страницы|*.htm |Все файлы|*.*),), FontDialog, Timer (Interval - 500), PrintDialog, idHTTP, IdAntiFreeze (нужен для того, чтобы форма была доступна во время работы прочик компонентов INDY) и Memo2 на Panel2 со свойством Visible – false.
Создадим ещё одну форму с названием SibProp и параметром BorderStyle – bsDialog. Эта форма для настроек параметров SIB – request и proxy. Учитывая, что для прокси нужно указывать имя сервера и порт, а ещё иногда имя пользователя и пароль, создадим на форме 4 соответствующих поля ввода и два переключателя типа CheckBox. А у структуры request у idHTTP 26 параметров. Для этого ставим ещё 25 полей ввода и CheckBox (один из параметров логический). Добавляем кнопки «закрыть» и «Применить».
Создадим третью форму HIForm такого же типа, как вторую. Эта форма для использования функций HostToIP, IPToHost и получения инфомации WhoIs. Следовательно понадобиться 4 поля ввода, две кнопки к ним, а ещё кнопка Whois и закрытия диалогового окна.
В четвёртой, подобной же, форме PingF нужно создать всё для функции Ping. Это два поля ввода, кнопка «Пинг» и кнопка «Закрыть».
Пятая форма – это форма свойств загруженной страницы. Должна быть всегда на переднем плане, т.к. будет вызываться как Prop.Show, а не Prop.ShowModal. Должна содержать 13 Label’ов для надписей: Серверные параметры, URL, Тип сервера, Хост, Пинг, Код ответа сервера, IP, Параметры страницы, Размер документа, Кодировка, Язык, ContentType, Количество ссылок. К каждой надписи (кроме URL и Тип сервера) создаём ещё по одному Label для собственно данных. Для URL и Тип сервера создаём по Edit’у с Readonly – true, (чтобы можно было выделять и копировать). И добавляем кнопку «Закрыть».
Шестая форма LinkF нужна для отображения списка доступных ссылок из кода веб-страниц. Тут следует применить компонент ListBox с параметрами Align – alClient. А ещё добавляем меню PopupMenu для ListBox с пунктами: Копировать, Перейти, Открыть в MSIE, Автопоказ списка (меню типа CheckBox).
Седьмую форму я добавлял из мной ранее сделанной программы для отправки почты, где есть 9 полей ввода, Memo, OpenDialog и три кнопки.
Схема связей форм: 

 


  Формы связываются между собой указанием имени модуля формы в Uses после interface и Uses после implementation. Для отображения формы она вызывается командой Show. Если форма должна отображаться без возможности передачи фокуса на форму, из которой вызвана, то ShowModal. Обращаться к элементам формы можно только после её создания.

  В коде модулей можно найти описание каждой процедуры или функции, поэтому описывать их и здесь будет излишне. Остановлюсь лишь на некоторых важных моментах и также опишу процесс функционирования кратко, в целом.
Функционирование приложения. Вводим в строку ввода текст tut.by и нажимаем на ввод. Что при этом происходит:
Если введённая строка введена не из списка ComboBox, то проверка, не пуста ли она и добавление в ComboBox, далее вырезка всех пробелов в строке (если они там есть), добавление префикса протокола http:// (если нету), далее загрузка в Memo1 данных посредством idHttp (memo1.Text := idhttp1.Get ( 'http://' + CutPref (ComboBox1.Text) )), далее показ окна для ссылок (если это включено), затем запись последнего введённого адреса в переменную для старых адресов с удалением из неё http://, далее поиск в Memo1 ссылок и после поиска обновление ими ListBox в окне для ссылок.
Компонент idHTTP.
Содержит две, довольно важных структуры: Response и Request.
Заполнение структуры Request можно увидеть в исходниках и готовом приложении. Там можно задать такие параметры, как авторизацию на сервере (имя пользователя и пароль), UserAgent, Referer. Структура Response даёт нам ответ от сервера после запроса у него странички, например можно в ней взять код (описание здесь: http://forum.antichat.ru/showpost.php?p=207299&postcount=1) ответа сервера (idhttp1.Response.ResponseCode). Помимо сего idHTTP может работать с прокси, что в SIB можно задать в Свойствах SIB.
Процедура TMForm.SearchLinks;
Служит для поиска в html коде гиперссылок. Поиск происходит так: вначале определяется длина всей строки кода, затем происходит посимвольный анализ. Со строкой href=" сравнивается по 6 символов, при каждом цикле со смещением на один. Если такая строка обнаружена, то все символы после неё копируются в новую строку вплоть до обнаружения символа " , а после строка обрабатывается функцией конвертации относительного пути в постоянный (если задан относительный) и добавляется в ListBox. И так, пока не будут обработаны все символы.
Процедура TMForm.RunLink(lnk:string;spec:boolean);
Создаёт/заменяет и открывает на запись файл в папке для временных файлов. Принимает строковые данные и логический параметр. Если параметр true, то строка просто записывается в файл, иначе строка записывается посреди html-обрамления инициирующего переход по этой строке-ссылке при загрузке файла в браузере. Загрузка затем и происходит путём запуска explorer с передачей ему в качестве параметра пути к данному файлу. Можно было обойтись и без файла, но увы, корректно передать в качестве параметра explorer’у можно далеко не все веб-адреса.
Процедура SendMail (MailText: TStrings; SendDate, SenderName, SenderAddress, RecAddress, RecServer, MailTheme, Attach, AuthUser, AuthPass: string; IsAttach, IsAuth: boolean);
Осуществляет отправку почты через SMTP компонент idSMTP, а также idMessage, IdAttachment. Вначале создаётся idSMTP1, затем указывается порт, сервер. Происходит соединение, при успехе коего авторизуемся, если нужно, далее – создаём TIdMessage, указываем тему письма, адреса отправителя и принимающего, имя отправителя, текст письма, дату, если нужно производим IdAttachment. После отправляем (idSMTP1.Send(Msg)) и освобождаем память (Free). Визуально здесь компонентов INDY не используем (на форме нет кнопочек, как с idHTTP).

  При работе над ПО SIB использовалась среда разработки Дельфи 7.0. Для придания SIB завершённого вида использовался редактор ресурсов Restorator 3.51, программа-редактор изображений ArtIcons 4.06, упаковщик исполняемых файлов UPX 1.95. Весь код данного ПО, кроме автокода модулей Дельфи и некоторых функций был написан автором. Функции, код которых был взят из сторонних источников следующие: HostToIP(Name: PChar):string; IPToHost(IP:PChar):string; PingAddress(hostname:PChar):integer.

  Данная статья и ПО были созданы в учебных целях. На данной стадии ни она сама, ни ПО на звание завершённого продукта не претендуют. ПО и его исходные коды можно использовать абсолютно свободно, не забывая лишь про автора. Статью можно дополнять, переопубликовывать, ссылаясь на первоисточник. Критика желательна и ожидаема. По малозначимым вопросам обращаться к автору.

Категория: Примеры | Добавил: dolphin (11.08.2009)
Просмотров: 5842 | Комментарии: 3 | Рейтинг: 4.8/4

Всего комментариев: 3
avatar
1
ДА где иммено,дай ССЫЛКУ!!!
avatar
2
А где исходники?
Интересно посмотреть, а то по статье программу восстановить невозможно...
avatar
3
Исходник есть в разделе исходники Delphi
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка

Вирусология, взгляд из Delphi



Статистика
HSDN :: Рейтинг сайтов WOlist.ru - каталог качественных сайтов Рунета Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 364
Форум: 1128/7979
Коментариев: 759
Новостей: 27

Статистика пользователей
Всего: 411
За неделю: 2
Вчера: 0
Сегодня: 0
Всего онлайн: 1
Гостей: 1
Пользователей: 0

delfcode.ru © 2008 - 2016 Хостинг от uCoz