Объект, вызвавший данный метод?

← →
VaS (2002-11-18 11:33) [0]

Как получить указатель на объект, вызвавший данный метод другого объекта?
Конкретно.
Имеем проблему: RefCount > 0 в деструкторе.
Нужно: выяснить в каких местах программы не вызывается Release().
Идея: Отслеживаем, кто вызывает _AddRef(), заносим указатель на него в список. В _Release() ищем в списке такой указатель и удаляем его. Т.е. будут дубликаты указателей на один и тот же объект, удалять будем, соответственно, один из указателей. В деструкторе можно получить список оставшихся указателей. Этого достаточно.
Посмотрел исходник MemCheck. Его функции всегда возвращают в качестве вызывающего (Caller) TBaseClass._AddRef(), что ничего не дает :( (TBaseClass - базовый класс моей иерархии).
Возникло подозрение, что _AddRef() вызывается уже позже QueryInterface() (или as).
Есть идеи?

← →
kull (2002-11-18 11:47) [1]

Оператор as всегда увеличивает счетчик ссылок.

← →
kull (2002-11-18 12:02) [2]

И еще хитрый момент.

procedure DoSomesting(itf: IMyInterface2);
begin
....
end;

....
var
MyInterface: IMyInterface1;
begin
MyInterface := TMyInterface1.Create;
DoSomething(MyInterface as IMyInterface2);
//после этого вызова объект класса TMyInterface1 прекращает
//сущесвование.
end;

Поэтому лучше объявлять:

procedure DoSomesting(const itf: IMyInterface2);
или
procedure DoSomesting(var itf: IMyInterface2);

← →
VaS (2002-11-18 12:04) [3]

Стэк получить удалось. Но это не решает проблемы. Невозможно отследить где же не вызывается Release().

← →
VaS (2002-11-18 12:05) [4]

kull: Да, этот момент известен.

← →
VaS (2002-11-18 13:05) [5]

← →
Юрий Федоров (2002-11-18 13:09) [6]

А как вообще пошел деструктор, если RefCount > 0? Руками его кто-то разрушает что-ли? Или руками пишутся AddRef"ы и Release"ы?

← →
VaS (2002-11-18 14:00) [7]

Да, руками пишется IUnknown.

Объект, вызвавший данный метод? Найти похожие ветки