|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
30.03.2015, 22:56 | #1 (permalink) |
Member
Регистрация: 20.04.2014
Сообщений: 63
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Создание простого объекта СОМ в составе внутреннего сервера 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); заранее огромное спасибо!!! |
30.03.2015, 22:56 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Советую вам обратить внимание на похожие обсуждения Создание RTF справки в Delphi Охрана объекта по сотовому |
31.03.2015, 09:39 | #2 (permalink) |
Member
Регистрация: 22.07.2012
Сообщений: 393
Записей в дневнике: 2
Сказал(а) спасибо: 95
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 5501
|
Что не получается реализовать? Тут у Вас детально ведь все как план расписано что делать.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|