Пример за разширяване на възможностите на TWebBrowser

Автор: Киселев Роман
LLC "Салон 2116"
Източник: Списание RSDN № 5-2005

Delphi среда

Компонентите с име TWebBrowser от VCL или WebBrowser от NET Framework 2.0 представляват голям интерес, тъй като предоставят възможност не само за показване на HTML документи, но и за автоматизиране на браузъра. Но ако компонентът System.Windows.Forms.WebBrowser предлага богат набор от инструменти за контролиране на поведението му, тогава минимумът, внедрен в TWebBrowser, освен това, реализиран чрез автоматично импортиране на библиотеката shdocvw.dll (Microsoft Internet Controls), ви кара да мислите как да модифицирате TWebBrowser.

Компонентът VCL TWebBrowser може да бъде реализиран за секунди, както следва. Когато Delphi работи, изберете Component | "Импортиране на компонент ...", импортиране на библиотеката с типове от shdocvw.dll - и компонентът е готов! Модулът SHDocVw_TLB.pas, създаден от средата по време на процеса на импортиране, е модулът SHDocVw.pas от стандартната дистрибуция на Delphi.

Оригиналните примерни тестове за тази статия се предоставят с файлове за проекти за BDS 2006. Въпреки това, в изходния код и ресурси не се използват функции на BDS 2006, които са несъвместими с Delphi 2005 и вероятно Delphi 7. Когато споменавам VCL, имам предвид изключително Win32 VCL, а не NET VCL. Освен това браузърът се позовава на Internet Explorer.

"Какво не ви устройва?"

Нека създадем форма Form1: TForm, чрез поставяне на компоненти върху него WebBrowser1: TWebBrowser, Edit1: TEdit за да въведете URL и бутона Бутон1: Бутон T, когато щракнете върху коя WebBrowser1: TWebBrowser (главният герой на нашата история) ще последва URL адреса. В манипулатора на щракване върху бутона ще използваме един от методите TWebBrowser.Navigate, за да покажем страницата с посочения URL от браузъра. Тя трябва да изглежда по следния начин: