Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 2
Всего онлайн: 2
Зарегистрировано юзеров: 6358
Комментариев на сайте: 645
Новый юзер: Realtyvaday



Последние комментарии
c
Aqel прокомментировал "Урок 71 - Работа с сжатыми файлами":
GZip псевдоархив, на мой вопрос тоже не отвечают, как распаковать отдельные файлы/папки...
Pingitrus прокомментировал "Урок 71 - Работа с сжатыми файлами":
Есть еще кто нибудь живой на этом сайте, кто сможет помочь? Так то все работает, zip и rar распаковывает, но у меня есть файл dat который сжат GZip, почему то его не удается распаковать или так не получится так как этот файл не является архивом или является?)) пишет ошибку что неверная функция



Мы в соцсетях
c
Delphi
Урок 35 - Создаем Веб браузер

   В этом уроке мы напишем свой интернет браузер на основе Internet Explorer.

   Нам понадобится ToolBar со вкладки Win32 и WebBrouser на вкладке Internet, кидаем все это на форму и сразу изменим свойство Align на alClient.

   Далее нам понадобится адресная строка и кнопка перехода, кидаем Edit на ToolBar и добавляем кнопку, кликнув правой кнопкой по ToolBar и выбрав New Button. Располагаем ее вот так:

Расположение


   Создаем обработчик события (кликам 2 раза на кнопочку) и пишем код:
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  WebBrowser1.Navigate(Edit1.Text); //Переходим на новую страницу
end;


Страница


   Вот загрузилась страница, все отображается правильно, попробуйте открыть какую-нибуть большую, сложную страницу, будет полный кавардак. Дело в том что Delphi7 выпущен в 2002 году и в те времена не было HTML5, CSS3 и прочих новшеств, компонент их не понимает. Самое плохое то, что он не обновляется в новых версиях Delphi.

   Теперь добавим возможность возврата на предыдущую страницу и вперёд. Добавляем разделитель (New Separator) и 2 кнопочки:

Расположение


   В обработчике события первой кнопки пишем:
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  WebBrowser1.GoBack; //Назад
end;
   В обработчике события второй:
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
  WebBrowser1.GoForward; //Вперёд
end;
   Ну и добавим кнопочки "Обновить", "Стоп", "Домой". Создадим еще 3 кнопки и 2 разделителя, разместим все вот так:

Расположение


   В первой пишем:
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
  WebBrowser1.Refresh; //Обновить
end;
   Во второй:
procedure TForm1.ToolButton54Click(Sender: TObject);
begin
  WebBrowser1.Stop; //Стоп
end;
   В третьей:
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
  WebBrowser1.GoHome; //Домой
end;
   Ну вот и все, этот компонент больше бы подошёл, например для отображения новостного блока в ваших программах, для более глобальных задач больше подойдет новый компонент TChromium, его нет в числе стандартных компонентов, он устанавливается отдельно и работа с ним выходит за рамки данной статьи.

Удачи!
Встретимся в следующем уроке!


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 9 Мая 2013
Просмотров:

Урок 34 - Шифрование информации Урок 36 - Взаимодействие с веб страницей

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил(а): pukkup74 [Новичок] Дата: 2013-10-31
Мне очень понравилось! СпС!




аватар Добавил(а): ArmanDelfi [Новичок] Дата: 2015-02-22
Скинь ссылку пажалуста