Страница: 1 |
Вопрос: передать ссылку на мой объект COM-серверу | Добавлено: 11.10.04 08:18 |
Автор вопроса: ![]() |
Доброго времени суток.
имеется COM - сервер, в котором нестандартно реализована передача событий (Events) клиенту чтобы получать от него события, нужно создать объект со специальным интерфейсом (из одной процедуры) а потом передать ссылку на этот интерфейс серверу, вот так: Dim Sink As EventSink 'экземпляр объекта Dim ISink As IEvent 'ссылка на интерфейс Set sink = New EventSink 'экземпляр объекта 'для получения событий Set ISink = sink 'получить ссылку 'на интерфейс server.Advise ISink 'передать ссылку серверу вот тут возникает проблема: VBA не хочет передавать ссылку !!! скорее всего, из боязни что я уничтожу передаваемый объект, а сервер в это время возмет да и пошлет мне событие. но в этом сервере есть процедура отвязки UnAdvise так что VBA зря волнуется. как обмануть VBA? |
Ответы | Всего ответов: 1 |
Номер ответа: 1 Автор ответа: ![]() ![]() Вопросов: 1 Ответов: 1 |
Профиль | Цитата | #1 | Добавлено: 14.10.04 11:08 |
тема закрывается.
оказывается надо было Instancing=PublicNotCreateble |
Страница: 1 |
|