(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Web-браузер на Delphi

Источник: pcnext
Ystas

Сегодня я решил рассказать, как с помощью Delphi можно написать свой браузер и работать он будет на основе Internet Explorer.

Начнем!

Самой главной частью нашей программы будет компонент WebBrowser, который ты сможешь найти на палитре компонентов во вкладке Internet.

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

Для удобства расположения компонента измени его свойство Align на AllClient в объектном инспекторе на вкладке Properties.

Теперь нам необходимо поле, в которое мы будем вводить адрес нужного нам ресурса, как правило, в таких случаях используются поля типа ComboBox, поэтому расположим такой компонент на своей форме с вкладки Standard.

Для удобства в нашем браузере необходимо использовать панели, на которых будут располагаться наши поля и кнопки. Для этого перейди на вкладку Win 32 и расположи на форме с этой вкладки компоненты CoolBar и два ToolBar . На компоненте CoolBar , будут находиться, компоненты ToolBar, которые можно будет перемещать по нему, а на ToolBar будут находиться поля для ввода и кнопки. Как ты заметил такая схема используется почти во всех приложениях Windows и в браузерах тоже, потому мы и не отходим от этого правила (это просто удобно).

Теперь вернемся к компоненту ComboBox 1, его перенесем на ToolBar 2, а на ToolBar 1 мы расположим кнопки управления.

Вот, что получилось у меня:

 

Теперь опишем событие для ComboBox, которое будет происходить после того как вы набрали адрес и нажали на кнопку Enter. Для этого в объектном инспекторе во вкладке Events, кликнем два раза по событию OnKeyDown и пишем:

if Key= VK_RETURN then
WebBrowser1.Navigate(ComboBox1.Text);

Если кнопка с кодом VK_RETURN(Enter) нажата, то компонент WebBrowser1, загружает адрес записанный в поле ComboBox1.

Теперь измени свойства компонента ToolBar1: AutoSize и ShowCaptions на true.
Кликай по нему же правой кнопкой и выбери пункт меню NewButton, он необходим для создания кнопок на панели. Создай пока четыре кнопки и измени их свойства Captions на: Назад, Вперед, Обновить и стоп.
Теперь пишем для каждой:

Назад:

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

Вперед:

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

Стоп:

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
WebBrowser1.Stop;
end;

Обновить:

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

Я думаю каждый знает, что обозначают эти кнопки в любом браузере.
Теперь можешь проверить свою  работу!

 

На моей форме ты можешь увидеть в нижней части две панельки, самая нижняя панель для вывода информации о ходе загрузки, а вторая для вывода информации о загрузке в виде полосы.
Находятся она на панели Win32 под именами StatusBar и ProgresBar, расположи их на форме и измени свойство Align на AllBottom, о том, как менять свойства компонента я уже говорил.

Чтобы они работали в обработчиках событий объекта WebBrowser1:

OnProgressChange и OnStatusTextChange пишем:

//Задаются максимальное значение и значение позиции (хода) загрузки
//для ProgressBar1

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;

//Вывожу информацию о ходе загрузки страницы в StatusBar1.

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
StatusBar1.SimpleText:=Text;
end;

Ну вот и все!

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 22.12.2006 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
erwin Data Modeler Navigator Edition r9.7 - Product plus 1 Year Enterprise Maintenance Commercial
SAP Crystal Reports 2008 INTL WIN NUL License
Microsoft Office для дома и учебы 2019 (лицензия ESD)
Oracle Database Personal Edition Named User Plus License
Quest Software. Toad for DBA Suite for Oracle
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
Corel DRAW - от идеи до реализации
Новости мира 3D-ускорителей
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100