Опрос объекта на предмет свойств

[GSerg]

Имеется замечательная функция CallByName, работающая в полном соответствии с COM...
Зырил я её через PEBrowse. Она получает указатель на IUnknown, вызывает какую-то бяку, оная возвращает либо указатель на запрашиваемый метод, либо код ошибки DISP_E_MEMBERNOTFOUND. То, что происходит дальше, мне совершенно не интересно.
Спрашивается, что она вызывает всё-таки, и как это работает?

Зырил MSDN на предмет DISP_E_MEMBERNOTFOUND, нашёл кучу всякой лажи...

[Vi]

Посмотри еще, раз любопытный, TypeLib Information в References...

Так вот скорми объекту TLIApplication свою Object-переменную в метод InterfaceInfoFromObject.

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

Dim ta As TLIApplication, ti As InterfaceInfo
Set ta = New TLIApplication
Set ti = ta.InterfaceInfoFromObject(твой_объект)


Да посмотри на этот объект в Locals Window...

[GSerg]

Я гораздо любопытнее, чем кажется...

Вещь прикольная, будем ковырять. Но как она работает? Я чего только не делал с этой объектной переменной, каким только апишкам её не скармливал. Добился только того, что апишка сказала: да, тут наличествует IDispatch. Но при попытке его опросить - либо облом, либо крэш.
В любом случае, чего-то я не вижу в этой TypeLibInfo указателей на функции. Смещение VTable вижу, а дальше?


Хотя нет, вижу и это.
Так, финальный вопрос: каким образом преобразовать все эти смещения в нормальный виндовский указатель на функцию? Вэять указатель на объект, сложить с указателем на VTable и с указателем на функцию?
Или это вещи не сопоставимые?

[Aleksej]

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

Private Sub Form_Load()
Dim BckClr As Long
  BckClr = CallByName(Me, "BackColor", VbGet)
End Sub

[GSerg]

Ну ваще...
Это же получение значения свойства. А мне нужен указатель на функцию.
Функции тут stdcall, я выяснил... Так что указатель очень даже имеет смысл...