| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить доступ к private-полю из блока asm? [D5, Win2k]
Ivan2 © (2002-07-01 19:07:00)Здравствуйте! Как получить доступ к private-полю из другого модуля из блока asm?
Например есть класс TBaseArray с полем private FCount: integer. Как получить доступ к этому полю из блока asm другого модуля? Если бы поле
было public или блок asm находился в том же модуле, то было бы все просто:
asm
// EAX - указатель на экземпляр класса TBaseArray
mov EDX, [EAX].TBaseArray.FCount
end
Я, конечно, могу вычислить смещение поля вручную и задать константой (mov EDX, [EAX + FCountOffset]), но ведь это не круто...
Кто-нибудь знает?
Юрий Зотов (2002-07-01 23:07:00) [1]Получить доступ можно, даже и без всякого ASM"а. Правда, это уже хакерские штучки, так что использовать не советую - ненадежно.
Но если очень надо... Ссылка на экземпляр объекта, как известно, дает его адрес. А поля расположены в порядке их объявления, начиная с "самого родительского" класса. Так что адрес есть, а вычислить смещение - не проблема, надо только заглянуть в исходники.
Но стоит изменить объявление хотя бы одного класса в цепочке наследования - и все, приплыли, смещение может стать уже другим. Так что не советую.
Shaman_Naydak (2002-07-01 19:25:00) [2]Толко учти, что компилиться модуль должен точно так же, как и тот (наличие галочки оптимизация, выравнивание полей записи и прочая)
И все одно это до переделки исходного класса
Shaman_Naydak (2002-07-01 19:23:00) [3]Ты сам ответил :)
На то оно и приват поле, чтобы в него не лазили грязными руками..
Как вариант могу предложить только в своем модуле скопировать определение класса (только поля), тогда поле будет находиться на том же месте,но я все равно против таких шагов
Иллюстрирую:
unit Un1;
type TSuperClass = object(TControl)
private
FField: Integer;
public
procedure ABC;
end;
-----
unit Un2; // Твой
type TFakeClass = object(TControl)
private
FField: Integer;
end;
| |
