Браузер собственными руками в Delphi

29 июля 2009, 11:50 дп |

Category:

Для того, чтобы создать WEB –браузер своими руками, необходимо для начала запустить Delphi. Именно данная программа позволяет довольно быстро и без особых вопросов написать свой собственный браузер. После запуска, необходимо найти закладку «Internet», в которой должен быть компонент «WebBrowser». Однако если версия Delphi не пятая, а меньше, то подобного компонента может и не быть. Также такой компонент может отсутствовать в том случае, если при установке, вы отказался от Интернет-компонентов, которые ставятся по умолчанию.

Далее необходимо выбрать из меню «Component» пункт «Import ActiveX Control», после чего откроется окно. Потом нужно найти строку «Microsoft Internet Controls (Version 1.1)», на самом деле версия может быть разной, но это не имеет большого значения. Теперь нажимаем кнопку «Install», откроется следующее окно, в котором нужно нажать «OK».

Затем появится запрос на компиляцию пакета, даем согласие, и Delphi перекомпилирует нужные файлы, а также установит компонент для дальнейшей работы с браузером. Потом появится окно, в котором будет сообщение об успешной установке нового компонента. Теперь необходимо нажать «OK» и закрыть все окна, запущенные Delphi. Для этого нужно выбрать в меню «File» пункт «Close All». Теперь у нас появился компонент «WebBrowser», который расположен на странице палитры компонентов «ActiveX».

Как можно заметить, использовать мы будем «Microsoft Internet Controls», что означает применение движка, уже установленного на компьютере Internet Explorer. Это означает, что новый браузер будет работать с такими же болезнями имеющегося движка. Единственное, что будет являться положительным моментом – это то, что интерфейс будет сделан по вашему вкусу и цвету.

Теперь можно приступить к непосредственному программированию. Для начала создаем новый проект («File» -> «New Application»), меняем имя заголовка и ставим свою иконку. Дальше устанавливаем на форму компонент «WebBrowser», который находится на закладке «ActiveX» или «Internet», после чего появится «белый квадрат» с заголовком WebBrowser1. После этого накладываем на форму «CoolBar», находящийся на закладке палитры компонентов «Win32″. Данная панель должна выровняться по верхнему краю на нашей форме. Теперь выделяем WebBrowser1 и переходим в Object Inspector. Нажимаем на свойства «Align» и в выпадающей меню выбираем пункт «alClient», после чего «WebBrowser» должен занять все свободное место формы.

Теперь накладываем на CoolBar1, который был недавно установлен на форму, панель «ToolBar», находящаяся в закладке «Win32″, а потом «ComboBox» из закладки «Standart». Все это необходимо сделать путем размещения внутри CoolBar1, иначе ничего не получится. Далее выделяем CoolBar1 и переходим в ObjectInspector. Здесь нужно изменить строку «AutoSize» на «true», которая по умолчанию установлена как «false».

Если что-то получается не так, то лучше прочитать статью заново или спросить на форуме delphi. Если проблем не возникло, то переходим к следующему пункту: выделяем ComboBox1 и переходим в ObjectInspector, где выделяем закладку «Events» и нажимаем двойным щелчком на строку «OnKeyDown», данное действие производится в правой половине строки. Установим также на форму «OpenDialog» из закладки «Dialogs». Теперь двойным щелчком нажимаем на кнопку «Открыть», и Delphi создаст автоматически процедуру, вызываемую при нажатии данной кнопки.

Теперь можно запустить программу и с помощью данной кнопки открыть любой файл на диске. Теперь необходимо также сделать остальные кнопки. После чего можно считать браузер готовым. Изучив Delphi досконально, можно украсить браузер картинами, а также прибавить дополнительные возможности.

Источник – Форум программистов, cyberforum.ru

Popularity: 3%