Скачать: CL | DM;

Множественное событие для 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.975 c