компьютерная помощь
Четверг, 10.07.2025, 03:44
VIKS.UCOZ.NET
Главная Регистрация Вход
Приветствую Вас, Гость · RSS
Меню сайта
Форма входа
Погода
Яндекс.Погода
 Cвой браузер на Delphi
Будем писать наш браузер на движке GECKO на котором работает мозила фаерфокс как интегрировать его в среду разработки

  1. Сначала нам нужно скачать и установить Mozilla Control(ActiveX). Скачать
  2. ЕХЕ файл! нужно запустить, и установить контрол, а потом в дельфах: "Component" -> "Import ActiveX Control" там выбрать из списка "MozillaControl 1.0 Type Library" и нажать кнопку "Install"
  3. Теперь я предлагаю скачать сам движок. Скачать
  4. Установка компонентов в среду Delphi 7

  5. ПЕРЕЗАПУСТИТЬ  Delphi


Delphi7_Lite_Full_Setup_v7.3.3.4V2_(2010-04-22)   ОПИСАНИЕ

 Delphi7 Lite Full Edition  v7.3.4.0V3  (2010-12-01)  ЗДЕСЬ

Адрес оф.сайта  http://delphi7lite.spaces.live.com/


да, по умолчанию в среде Delphi есть компонент webbrowser расположеный на панели internet
он основан на движке internet explorer
==========================================================================================
0) в Object TreeView выделяем Form1
   переходим в Object inspector -- Properties -- Caption (даем название нашему проекту)


1) ActiveX выбираем компонент мозила браузер

2) Standart кидаем Panel
   выбираем Object inspector -- Properties -- Align = AlTop и наша панель растягивается по всему верху.
   Object inspector -- Properties --BevelOuter = byNone убираем границы нашей панельки чтобы красивей


3) выделяем наш веббраузер и растягиваем его по всей клиентской части :
   Object inspector -- Properties -- Align = AlClient

4) размещаем на панели несколько компонентов :
   вкладка Standart добавляем кнопки (Button) добавляем адресную строку в браузер Edt1(ab)
   выделяем Edt1    Object inspector -- Properties -- Text = пусто
   Чтобы edt1 переходил на указаный адрес по клавише enter пишем в:
   Object inspector -- Events в OnKeyPress = if key=char(13) then mzlbrwsr1.Navigate(edt1.Text);

5) для того чтобы браузер мог открывать новые окна и переходить по ссылкам открываем:
   в Object TreeView выделяем mzlbrwsr1 переходим в Object inspector -- Events-- OnNewWindow2
   и прописываем там следующее:
  
  procedure TForm1.mzlbrwsr1NewWindow2(ASender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
  var
  newform:Tform1;


begin
  newform:=Tform1.Create(self);
  newform.Show;
  ppDisp:=newform.mzlbrwsr1.DefaultDispatch;

end;

end.

6) чтобы привязать компонет edt1 к нашему браузеру (чтобы при переходе на странице
   в адресной строке менялись ссылки а не одна была которую первоначально забили)
   в Object TreeView выделяем mzlbrwsr1 переходим в Object inspector -- Events--OnNavigateComplete2
   и прописываем следующее:

   edt1.Text:=url;

7) кнопка ОБНОВИТЬ в Object TreeView выбираем Button1 щелкаем 2 раза и прописываем: mzlbrwsr1.Refresh;
  
   задаем домашнюю страницу в компьютере пуск -панель управления- свойства обозревателя.

   кнопка НАЗАД  прописываем:    mzlbrwsr1.GoBack;
   кнопка ВПЕРЕД прописываем:    mzlbrwsr1.GoForward;
   кнопка ДОМОЙ  прописываем:    mzlbrwsr1.GoHome;
   кнопка ОБНОВИТЬ прописываем:  mzlbrwsr1.Refresh;

8) добавляем компонент поиск от gogle добавляем edt2(ab)

Object inspector -- Events в OnKeyPress:
if key=char(13) then mzlbrwsr1.Navigate('http://www.google.ru/search?q='+edt2.Text+'&ie=utf-8&oe=utf-8&aq=t&rls=');

9) кидаем на браузер со вкладки stsndart MainMenu щелкаем 2 раза по этой форме открывается панель в которой пишем

ФАЙЛ ПРАВКА СЕРВИС ЗАКЛАДКИ И Т.Д в каждый из этих пунктов можно добавить подпункты открыть выход добавить и т.д

10) добавляем в наш браузер компонент ProgressBar который находится на кладке win32 он будет показывать полосу загрузки страницы.
    для этого со вкладки Standart кидаем Panel
    выбираем Object inspector -- Properties -- Align = alBottom и наша панель растягивается по всему низу.
    Object inspector -- Properties --BevelOuter = byNone убираем границы нашей панельки чтобы красивей
 
в Object TreeView щелкаем на  mzlbrwsr1
переходим в Object inspector -- Events -- OnProgressChange :

 pb1.Max:=ProgressMax;
 pb1.Position:=Progress;

11) добавляем со вкладки Win32 StatusBar располагаем его над ProgressBar.

StatusBar будет давать нам в браузере различные текстовые подсказки

в Object TreeView щелкаем на  mzlbrwsr1
переходим в Object inspector -- Events -- OnStatusTextChange :  statusbar1.SimpleText:=Text;



12) ПОЛУЧАЕМ EXE ФАЙЛ  Открывай проект, жми Ctrl+F9, и ищи его в папке, в которой лежит исходник.

  

  
  

самый простой вариант с компонентом webbrowser
===========================================
1 TOOLBAR В САМОМ ВЕРХУ
2 под ним веб браузер
3 добавляем адресную строку edit
4 сразу за ней щелкаем правой кнопкой мыши выбираем новая кнопка
выбираем он-клик и прописываем  код: webbrowser.Navigate(edt1.Text);
5 добавляем другие кнопки правой кнопкой мыши если выбрать сепаратор между кнопками будет пробел
свойства кнопок прописываем в 0н-клик
============================================

ComboBox --- строка для ввода сайтов в  браузере  

CoolBar---позволяет строить перестраиваемые панели, состоящие из полос (bands).
В полосы могут включаться инструментальные панели ToolBar и любые другие оконные компоненты: окна редактирования, панели и т.п.
Каждый из этих компонентов автоматически снабжается средствами перемещения его пользователем в пределах окна CoolBar

 ToolBar  можно, в принципе, осуществлять обычным способом — переносом их из палитры компонентов. Но для занесения кнопок имеется и более простой вариант.
 Щелкните на ToolBar правой кнопкой мыши и выберите из всплывшего меню команду "New Button". На форме появится очередная кнопка — объект типа TToolButton.
 Это не совсем обычная кнопка, так как в дальнейшем вы увидите, что внешне она может не походить на кнопку. Ее вид и поведение определяется ее свойством Style,
 которое по умолчанию равно tbsButton — кнопка. Другие возможные стили мы рассмотрим позднее. А как кнопка этот объект очень похож на кнопку SpeedButton.
 Только изображение на кнопке определяется не свойством Glyph, а свойством ImageIndex. Оно определяет индекс изображения,
 хранящегося во внешнем компоненте ImageList (см. раздел 9.3). Указание на этот компонент может задаваться такими свойствами компонента ToolBar,
 как Images, DisabledImages (указывает на список изображений кнопок в недоступном состоянии) и HotImages (указывает на список изображений кнопок в моменты,
 когда над ними перемещается курсор мыши).
Copyright MyCorp © 2025
Ваш ip
Узнай свой IP адрес

Статистика
Зарег. на сайте
Всего: 76
Новых за месяц: 0
Новых за неделю: 0
Новых вчера: 0
Новых сегодня: 0
Из них
Администраторов: 2
Модераторов: 0
Проверенных: 0
Обычных юзеров: 74
Из них
Парней: 66
Девушек: 10

Онлайн всего: 1
Гостей: 1
Пользователей: 0




Хостинг от uCoz