Показать сообщение отдельно
Старый 30.03.2015, 22:56   #1 (permalink)
Charlotte
Member
 
Регистрация: 20.04.2014
Сообщений: 63
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Создание простого объекта СОМ в составе внутреннего сервера 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.
Код:
Interface1:ISimpleCOM;
Interface2:ISimpleCOM;
15.В методе-обработчике FormCreate создать CoClass класса TSimpleCOM - CoSimpleCOM.
Код:
Interface1:=CoSimpleCOM.create;
Interface1.QueryInterface (ISimpleCOM2,Interface);
16. сделайте так, чтобы по нажатию кнопки выполнения определенных вычислений путем присвоения результатов работы методов объекта COM TSimpleCOM внутреннего сервера.


заранее огромное спасибо!!!
Charlotte вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070