создание простого объекта СОМ в составе внутреннего сервера Delphi

[carrie bradshaw]

Добрый вечер, уважаемые программисты этого замечательного форума! помогите, пожалуйста, выполнить задания на 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;

15.В методе-обработчике FormCreate создать CoClass класса TSimpleCOM - CoSimpleCOM.

Interface1:=CoSimpleCOM.create;
Interface1.QueryInterface (ISimpleCOM2,Interface);

Interface1:=CoSimpleCOM.create;
Interface1.QueryInterface (ISimpleCOM2,Interface);