Використання створеної форми ActiveFormX

Послідовність виконання:

1 Відкрити MS Excel

2 Вибрати Сервис/Макрос/Редактор Visual Basic

3 Вставити нову форму: Insert/User Form

4 Добавити додатковий компонент ActiveFormX: Tools/Additional Controls, вибрати ActiveFormX Control

5 Добавте компонент ActiveFormX на форму

6 Виконати програму: Run/Run (див.рис.)

Робота з компонентами-серверами COM MS Word і MS Excel

Постановка задачі: створити додаток, який використовує компоненти-сервери COM MS Word і MS Excel.

Послідовність виконання:

1 Створюємо додаток: File/New/Application

2 Добавте на форму компоненти TWordApplication, TExcelApplication, TExcelWorksheet.

3 Створіть функцію-обробник події OnCreate форми Form1:

void __fastcall TForm1::FormCreate(TObject *Sender){WordApplication1->Connect();//з’єднатись з серверомWordApplication1->set_Visible(true);//зробити видимимTVariant Visible=true;WordApplication1->Documents->Add(EmptyParam,EmptyParam,EmptyParam,Visible);//добавити документWordApplication1->Selection->InsertAfter(TVariant("Hello!\n"));//вставити "Hello!"TVariant FileName="hello.doc";//зберегти документWordApplication1->ActiveDocument->SaveAs(&FileName);WordApplication1->Disconnect();//роз’єднатись з сервером ExcelApplication1->Connect();//з’єднатись з сервером//добавити робочу книгуExcelApplication1->Workbooks->Add(EmptyParam,0);//в активну комірку записати число 1ExcelApplication1->ActiveCell->set_Value(TVariant(1));//в комірку A2 записати число 2ExcelApplication1->get_Range(TVariant("A2"),EmptyParam)->set_Value(TVariant(2));//з’єднатись з серверомExcelWorksheet1->ConnectTo(ExcelApplication1->ActiveSheet);//створити вказівник на комірку A3Excel_2k::RangePtr r=ExcelWorksheet1->get_Range(TVariant("A3"),EmptyParam);//в комірку A3 записати число 3r->set_Value(TVariant(3));//вказівник вказує на комірку (4,1) (або "A4")r=ExcelWorksheet1->Cells->get__Default(TVariant(4),TVariant(1));//в комірку (4,1) записати число 4r->set_Value(TVariant(4));TVariant FileName2="hello.xls";//зберегти робочу книгуExcelApplication1->ActiveWorkbook->SaveAs(FileName2,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,0,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);ExcelWorksheet1->Disconnect();//роз’єднатись з серверомExcelApplication1->Disconnect();//роз’єднатись з сервером}

4 Збережіть усе: File/Save All

5 Виконайте програму: Run.

Створення компонентів CORBA

Постановка задачі: створити компонент-сервер CORBA з методом, який повертає квадрат числа, створити клієнт CORBA, який використовує об’єкт CORBA.

Послідовність виконання:

 

Створення сервера CORBA

Перед початком роботи установіть Borland VisiBroker for C++ 4.5 в папку c:\Inprise\vbroker

 

1 Закрийте існуючі проекти: File/Close All

2 Вибрати прапорці на View/Toolbars/CORBA і Tools/VisiBroker SmartAgent

3 Створіть CORBA сервер: File/New/Other/Multitier/CORBA Server

4 Виберіть тип серверу: Console Applcation та добавте новий IDL файл: Add New IDL File

5 У файл з розширенням.idl вставте код:

module MyModule

{

interface My

{

float f(in float x);

};

};

6 Збережіть усе: File Save All, назвіть файл.idl MyServ, а проект Server

7 Вкажіть шлях до бібліотек vboker: Project/Options/Directories|Conditionals

Натисніть кнопку "..." справа від Include Path і виправте $(VBROKERDIR)\include на C:\Inprise\vbroker\include

Натисніть кнопку "..." справа від Library Path і виправте $(VBROKERDIR)\lib на C:\Inprise\vbroker\lib

8 Натисніть кнопку New CORBA Object Implementation

9 Виберіть Interface Name: MyModule::My, та виберіть Show Updates

10 У вікні Project Updates натисніть Ok

11 Змініть реалізацію функції f наступним чином:

CORBA::Float MyImpl::f(CORBA::Float _x)

{

return (_x*_x);

}

12 Скомпілюйте проект: Project/Build Server

 

Створення клієнта CORBA

Послідовність виконання:

1 Закрийте існуючі проекти: File/Close All

2 Створіть CORBA клієнт: File/New/Other/CORBA Client

3 Виберіть Application Type: Windows Application, добавте файл (Add IDL Files) MyServ.idl

4 Добавте на форму компоненти поле Edit і кнопку Button

5 File/Save All

6 Вкажіть шлях до бібліотек vboker

7 Натисніть кнопку Use CORBA Object (при помилці добавте в файл idl пустий рядок)

8 Виберіть Interface Name: MyModule::My

9 Добавте обробник події OnClick для Button1:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Edit1->Text=my->f(StrToFloat(Edit1->Text));

}

10 Скомпілюйте проект: Project/Build Project1

11 Виконайте програму Server.exe і, не закриваючи її, програму Project1.exe

Наприклад, при вводі в поле числа 2 і натиску кнопки повинен появитись результат: 4