Как по данному EventID получить имя Event'a?

[zHackLeX]

Найденный мной пример:
http://msdn.microsoft.com/msdnmag/issues/01/03/connpoints/

позволяет ловить события объектов поздней связки. Причём отлов идёт по EventID. Вопрос: как вычислить имя события по его идентификатору?

[tyomitch]

Если у объекта, вызвавшего событие, нет TLB, то никак.

[keks-n]

Гм. IDispatch->GetTypeInfo.

[tyomitch]

Гм. На каком IDispatch предлагаешь это вызывать? На своей собственной евентоловке?
(Как эта евентоловка, кстати, называется по-умному? Синк?)

[keks-n]

Перед тем как ловить евент объекта, надо что-то с ним сделать. А значит есть на него ссыль. А значит есть IDispatch(если он у объекта вообще есть.)

[tyomitch]

Неужели непонятно, что в том IDispatch, на который есть ссылка, только методы? а события совсем в другом IDispatch -- в евентоловке, реализованной тобой?

[keks-n]

Погоди. Инфа о эвентах в TLB есть? Есть. GetTypeInfo фактически её и выдавать должна. Или не так?

[GSerg]

Если у объекта, вызвавшего событие, нет TLB, то никак.

[tyomitch]

Погоди. Инфа о эвентах в TLB есть? Есть. GetTypeInfo фактически её и выдавать должна. Или не так?

Нет, не её. Она выдаёт инфу о членах того интерфейса, у которого вызвана. А не о всех подряд интерфейсах в TLB.

[tyomitch]

Вдруг подумалось: если повезёт, и класс реализует IProvideClassInfo, то из этого интерфейса (а совсем даже не из IDispatch) можно вытащить ITypeInfo для класса целиком, и там среди исходящих интерфейсов выбрать нужный.

[zHackLeX]

Ну... за provideclassinfo не ручаюсь...
Вообще - план был прост - реализовывалось добавление своих объектов к namespace'у scriptcontrol'a.... Для этого сварганил класс-расширение скриптконтрола (полный контроль кода, т е не только добавить-обновить, добавка/удаление объектов и ещё кое-что по мелочи), объекты хранил набором элементов класса "ScriptObject", который и транслировал события в Scriptcontrol
Рассматривал я три варианта
1) mScriptObject Is Form => для этого одна withevents переменная
2) mScriptObject Is Control => VBControlExtender
3) Иначе - как раз использовал описанный в статье метод.

Так что, eventID это есть MemberID при наличии TypeInfo, или я чего не понял?

[tyomitch]

Так что, eventID это есть MemberID при наличии TypeInfo, или я чего не понял?

eventID это есть MemberID при наличии TypeInfo на исходящем интерфейсе, реализованном в твоей евентоловке. А не на входящем IDispatch объекта, кидающего события.

[zHackLeX]

...на входящем интерфейсе.
Забавно... Тогда MemberID чего именно?

[tyomitch]

События, чего же ещё?

[zHackLeX]

События, вызванного эвентоловкой, или события, пойманного эвентоловкой?

[tyomitch]

Евентоловка ничего не вызывает. Она только ловит.

[zHackLeX]

так значит имя события получать надо ещё в евентоловке?

[tyomitch]

Эээ... А где же ещё?

В других местах у тебя просто нет ID, по которому ты бы мог получить имя.

[zHackLeX]

ID передаётся эвентоловкой... в качестве параметра
у евентоловки единственное событие - _incomingevent(eventid,eventargs)

Что, этот eventid - не тот что ли?

[tyomitch]

ID передаётся эвентоловке, в качестве параметра.
А что не так?

[zHackLeX]

Код: Выделить всё

Private Sub bridgeobj_incomingevent(eventobj As Object)
    Dim tmpeventobj As comevent.comeventcls
    msg = msg & "Incoming event!" & vbCrLf
    msg = msg & "Event ID: " & CStr(tmpeventobj.eventID) & vbCrLf
    ...

что же тогда я получил в eventid?

"ничего не понимаю..." © братьев пилотов

[keks-n]

Выложи ка весь код.

[zHackLeX]

весь код здесь:
http://msdn.microsoft.com/msdnmag/issues/01/03/connpoints/
скачай connpoints.rar и скомпилируй всё в том порядке, в каком там сказано... потом в vbclient посмотри как ловятся события...