7 Створення і використання компонентів com
Постановка задачі: створити компонент-сервер COM з методом, який повертає число помножене на 2, створити клієнта COM, який використовує об’єкт COM у C++ Builder і VBA.
Послідовність виконання:
Спочатку створюємо і реєструємо бібліотеку типів Typelib2
(Очистіть папку з минулими проектами.)
1 File/Close All
2 File/New/Other/ActiveX/Type Library
3 Добавляємо новий інтерфейс: New Interface
4 Добавляємо новий метод: New Method
5 Добавляємо в метод параметр для запису:
Parameters/Add/Type = double, Modifier=In
6 Добавляємо в метод параметр для читання:
Parameters/Add/Type =double*, Modifier=Out
7 Refresh Implementation
8 Реєструємо бібліотеку: Register Type Library
Створюємо COM об’єкт
9 Створюємо додаток типу EXE: File/New/Application
10 Створюємо COM об’єкт: File/New/Other/COM Object
11 Називаємо CoClass: CoClass Name=My
12 Вказуємо раніше створений інтерфейс:
Interface/List/Add/Interface1(знайти у списку)
13 Refresh Implementation
14 У метод TMyImpl::Method1 вставте код:
{
*Param2=Param1*2;
return S_OK;
}
15 Refresh Implementation
16 Run
17 File/Save Project As...
18 File/Close All
Створюємо COM клієнта
19 Створюємо додаток: File/New/Application
20 Помістіть на форму поле і кнопку.
21 Добавте до модуля cpp:
#include "Project1_TLB.cpp"
22 В метод TForm1::Button1Click вставте код:
{
TCOMInterface1 obj;
obj=Project1_tlb::CoMy::Create();
double x;
obj->Method1(2,&x);
Edit1->Text=AnsiString(x);
}
23 File/Save Project As... Назвіть модуль Client, а проект ProjectClient.
24 Run.
Повинен появитись результат: 4.
Створюємо COM клієнта у VBA
25 На форму добавляємо поле і кнопку.
26 Вибираємо створену бібліотеку типів:
Tools/References/Project1 Library
27 Записуємо код:
Private Sub CommandButton1_Click()
Dim obj As New My
Dim x As Double
obj.Method1 2, x
TextBox1.Text = x
End Sub
28 Run
Повинен появитись результат: 4.
8 Створення компоненту ActiveX у C++ Builder
Постановка задачі: створити і використати ActiveX компонент на основі класу VCL TButton.
Послідовність виконання:
1 Закрити все: File/Close All
2 Добавити новий ActiveX компонент: File/New/Other.../ActiveX Control
3 Вибрати VCL клас, на основі якого створюється ActiveX компонент і ім’я ActiveX компоненту:
VCL Class Name: TButton,
New ActiveX Name: ButtonX,
Натиснути OK.
4 Зберегти проект: File/Save Project As...
5 Зареєструвати ActiveX сервер: Run/Register ActiveX Server
Використання створеного ActiveX компоненту ButtonX
Послідовність виконання:
1 Відкрити MS Excel
2 Вибрати Сервис/Макрос/Редактор Visual Basic
3 Вставити нову форму: Insert/User Form
4 Добавити додатковий компонент ButtonX: Tools/Additional Controls, вибрати ButtonX Control
5 Добавте компонент ButtonX1 на форму
6 Відкрити код програми: View/Code
7 Добавте в код процедуру (див. рис.):
Private Sub ButtonX1_OnClick()
ButtonX1.Caption = "Hello"
End Sub
8 Виконати програму: Run/Run
Відміна реєстрації ActiveX серверу ButtonX
Послідовність виконання:
1 Відкрити збережений проект у C++ Builder: File/Open Project.../ButtonXControl1.bpr
2 Відмінити реєстрацію: Run/Unregister ActiveX Server