Связка ActiveX - Internet Explorer : Программирование для всех. Языки программирования, программирование баз данных, технологии. Статьи для програмиста скачать бесплатно учебники книги документация форум : Статьи

Новая страница 1

А знаете ли вы, что на Delphi можно писать ActiveX компоненты? Конечно знаете. А что с их помощью можно взаимодействовать с Internet Explorer? Это может быть интересно для профессиональных вебмастеров, скажете вы, но я не согласен. "Простой" программист тоже может найти массу применений этому. Здесь будет описано одно из них. Все мы лазим (ходим и т.д.) по интернету. И вы тоже - раз читаете эти строки :). А не случалось ли вам, случайно где-то побывав, что-то прочитав и благополучно забыв адрес сайта через некоторое время вдруг понять, что там было именно то, что вам сейчас срочно понадобилось? Можно конечно посмотреть History браузера, можно залезть в кэш "руками" и попытаться найти там что-то. А можно написать компонент, который бы искал слова в файлах кэша (в общем случае в любых HTML-файлах) и выводил бы на просмотр требуемые файлы. Связать этот компонент с Эксплорером - и вперед. Что удобно - вся работа происходит в эксплорере: и поиск, и,естественно, просмотр. При этом для Delphi-программиста не нужны особые знания языка HTML, скриптовых языков и т.п. Достаточно знать несколько основных конструкций (а уж справочных руководств в интернете навалом - хотя бы на http://www.citforum.ru). Написанный 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>

     <BODY>

      <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>

И еще раз:

Открываем нашу страничку (в IE 4 и выше)
Если компонент зарегистрирован, он сразу показывается, если не зарегистрирован, то регистрируется и показывается. При этом:
После создания выдерживается пауза в полсекунды и запрашивается текущий каталог (и страничка и сам OCX-файл находятся в одном каталоге, который и будет текущим).
Если нужно открыть на просмотр какую либо страничку (выбранную пользователем в процессе работы из списка), то свойству компонента (при внедрении его в страничку правильнее будет называть его уже объектом) присваивается значение (имя файла), генерируется событие. Процедура-скрипт обработчик этого события читает свойство и отрывает требуемый файл.

Сегодня речь пойдет об одной интересной и полезной возможности языка С#, которая поможет нам в документировании кода. Она называется «XML документация» или «Документирующие комментарии XML». Это такие специальные теги XML, которые содержаться в комментариях и описывают свойства или методы в конкретном файле. Так вот, есть по крайней мере три веских причины, почему всегда следует заполнять XML комментарии.

Начиная с 5-ой версии, MySQL имеет возможность создавать курсоры. Курсор — это виртуальная таблица, предоставляющая альтернативный способ просмотра табличных данных. Курсор не содержит данных, а лишь ссылается на них из других таблиц. Из этого вытекает ряд особенностей, но об этом ниже.

Microsoft опубликовала подробности о сессиях Windows 7.

В преддверии конференции WinHEC компания Microsoft опубликовала подробный список сессий, которые пройдут в рамках конференции. Довольно-таки большое количество выступлений будет посвящено Windows 7, что не может не радовать. Принимая во внимание тот факт, что PDC и WinHEC разделяют несколько дней, а пройдут они в одном здании - Los Angeles Convention Center, - можно несколько дней поиграть в прятки, спрятавшись в какой-нибудь комнате, но зато бесплатно посетить WinHEC.