Создание простого объекта СОМ в составе внутреннего сервера Delphi
Добрый вечер, уважаемые программисты этого замечательного форума! помогите, пожалуйста, выполнить задания на Delphi.
Задания
1. На странице ActiveX репозитарию объектов создать Delphi-проект "ActiveX Library" дав ему имя ClientInProcCom.
2. К созданному проекту добавить новый СОМ-объект (COM-object) из страницы ActiveX репозитария объектов создать Delphi-проект с следующими параметрами:
Class Name - SimpleCom
Instancing - tmAparatment
Threading Model - CiMultiInstance
Implemented Interface - ISimpleCOM
Description - пример простого COM-объекта
Include type Library - установлено
Mark interface Oleautomation - сброшено
3. К существующему интерфейсу добавить новый метод с помощью редактора библиотек типов с именем LinearX.
4. Для созданного метода задайте тип значения, что возвращается методом - long и добавьте входящий параметр AValue с типом данных long.
5.Добавьте к существующему интерфейсу ещё один метод SquareX с такими самими установками как и у предыдущего.
6.Добавьте к COM-объекту ещё один интерфейс с именем ISimpleCOM2 с скинутыми флагами Dual и Ole Automation.
7.К созданному интерфейсу добавить 2 метода:Linear2X и CubeX с параметрами указанными в пункте 4.
8.Созданный интерфейс привязать к объекту COM SimpleCOM.
9.Для завершения создания кода нажать на кнопку Refresh.
10. Теперь перейти к модулю uSimpleCOM и создать код для новых методов (х;х2;2х;х3).
11. После завершения разработки объекта исполнить его компиляцию и регистрацию в качестве сервера ActiveX для текущего пользователя.
12. Добавьте к проектной группе визуального применение и задайте имя формы fmMain.
13. Добавьте на формы 2 компонента TSpinEdit (предназначенные для задания значения х, аргумента математических функций, заданных в методах интерфейса ISimpleCOИM и ISimpleCOM2), 2 компонента TButton и 4 компонента TLabel.
14.Включить к проекту клиента файл библиотеки типов ClientInProcCOM_TLV.pas и огласить 2 переменные для интерфейса объекта COM TSimpleCOM.
15.В методе-обработчике FormCreate создать CoClass класса TSimpleCOM - CoSimpleCOM.
16. сделайте так, чтобы по нажатию кнопки выполнения определенных вычислений путем присвоения результатов работы методов объекта COM TSimpleCOM внутреннего сервера.
заранее огромное спасибо!!!
Добрый вечер, уважаемые программисты этого замечательного форума! помогите, пожалуйста, выполнить задания на Delphi.
Задания
1. На странице ActiveX репозитарию объектов создать Delphi-проект "ActiveX Library" дав ему имя ClientInProcCom.
2. К созданному проекту добавить новый СОМ-объект (COM-object) из страницы ActiveX репозитария объектов создать Delphi-проект с следующими параметрами:
Class Name - SimpleCom
Instancing - tmAparatment
Threading Model - CiMultiInstance
Implemented Interface - ISimpleCOM
Description - пример простого COM-объекта
Include type Library - установлено
Mark interface Oleautomation - сброшено
3. К существующему интерфейсу добавить новый метод с помощью редактора библиотек типов с именем LinearX.
4. Для созданного метода задайте тип значения, что возвращается методом - long и добавьте входящий параметр AValue с типом данных long.
5.Добавьте к существующему интерфейсу ещё один метод SquareX с такими самими установками как и у предыдущего.
6.Добавьте к COM-объекту ещё один интерфейс с именем ISimpleCOM2 с скинутыми флагами Dual и Ole Automation.
7.К созданному интерфейсу добавить 2 метода:Linear2X и CubeX с параметрами указанными в пункте 4.
8.Созданный интерфейс привязать к объекту COM SimpleCOM.
9.Для завершения создания кода нажать на кнопку Refresh.
10. Теперь перейти к модулю uSimpleCOM и создать код для новых методов (х;х2;2х;х3).
11. После завершения разработки объекта исполнить его компиляцию и регистрацию в качестве сервера ActiveX для текущего пользователя.
12. Добавьте к проектной группе визуального применение и задайте имя формы fmMain.
13. Добавьте на формы 2 компонента TSpinEdit (предназначенные для задания значения х, аргумента математических функций, заданных в методах интерфейса ISimpleCOИM и ISimpleCOM2), 2 компонента TButton и 4 компонента TLabel.
14.Включить к проекту клиента файл библиотеки типов ClientInProcCOM_TLV.pas и огласить 2 переменные для интерфейса объекта COM TSimpleCOM.
Код:
Interface1:ISimpleCOM;
Interface2:ISimpleCOM;
Код:
Interface1:=CoSimpleCOM.create;
Interface1.QueryInterface (ISimpleCOM2,Interface);заранее огромное спасибо!!!
