Создание объектов

← →
euru © (2003-02-19 17:31) [0]

Можно ли как-нибудь мониторить создание объектов?

← →
MBo © (2003-02-19 17:34) [1]

Если объект при своем создании что-нибудь сообщает, то можно ;)

← →
Mystic © (2003-02-19 17:36) [2]

Можно получить список объектов, порожденных от указанного типа... Но требует некоторых телодвижений...

← →
REA © (2003-02-19 17:39) [3]

Объектов? Не думал что ссылки на объекты запоминаются где либо, кроме моих собственных переменных.

← →
Reindeer Moss Eater (2003-02-19 17:47) [4]

unit MyClassUnit;

interface

type
TMyClass = class
...
class function GetInstance(AIndex:integer):TMyClass;
end;

implementation

var MyList : TList = nil;

constructor TMyClass.Create;
begin
inherited;
MyList.Add(Self);
end;

function TMyClass.GetInstance(AIndex:integer):TMyClass;
begin
Result:=TMyClass(MyList);
end;

initialization
MyList:=TList.Create;
finalization
MyList.Free;
end;

← →
euru © (2003-02-19 17:48) [5]

> MBo © (19.02.03 17:34)
> Mystic © (19.02.03 17:36)

Оба варианта не подходят.
В первом случае объект должен знать, что в его обязанности входит сообщать, что он создан. А, насколько я знаю, стандартные объекты в VCL этого делать не умеют и, значит, уйдут от своих обязанностей :).
Второй случай не подходит, потому что мне не нужен список созданных объектов. Мне нужно поймать момент создания любого объекта.

Пробовал подменить TObject.NewInstance, но в ответ получил исключение на тему отсутствия доступа.

← →
Mystic © (2003-02-19 17:49) [6]

Да, поправочка: для стандартного менеджера памяти...

Вот фрагмент из System.pas:
{$IFDEF DEBUG_FUNCTIONS} { Inspector Query; implementation in GETMEM.INC; no need to conditionalize that } THeapBlock = record Start: Pointer; Size: Cardinal; end; THeapBlockArray = array of THeapBlock; TObjectArray = array of TObject; function GetHeapBlocks: THeapBlockArray; function FindObjects(AClass: TClass; FindDerived: Boolean): TObjectArray; { Inspector Query } {$ENDIF}

← →
MBo © (2003-02-19 17:49) [7]

>момент создания любого объекта
вообще любого? или только компонентов или контролов?

← →
Reindeer Moss Eater (2003-02-19 17:52) [8]

Сначала неплохо бы определиться.
Во всех процессах ловить надо или только в своем?

← →
euru © (2003-02-19 17:56) [9]

> MBo © (19.02.03 17:49)
Любого, в том числе и TObject.

Лучшим вариантом, как мне кажется, была подмена стандартного метода TObject.NewInstance своим методом, который бы вызвал стандартный, а также сообщил куда следует и кому следует.

← →
Mystic © (2003-02-19 17:56) [10]

> euru © (19.02.03 17:48)

Не думаю, чтобы затраты на реализацию окупились... Какую цель ты преследуешь?

← →
euru © (2003-02-19 17:58) [11]

>Reindeer Moss Eater (19.02.03 17:52)

Для начала можно в своем однопоточном процессе

← →
gsu © (2003-02-19 18:00) [12]

>> Не думаю, чтобы затраты на реализацию окупились... Какую цель ты
>> преследуешь?
D8 пишет (-:|~

← →
euru © (2003-02-19 18:07) [13]

>Mystic © (19.02.03 17:56)

Цель: получить доступ к объекту ЛЮБОГО класса при его создании.

А затраты пока еще рано считать - еще не решили, как это реализовать :)

← →
euru © (2003-02-19 18:09) [14]

> gsu © (19.02.03 18:00)
>D8 пишет (-:|~

А хотя бы... :)))

← →
Mystic © (2003-02-19 18:20) [15]

Хорошо, реализовать то, о чем ты просишь, можно
A. Подправив VCL/RTL
B. Подправить используемые таблицы виртуальных/динамических методов.

>Mystic © (19.02.03 18:20)

Вариант A не подходит - не хочется править исходники производителя.
Вариант B - это как раз то, что я попытался сделать. Но как только попытался подменить функцию NewInstance своей, получил исключение.

Может еще у кого-нибудь мысли какие-нибудь появились?

> как только попытался подменить функцию NewInstance своей,
> получил исключение.

значит некорректно подменил
можно поинтересоватся процессом подмены?

procedure TImpl.RegisterObject(aObj: TClass); var p: Pointer; begin p := Pointer(Integer(aObj) + vmtNewInstance); FOld := PPointer(p)^; //aObj.NewInstance; PPointer(p)^ := @TImpl.MyNewInstance; // exception здесь end;

← →
down (2003-02-20 16:36) [21]

> Можно ли как-нибудь мониторить создание объектов?

MemCheck вроде это делает http://v.mahon.free.fr/pro/freeware/memcheck

>down (20.02.03 16:36)

Посмотрел я MemCheck. Это не то, что мне нужно.

Может, еще какие мысли есть?

Создание объектов Найти похожие ветки