Описание класса объекта Form

[BP]

Есть ли у кого такое описание? Я имею ввиду его члены и их размеры.
Или оно идентично WNDCLASSEX?

[GSerg]

Сам понял чё спросил?

[BP]

Ты имеешь ввиду что оно уже есть в браузере объектов? Даже если есть, то всё равно VB всё сортирует.

[GSerg]

CyRax, имей совесть
То, что ты видишь в VB по F2, суть vTable. То, что у объекта внутри, ты не узнаешь никогда. Во-первых, это нигде, окромя исходников, не описано, во-вторых, это прямо противоречит идеологии ООП. Если тебе нужны методы в порядке vTable – извлеки tlb из ресурсов (хотя, из чьих ресурсов?..) и смотри.

[BP]

Да я просто когда то код видел, где человек менял оконную процедуру формы, записывая в память. Вот я и подумал что он знает её класс.

[BP]

Да я просто когда то код видел, где человек менял оконную процедуру формы, записывая в память. Вот я и подумал что он знает её класс.

Забыл уточнить. Он писал по ObjPTr+смещение. Смещение уже не помню. Вот собственно и все побудившие меня причины.

[BP]

А пример назывался Субклассинг без модуля. Если кто не знает, то в VB субклассинг возможен только в модуле.

[GSerg]

Значит знает.
ObjPtr++ - это действительно внутреннее поле объекта. Где он только его откопал, вражина, описание-то? И, главное, ЧТО он туда записывал? Адрес новой процедуры? Как он его получил, если она не в модуле?

[tyomitch]

Я думаю, он всего-навсего взял из VTable адрес какого-то метода, и его передавал в SetWindowLong.
Никакого рокет-сайенса.

[BP]

Вот так:

[tyomitch]

Вот так:

Собственно, я угадал
При этом класс формы здесь нигде не используется; работа ведётся с VTable класса clsSubclass.
Ещё отмечу, что всё перестанет работать, если переместить WndProc из начала модуля куда-нибудь в середину или конец. Так что вывод - всё это очень шаткая конструкция, к тому же непонятно ради чего возведённая. Чем модули-то не устроили?

[BP]

А как он собственно получил числа из этого vTable?

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

Private Function GetProcPtr(ClassPtr As Long, ProcNumber As Long) As Long
    Dim TempPtr As Long
    Dim ProcPtr As Long

    Call CopyMemory(TempPtr, ByVal ClassPtr, 4&)
    Call CopyMemory(ProcPtr, ByVal TempPtr + &H1C + (4& * ProcNumber), 4&)
    GetProcPtr = ProcPtr
End Function


Ну во первых, как видно из этого кода, значение в ObjPtr - уто указатель куда то.
А что это за волшебное &H1C. Ведь не по RND же он его нашёл

[Юстас]

BP, да совсем оно и не волшебное, а вполне стандартное смещение, на котором от начала идут адреса процедур. Смотри файл OAIdl.h

tyomitch, ты перенёс процедуру в начало(конец) модуля, а вызываешь её по старому адресу, наверное поэтому не работает? А конструкция не шаткая, вполне обычный интерфейс.

[tyomitch]

Я вызываю процедуры не по адресу, а по имени. И поэтому у меня всё работает, даже когда я переношу процедуру в другое место.

Значение в ObjPtr - указатель на начало VTable.
В ней первые 7 мест заняты членами IDispatch, а потом идут методы самого класса.

[Юстас]

ProcPtr = CreateASMContainer(ObjPtr(Me), 0) эту строку тоже ведь изменять надо, когда перетаскиваешь WndProc в середину

[BP]

BP, да совсем оно и не волшебное, а вполне стандартное смещение, на котором от начала идут адреса процедур. Смотри файл OAIdl.h

Вот этот инклюд.
http://dotnet.di.unipi.it/Content/sscli ... ource.html

Покажи как там найти смещение 1C

[tyomitch]

BP, я же уже объяснил, 1C=4*7, 4 байта в адресе, 7 членов в IDispatch-е. Теперь понятно?

[GSerg]

Не, юзать это нехорошо. Именно из-за переноса методов.
Лучше уж по-старинке...

[BP]

BP, я же уже объяснил, 1C=4*7, 4 байта в адресе, 7 членов в IDispatch-е. Теперь понятно?

Это я понял. Спасибо что помог умножить 7 на 4 Мне нужно описание vTable.

[GSerg]

Семь? Семь?! Ты же говорил 4... И ещё говорил, что это нуно знать
А, значит 4 члена, размер каждого 7!

[tyomitch]

4 своих и 3 унаследованных.
Описание VTable: http://msdn.microsoft.com/library/en-us ... 5_78v9.asp

[Юстас]

Или вот здесь немножко есть об этом:
http://www.wasm.ru/forum/index.php?acti ... topic=6898

[BP]

А Form это IUnknown или IDipatch?

[tyomitch]

Да при чём здесь форма? В твоём примере-то расковыривается VTable clsSubclass!

На всякий случай, форма - это IDispatch (притом недуальный).

[BP]

Что то я запутался. Какой интерфейс нужно определять заранее IUnknown или IDispatch?
Судя по читанным ранее хелпам из PB, интерфейс IDispatch автоматически определяет методы и свойства. Так? Значит это уже хорошо что он Dispatch?

[BP]

Да, и ещё, раз уж ты знаешь эту технологию не мог бы ты проверить правильно ли я перевёл описания интерфейсов в PB. В самом низу страницы.
http://basicproduction.nm.ru/POWERBASIC/PB7DataType.htm

[tyomitch]

Что то я запутался. Какой интерфейс нужно определять заранее IUnknown или IDispatch?
Судя по читанным ранее хелпам из PB, интерфейс IDispatch автоматически определяет методы и свойства. Так? Значит это уже хорошо что он Dispatch?

Поясни, пожалуйста, вопрос - а то я не понимаю, что ты спрашиваешь.
IUnknown и IDispatch определять не нужно - они уже лет восемь как определены.
Методы и свойства собственных (т.е. нестандартных) классов определяются их разработчиком, и к IDispatch не имеют никакого отношения.
То, что какой-то объект поддерживает IDispatch - безусловно хорошо