Основы COM. Рудалев В.Г - 17 стр.

UptoLike

17
Создание интерфейсов
Для простоты создадим один интерфейс IСalcSrv, включающий свойство
Value: WideString и метод function GetSquare: WideString,
вычисляющий квадрат числа, хранящегося в этом свойстве. Для этого в контек-
стном меню для Project1 выберите New Interface и переименуйте
Interface1 в IСalcSrv. Измените имя сервера (поле Name) вместо Pro-
ject1 MyServer.
Добавим в интерфейсе ICalcSrv новое свойство Value типа WideString.
Для этого в контекстном меню для интерфейса iCalcSrv в левой части окна
выберем New Property. Появятся две позиции Property1 одна для
чтения (обозначена стрелкой вверх и вправо), а другая - для записи свойства
(обозначена стрелкой вниз и влево). Заменим имя свойства Property1 на
Value и изменим его тип на BSTR аналог типа WideString.
                                          17




Со
 здани е и нт е рф е йсов
Д ля простоты соз д ад и м од и н и нтерфей с IСalcSrv, в клю чаю щ и й св ой ств о
Value: WideString и метод function                   GetSquare: WideString,
в ы чи сляю щ и й кв ад ратчи сла, хранящ егосяв этом св ой ств е. Д ляэтого в контек-
стном меню д ля Project1 в ы бери те New – Interface и переи менуй те
Interface1 в IСalcSrv. И з мени теи мясервера (полеName) в место Pro-
ject1 – MyServer.
Д обав и м в и нтерфей сеICalcSrv нов оесв ой ств о Value ти па WideString.
Д ля этого в контекстном меню д ля и нтерфей са iCalcSrv в лев ой части окна
в ы берем New – Property. Появ ятся д в е поз и ци и Property1 – од на д ля
чтени я (обоз начена стрелкой в в ерх и в прав о), а д ругая - д ля з апи си св ой ств а
(обоз начена стрелкой в ни з и в лев о). Замени м и мя св ой ств а Property1 на
Value и и з мени м его ти п на BSTR –аналог ти па WideString.