Помогите разобраться с примером у Edanmo...

[zHackLeX]

Согласно своему названию, пример (около 40 кб)
http://www.mvps.org/emorcillo/download/vb6/com_disp.zip
занимается

Adding methods and properties at run-time with IDispatch

Однако у меня на компе он занимается бОльшим безобразием, а именно - при попытке запуска бейсик меня грубо обламывает ошибкой, что ActiveX component, значит, can't create object. Происходит это в модуле TestClass, а именно в Class_Initialize...

Объясните пожалуйста человеку неискушённому, что это значит?

[tyomitch]

Что ты забыл что-то зарегистрить. Правда ведь забыл?

[zHackLeX]

Что-то я по-моему не понимаю...
В DispHook проекте есть только одна нестандартная библа
в references - Edanmo's OLE Interfaces and functions.
Но это же TLB, её регить нельзя...

[Конь]

У меня без регов работает...

[Konst_One]

regtlib однако

[zHackLeX]

блин нету regtlib'a...
Странно... говоришь без регов все пахало?
а какой у тебя версии olelib.tlb?

[Konst_One]

regtlib.exe находится в корневом каталоге виндоус, у меня в C:\WINNT

[tyomitch]

Что-то я по-моему не понимаю...
В DispHook проекте есть только одна нестандартная библа
в references - Edanmo's OLE Interfaces and functions.

Неправда, ещё есть DispHook.dll, и её нужно зарегить.

TLB, действительно, регить не нужно.

[zHackLeX]

Огромное спасибо Тёмыч... че т я протормозил...
Кстати у него же в примерах про события - это опечатка в проге, когда он там Sub-подпрограмму вызывает как функцию?
Да, ещё хотел спросить - TLB-файлы надо с дистрибутивом таскать?

[Konst_One]

нет

[tyomitch]

примерах про события - это опечатка в проге, когда он там Sub-подпрограмму вызывает как функцию?

А где там? нет желания сейчас весь код вычитывать.

[zHackLeX]

lResult = oDispatch.Invoke(lDISPID, IID_NULL, 0, INVOKE_FUNC, DISPPARAMS, VarPtr(vResult), EXCEPINFO, lArgErr)
Причём Invoke там по всем признакам Sub а не Function...

Да и ещё вопрос по Эданмо -
в его EventCollection - пытаюсь я значит добавить его коллекцию с событиями к себе, пытаюсь перепихать все контролы своей формы в эту коллекцию чтобы потом портировать события в процедуры скрипта... и узнаю что Object, как бы мне того не хотелось, всё равно does not support this action. Обидно что контролы не поддерживают эту рекламную акцию... А есть способ это обойти?
И ещё -- переменной типа VBControlExtender вообще что-нибудь можно присвоить кроме Controls.Add ?

[tyomitch]

Воистину, Invoke -- это функция, возвращающая HRESULT.

[zHackLeX]

эээ...
Я понимаю что вообще-то Invoke возвращает HRESULT, но там-то она описана как Sub, и VB не компилирует её...

Sub Invoke(dispidMember As Long, riid As UUID, lcid As Long, wFlags As Integer, pDispParams As DISPPARAMS, pVarResult As Long, pExcepInfo As EXCEPINFO, puArgErr As Long)
Member of olelib.IDispatch

А как быть с событиями?

[tyomitch]

эээ...
Я понимаю что вообще-то Invoke возвращает HRESULT, но там-то она описана как Sub, и VB не компилирует её...

Ага, есть такой косяк... Наверное, надо убрать все строки ниже вызова Invoke: обработку ненулевого HRESULT вставит сам VB.

[zHackLeX]

да эт я уже все сам пофиксил...
вопрос-то уже про коллекцию с событиями - как оформить в неё контролы с формы?
Почему там Object does not support this action? Тут опять бродит Облом?

[tyomitch]

Я туда не смотрел, но подозреваю, что потому, что у них нет TypeInfo

[zHackLeX]

Да... у них нет Typeinfo... эт я знал...
А нельзя сгенерить TypeInfo и подсунуть его по запросу?
Т. е. выудить из vb6.olb?

[tyomitch]

Не знаю. Раз в его тестовом примере CommandButton обёрнут в собственный класс, может и тебе сделать так же?

[zHackLeX]

Да уж... ранняя связка, никаких TypeInfo, быстрее...
... и по обёртке на элемент управления. Выходит, в общем виде задачи не решить?






Когда-то я загонялся получением списков свойств/методов для элементов VB в период его выполнения в ЕХЕшнике. Теперь я эту проблему решил, все свойства/методы подгружаются. Как теперь вот с событиями быть...
...блин, жалко мелкомягким было сделать всё как в дельфях?!

[tyomitch]

...блин, жалко мелкомягким было сделать всё как в дельфях?!

Это ты случайно не про Dream Scripter?


Как показали мои эксперименты, подключиться к событиям стандартных контролов можно, но сложно, потому что там исходящий интерфейс не диспатчевый, и плюс к тому свой для каждого контрола. Т.е. нужно сделать одну здоровенную vtbl, в которой все члены указывают в одно место, и чтобы это место по каким-то своим хитрым таблицам высчитывало, какое событие на самом деле вызвано и с какими параметрами. Да ещё и стек правило, как положено, потому что число параметров разное. Скажи, не будет ли намного проще сделать десяток классов-обёрток?

[zHackLeX]

Ладно... жалко.
Значит обёртки. Ну раз количество стандартных элементов неизменно... то вполне реально... даже можно общую обёртку сделать из нескольких, она будет с кучей If TypeOf Is... в инициализации
Сделаю пока так... а любой ОСХ наверное сам по себе заработает, у него ж TypeInfo есть
Кстати, а что за странная структура у VB6.OLB? Почему там есть т.н. "xxxEvents" - информация о событиях отдельно? Это никак нельзя использовать самому?

[tyomitch]

Кстати, а что за странная структура у VB6.OLB? Почему там есть т.н. "xxxEvents" - информация о событиях отдельно? Это никак нельзя использовать самому?

Да, это и есть те самые исходящие интерфейсы. Как видишь, они все недиспатчевые.

[zHackLeX]

Мда... Пойду хоть проверю - будут ли ловиться события с ОСХов (как VBшных так и нет)...
Ещё хочу спросить - TreeView1.object - ??? как использовать эту переменную? Она эквивалентна самому TreeView1?

В дельфях (разбираюся я в них значительно хуже VB, DreamScripter даже не видел ) вообще замечательно - .OnClick:=MyClickProc;
Однако в дельфях есть свои минусы.
Что я ненавижу - так это то, что объект из дельфей VB- программе передать в общем случае эээ... как бы помягче сказать... ну очень тяжело.
ЗЫ. сорри за оффтоп.

[tyomitch]

Ещё хочу спросить - TreeView1.object - ??? как использовать эту переменную? Она эквивалентна самому TreeView1?

Эквивалентна его Me. А сама TreeView1 эквивалентна его UserControl.Extender (в частности, поддерживает только позднее связывание).

В дельфях (разбираюся я в них значительно хуже VB, DreamScripter даже не видел ) вообще замечательно - .OnClick:=MyClickProc;
Однако в дельфях есть свои минусы.
Что я ненавижу - так это то, что объект из дельфей VB- программе передать в общем случае эээ... как бы помягче сказать... ну очень тяжело.

Вот именно эту задачу и реализует DreamScripter

[zHackLeX]

Оп-па. А он с исходниками?
Видел статью Анатолия Тенцера про реализацию IDIspatch...

Давно думал над тем, как заставить взаимодействовать дельфовский объект, например, с ОСХ-контролом, сделанным на VB. Но за отсутствием документации по модулю TypInfo дело встало, потом (как всегда внезапно) сессия... короче опять я в оффтоп полез. Спасибо за разъяснения.

ЗЫ. А всё-таки получить списки свойств-методов - не проблема -- достаточно, как показывает практика, просто подгрузить VB6.olb, и дёрнуть их оттуда.
А вот можно ли отловить списки свойств/методов ФОРМЫ? Ведь там можно наделать своих методов-свойств... Не знаешь, можно ли это реализовать?
А то раньше я делал так - перед компиляцией формировал эти списки из IDE, где эта информация доступна прямо и просто - с помощью Typelib information...

[tyomitch]

Оп-па. А он с исходниками?

Вроде бы нет. Плюс к тому, он платный

А вот можно ли отловить списки свойств/методов ФОРМЫ? Ведь там можно наделать своих методов-свойств... Не знаешь, можно ли это реализовать?
А то раньше я делал так - перед компиляцией формировал эти списки из IDE, где эта информация доступна прямо и просто - с помощью Typelib information...

Нет, не знаю.

[zHackLeX]

Да, и ещё один (совсем уж оффтопный) вопросик -
кроме VB можно хоть на одном языке реализовать возможность отобразить немодальное окно из DLL или ОСХ? Везде где пробовал (дельфы, си-шарп...) - обломы. Можно ли разрулить?