Как получить доступ к private-полю из блока asm?

← →
Ivan2 (2002-07-01 19:07) [0]

Здравствуйте! Как получить доступ к private-полю из другого модуля из блока asm?

Например есть класс TBaseArray с полем private FCount: integer. Как получить доступ к этому полю из блока asm другого модуля? Если бы поле
было public или блок asm находился в том же модуле, то было бы все просто:
asm
// EAX - указатель на экземпляр класса TBaseArray
mov EDX, [EAX].TBaseArray.FCount
end
Я, конечно, могу вычислить смещение поля вручную и задать константой (mov EDX, [EAX + FCountOffset]), но ведь это не круто...
Кто-нибудь знает?

← →
Shaman_Naydak © (2002-07-01 19:23) [1]

Ты сам ответил :)
На то оно и приват поле, чтобы в него не лазили грязными руками..
Как вариант могу предложить только в своем модуле скопировать определение класса (только поля), тогда поле будет находиться на том же месте,но я все равно против таких шагов
Иллюстрирую:
unit Un1;
type TSuperClass = object(TControl)
private
FField: Integer;
public
procedure ABC;
end;

-----

unit Un2; // Твой

type TFakeClass = object(TControl)
private
FField: Integer;
end;

← →
Shaman_Naydak © (2002-07-01 19:25) [2]

Толко учти, что компилиться модуль должен точно так же, как и тот (наличие галочки оптимизация, выравнивание полей записи и прочая)

И все одно это до переделки исходного класса

Получить доступ можно, даже и без всякого ASM"а. Правда, это уже хакерские штучки, так что использовать не советую - ненадежно.

Но если очень надо... Ссылка на экземпляр объекта, как известно, дает его адрес. А поля расположены в порядке их объявления, начиная с "самого родительского" класса. Так что адрес есть, а вычислить смещение - не проблема, надо только заглянуть в исходники.

Но стоит изменить объявление хотя бы одного класса в цепочке наследования - и все, приплыли, смещение может стать уже другим. Так что не советую.

Как получить доступ к private-полю из блока asm? Найти похожие ветки