Связка ActiveX - Internet Explorer
А знаете ли вы, что на Delphi можно писать ActiveX компоненты?
Конечно знаете. А что с их помощью можно взаимодействовать с Internet Explorer?
Это может быть интересно для профессиональных вебмастеров, скажете вы, но я не
согласен. "Простой" программист тоже может найти массу применений этому. Здесь
будет описано одно из них. Все мы лазим (ходим и т.д.) по интернету. И вы тоже -
раз читаете эти строки :). А не случалось ли вам, случайно где-то побывав,
что-то прочитав и благополучно забыв адрес сайта через некоторое время вдруг
понять, что там было именно то, что вам сейчас срочно понадобилось? Можно
конечно посмотреть History браузера, можно залезть в кэш "руками" и попытаться
найти там что-то. А можно написать компонент, который бы искал слова в файлах
кэша (в общем случае в любых HTML-файлах) и выводил бы на просмотр требуемые
файлы. Связать этот компонент с Эксплорером - и вперед. Что удобно - вся работа
происходит в эксплорере: и поиск, и,естественно, просмотр. При этом для
Delphi-программиста не нужны особые знания языка HTML, скриптовых языков и т.п.
Достаточно знать несколько основных конструкций (а уж справочных руководств в
интернете навалом - хотя бы на http://www.filearea.co.il). Написанный
ActiveX-компонент вставляется в HTML-страничку. Вот пример простейшей странички
<HTML>
<HEAD>
<TITLE>Поиск</TITLE>
</HEAD> <BODY>
<P ALIGN=CENTER>
<OBJECT ID="findword1" - {при помощи этого тэга компонент вставляется в
страничку}
CLASSID="CLSID:47E50425-E611-11D3-970A-4854E82B17E6"
CODEBASE="C:PATHFINDWORDS.OCX">
</OBJECT>
</P>
</BODY>
</HTML>
В этом примере ActiveX-компонент, находящийся в файле
C:PATHFINDWORDS.OCX вставляется в HTML-страничку. Но важно отметить, что эта
страничка откроется только в Microsoft Internet Explorer версии 4 и старше.
Пишут, что третий эксплорер тоже поддерживает тэг <OBJECT>, но сам не
пробовал, не знаю. Браузеры Netscape, Opera и какие еще там бывают, его не
поддерживают.
Итак, тэг <OBJECT> вставляет в страничку
ActiveX-компонент. Его атрибут CLASSID указывает идентификатор класса нашего
компонента. При создании в Delphi компонента с нуля ему автоматически
присваивается этот идентификатор класса. ID="findword1" - имя объекта. Здесь
можно писать любое имя. По нему мы в дальнейшем будем ссылаться на наш компонент
в теле странички из скриптов-процедур обработки событий. Далее, для того, чтобы
наш компонент мог использоваться прикладными программами, он должен быть
зарегистрирован в реестре. Зарегистрировать его можно программой regsvr32,
которая по умолчанию находится в каталоге [System]. Например так: [regsvr32
C:PATHFINDWORDS.OCX]. Если при открытии странички Explorer не находит в
реестре указанный компонент, то он ищет его в местоположении, указанном
атрибутом CODEBASE. Здесь может быть полный путь к файлу, если он находится на
вашем жестком диске или даже URL-адрес (со всеми сопутствующими атрибутами, как
то http:// и т.д.).Т.е, если эксплорер встретил ссылку на компонент, а этого
компонента нет на вашей машине, он может загрузить его из интернета с указанного
адреса. Кстати, атрибут CLASSID - обязательный, именно по нему производится
"идентификация" класса. А атрибут CODEBASE - необязательный. В случае, когда он
опущен, если компонент уже зарегистрирован в системе, то он отобразится в вашей
страничке, если не зарегистрирован - страничка будет пустой. И наконец если
эксплорер сам регистрирует компонент, он переписывает файл OCX в папку
[WindowsDownloaded program files].
Для того, чтобы вручную не писать скрипты подсоединения ActiveX
компонентов, я советую скачать программу Microsoft ActiveX Control Pad отсюда. Эта
программа предназначена для внедрения ActiveX-компонентов в HTML-странички.
После ее работы определение компонента выглядит примерно так:
<OBJECT
ID="findword1"
CLASSID="CLSID:47E50425-E611-11D3-970A-4854E82B17E6"
CODEBASE="C:PATHFINDWORDS.OCX">
<PARAM
NAME="Visible" VALUE="-1">
<PARAM NAME="AutoScroll"
VALUE="0">
<PARAM NAME="AutoSize" VALUE="0">
<PARAM
NAME="AxBorderStyle" VALUE="1">
<PARAM NAME="Caption"
VALUE="findword">
<PARAM NAME="Color"
VALUE="2147483663">
<PARAM NAME="Font" VALUE="MS Sans
Serif">
<PARAM NAME="KeyPreview" VALUE="0">
<PARAM
NAME="PixelsPerInch" VALUE="96">
<PARAM NAME="PrintScale"
VALUE="1">
<PARAM NAME="Scaled" VALUE="-1">
<PARAM
NAME="DropTarget" VALUE="0">
<PARAM NAME="HelpFile"
VALUE="">
<PARAM NAME="DoubleBuffered" VALUE="0">
<PARAM
NAME="Enabled" VALUE="-1">
<PARAM NAME="BiDiMode"
VALUE="0">
<PARAM NAME="Cursor" VALUE="0">
<PARAM
NAME="filename" VALUE="nothing">
</OBJECT>
Т.е. эта программа сама подставляет полное определение
компонента (его CLASSID, например). Правда, полученный код иногда приходится
подправлять вручную. Например может потребоваться убрать явное указание высоты и
ширины объекта.
Теперь подходим к самому главному: как сделать сам компонент
(чтобы было что вставлять в нашу страничку :). Итак, в Delphi делаем
NewActiveXActive form. В окошке Active Form Wizard выбираем Threading
model=Apartment. Другие threading models не работают с IE 4. Выглядит это так:
компонент в страничке открывается, но иногда вдруг выскакивает Access violation.
(обычно на событие Create). Модель же Both работает с IE 5. Флажок "Include
Design-Time licence" лучше не устанавливать. Дальше открывается новая форма, где
вы можете размещать свои кнопки-текстбоксы, определять реакцию на события и т.д.
Далее будут описаны некоторые хитрости. Например, нужно хранить
некоторые данные во внешнем файле. Я столкнулся со следующим: мой компонент на
разных машинах размещал свои файлы в разных местах: на одной в каталоге Windows,
на другой - на рабочем столе. Был найден такой выход: пусть страничка по
требованию компонента возвращает ему каталог, в котором она находится. Для этого
на форму я поместил PageControl, сделал закладки невидимыми и на OnShow (у формы
ActiveX компонента нет события OnShow) одной из страниц поставил генерацию
собственного события OnWantDir. А в теле HTML-странички соответственно реакцию
на него:
<SCRIPT LANGUAGE="VBScript">
<!--
Sub
findword1_OnWantDir()
findword1.page_location = location.href
end
sub
-->
</SCRIPT>
Далее, это событие OnShow происходит сразу
после создания экземпляра компонента. Так вот, если событие OnWantDir
генерировать непосредственно в нем (в OnShow), то видимо что-то в недрах Windows
не успевает провернуться и машина виснет. Поэтому пришлось повесить на форму
таймер, на OnShow таймер запускать, и уже на OnTimer как раз и вызывать свое
событие OnWantDir. Интервал у таймера я поставил в полсекунды. Конечно можно
было бы хранить свои файлы например в каталоге [Windows], но почему-то функция
GetWindowsDirectory при вызове из ActiveX-компонента возвращала ошибку, хотя тут
же нормально отрабатывала из обыкновенного приложения (exe). То же и с
GetSystemDirectory и GetTempDirectory. Кто не знает как делать собственные
свойства и события - кликайте сюда.
Как сделать компонент тиражируемым? Чтобы пользователь смог
работать с ним сразу же, не запуская никаких дополнительных программ, не
указывая всяких-разных путей и т.д. Вот пример HTML-странички (а здесь его
скриншот):
<html>
<HEAD>
<title>Поиск</title>
<SCRIPT
LANGUAGE="VBScript">
<!--
Sub Procedure1()
location.href =
findword1.NewStroke
{Получить от компонента имя файла и открыть его для
просмотра. Эта процедура запускается при возникновении события OnDocClick.
Location - объект Explorer'а (см. документацию по VBScript)}
end
sub
-->
</SCRIPT>
</HEAD>
<SCRIPT
LANGUAGE="VBScript">
<!--
Sub
findword1_OnWantDir()
findword1.page_location = location.href
{Получить
текущий каталог, т.е. свойству page_location объекта присвоить местоположение
нашей странички}
end sub
Sub findword1_OnDocClick()
{При
возникновении события OnDocClick вызвать процедуру Procedure1 (открыть файл для
просмотра)}
call Procedure1()
end
sub
-->
</SCRIPT>
<p align = "center">
<OBJECT
ID="findword1"
CLASSID="CLSID:47E50425-E611-11D3-970A-4854E82B17E6"
CODEBASE="findwords.ocx">
{Здесь
просто имя файла без пути. Explorer зарегистрирует компонент невидимо для
пользователя, взяв его из текущеего каталога (страничка и файл OCX находятся в
одном каталоге)}
<PARAM NAME="Visible" VALUE="-1">
<PARAM
NAME="AutoScroll" VALUE="0">
<PARAM NAME="AutoSize"
VALUE="0">
<PARAM NAME="AxBorderStyle" VALUE="1">
<PARAM
NAME="Caption" VALUE="findword">
<PARAM NAME="Color"
VALUE="2147483663">
<PARAM NAME="Font" VALUE="MS Sans
Serif">
<PARAM NAME="KeyPreview" VALUE="0">
<PARAM
NAME="PixelsPerInch" VALUE="96">
<PARAM NAME="PrintScale"
VALUE="1">
<PARAM NAME="Scaled" VALUE="-1">
<PARAM
NAME="DropTarget" VALUE="0">
<PARAM NAME="DoubleBuffered"
VALUE="0">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM
NAME="BiDiMode" VALUE="0">
<PARAM NAME="Cursor"
VALUE="0">
<PARAM NAME="filename" VALUE="nothing">
<PARAM
NAME="page_location"
VALUE="">
</OBJECT>
</p>
</BODY>
</html>
И еще раз: 1) открываем нашу страничку (в IE 4 и выше); 2) если
компонент зарегистрирован, он сразу показывается, если не зарегистрирован, то
регистрируется и показывается. При этом: 3) после создания выдерживается пауза в
полсекунды и запрашивается текущий каталог (и страничка и сам OCX-файл находятся
в одном каталоге, который и будет текущим). 4) если нужно открыть на просмотр
какую либо страничку (выбранную пользователем в процессе работы из списка - см.
скриншот), то
свойству компонента (при внедрении его в страничку правильнее будет называть его
уже объектом) присваивается значение (имя файла), генерируется событие.
Процедура-скрипт обработчик этого события читает свойство и отрывает требуемый
файл.
Ну вот пока все об этом. Надеюсь обновлять эту страничку
регулярно. Если есть вопросы - пишите
|
