Множественное событие для WrapperClass

← →
hexone © (2004-04-08 10:34) [0]

Добрый день.
Помогите решить проблему:
Есть COM объект и у него интерфейс ISimpleInterface, кроме того событие ISimpleInterfaceEvents, в котором событие OnChange.
Импортирую TLB с ним в клиента. Определяю событие OnChange.
var so,so1 : TSimpleInterface; begin so := TSimleInterface.Create(nil); so.ConnectTo( < объект типа ISimpleInterface из коллекции >); so.OnChange := MyChange; so1 := TSimpleInterface.Create(nil); so1.ConnectTo( < тот же самый объект > ); so1.OnChange := MyChange;
Внимание вопрос! Как сделать так, чтобы событие MyChange вызывалось столько раз, сколько я создал WrapperClassов.
Использовать ckRunningInstance нельзя, в силу низкой производительности RegisterActiveOleObject.
Можно ли принудительно вызвать Advice столько раз, сколько мне нужно?
Спасибо.

← →
hexone © (2004-04-08 11:04) [1]

Разобрался сам в функции CreateConnectionPoint нужно поставит ckMulti

Множественное событие для WrapperClass Найти похожие ветки