Розробка ASP-компонентів у середовищі Microsoft Visual Basic 6

Одна з найбільш потужних сторін технології ASP – це здатність використовувати компоненти plug-in від строну розробників, для того, щоб зробити ваш ASP-сайт здатним до виконання більшої кількості функцій. У цій статті і піде мова про розробку ActiveX-компонента, який ви зможете потім викликати з вашого коду ASP.


У прикладі ми розглянемо компонент, який буде повертати випадкову "Думка дня". Для того, щоб використовувати його в ASP, ми створимо об'єкт, викличемо метод, який повертає фразу випадковим чином і потім покажемо її відвідувачу, використовуючи Response.Write.

Створення проекту Visual Basic

Щоб почати роботу над нашим проектом запустіть Visual Basic і виберіть створення "ActiveX DLL".

Рис.1. Вибір проекту "ActiveX DLL"

У ASP, щоразу, коли ми використовуємо Server.CreateObject, ми повинні задати назву об'єкта або "ProgID", оскільки це належним чином відомо. Тому коли ми будуємо наш компонент, ми також повинні поставити нашому майбутнього об'єкту ProgID, який буде використовуватися для виклику з ASP.

Подивіться у Visual Basic Project Explorer (у верхньому правому куті вашого проекту). Зараз він показує, що ви маєте проект, званий "Project1", який містить єдиний клас на ім'я "Class1". Виберіть "Project1" і у вікні Properties змініть властивість "Name" на "MyComponent".

Тепер виберіть "Class1" і змініть його назву на "Thoughts" ("Думки").

Для створення ProgID Visual Basic комбінує назва проекту і класу, тому наш новий компонент має ProgID "MyComponent.Thoughts".

Методи і властивості

Давайте формувати метод, який повертає "Думка дня" викликає оператору:

Public Function GetThought() As String

GetThought = “I am not a fish.”

End Function


Ми використовуємо ключове слово "Public", що означає, що ми хочемо зробити цей метод доступним для всіх, хто захоче скористатися методом. Якщо ви замість Public вкажете Private, то звернення з ASP до методом GetThought () викличе помилку.

Перевірка того, що ми вже зробили

Один із найкращих шляхів уникнення будь-яких проблем з Visual Basic – установка автоматичного збереження проекту перед виконанням. Щоб задати цю опцію, виберіть потім зайдіть в меню "Tools-Options" і виберіть закладку "Environment". Встановіть або "Save Changes" (автоматично зберігати), або "Prompt To Save Changes" (запитати про збереження).

Рис.2. Налаштування середовища VB для автоматичного збереження проекту

Тепер, для тих, хто ще погано уявляє як використовувати відладчик, коротко пояснимо основні функції його роботи. Почнемо з того, що клацнемо на сірому полі зліва від рядка "GetThought =". Це називається "Установкою точки зупинки (breakpoint)", що скаже VB зробити в цьому місці зупинку. Ви можете використовувати цю метод, щоб налагоджувати ваші програми більш ефективно. Поки ж ми використовуємо це, щоб краще показати вам як функціонує наш додаток.

Рис.3. Установка точки зупину

Щоб запустити проект – натисніть кнопку "Play" на панелі інструментів або "гарячу клавішу" F5.

Коли ви запустите проект Visual Basic запитає інформацію, необхідну для налагодження. Виберіть "wait until components are created" та натисніть OK для запуску програми.

Рис.4. Вікно властивостей проекту

Запуск компонента

Для того, щоб перевірити чи працює наш компонент, нам потрібно створити певний ASP-код. У текстовому редакторі створимо файл ASP і вставимо в нього наступне:

<HTML>

<HEAD>

</HEAD>

<BODY>

<%

set object = Server.CreateObject ("MyComponent.Thoughts")

response.write object.GetThought

set object = Nothing

%>

</BODY>

</HTML>


Збережіть сторінку і виконайте її.

Відладчик Visual Basic зупиняється зупину, виберіть у меню "View-Immediate Window" і введіть:

?GetThought


Коли ви натиснете Enter VB поверне значення змінної в GetThought.

Рис.5. Налагодження проекту

Тепер натисніть F5 або кнопку "Play", щоб продовжити виконання програми. У браузері ви також повинні побачити рядок тексту, яку повернув наш компонент.

Рис.6. Результат роботи програми

Додавання властивостей до компоненту

Додамо до нашого компоненту додаткове властивість, яка буде розділяти повертаються "думки" на серйозні і забавні. Назвемо його "AmusingComment" і створимо змінну, яка може містити булево значення:

Private m_AmusingComment as Boolean


По-замовчуванню, при створенні об'єкта VB буде встановлювати це властивість в False, але якщо ми захочемо по-замовчуванню мати True, то зробимо це в такий спосіб: створимо "конструктор" для нашого класу. Виберіть "Class" у лівому списку вікна коду, потім у правому списку виберіть "Initialize" і введіть наступний код:

Рис.7. Конструктор класу

Тепер давайте визначати властивості методу "Get".

Public Property Get AmusingComment() As Boolean

AmusingComment = m_AmusingComment

End Property


Для того, щоб ми могли змінити значення змінної з ASP, буде потрібно властивість "Let":

Public Property Let AmusingComment(newVal As Boolean)

m_AmusingComment = newVal

End Property


Висновок

Ось, власне, і все, що було потрібно зробити для нашого компонента. Тема створення VB-компонентів для роботи з ASP досить обширна і буде ще неодноразово висвітлюватися на сторінках нашого сайту. Спасибі за увагу!

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*