Меню Delphi:
Файл/новый/другой…
Нажмите кнопку OK [OK]
Щелкните меню «Файл/Сохранить», чтобы сохранить:
Введите название проекта Mycom
Нажмите кнопку Сохранить
Откройте файл меню/новый/другой снова ...
Нажмите кнопку [OK};
Введите MyObject в coclassname
Нажмите ОК
Нажмите мыши правой кнопкой мыши на Imyobject
Imyobject/new/method
Введите тест на имя
Переключиться на страницу параметров
Нажмите добавить дважды
Измените имя первых параметров на PSParam1, введите в BSTR
Измените имя вторых параметров на PSResult, введите в BSTR*
Точка мыши на поле модификатора вторых параметров
Нажмите кнопку «…»
Тик -возврат
Нажмите ОК
(Исходный [in] становится [Out, RETVAL], указывая на то, что это должно быть возвращено, а его тип - строка)
Закройте это окно
(Вы увидите, что он создает кодовую модель для вас)
Файл/Сохранить
Введите имя файла myObject
Нажмите Сохранить
Изменить код
Нажмите Ctrl+S, чтобы сохранить
Проект/построить Mycom
Вы можете видеть, что был сгенерирован файл mycom.dll.
Это компонент COM, который вы хотите.
Давайте поговорим о методе вызова этого компонента COM:
Новое новое приложение
Добавьте Comobj в использовании
Поместите кнопку в форме
Введите следующий код в событие Onclick кнопки:
Код : |
вар MyObject: Olevariant; Начинать MyObject: = createOleObject ('mycom.myObject'); пытаться Showmessage (myobject.test ('Dawn')); Окончательно Varclear (myobject); конец; конец; |
Выполнить ... и нажмите кнопку кнопки1
Вы увидите сообщение ... то есть значение метода испытаний объекта COM выполняется.