| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Здравствуйте! Если функция _AddRef вызывается при любом обращении [Delphi, Windows]
VK220 © (2004-05-17 16:29:00)к объекту, то когда вызывается _Release? Спасибо.
VK220 (2004-05-19 16:37:00) [1]Большое всем спасибо! Проблема решилась!
Бином Ньютоныч (2004-05-17 20:27:00) [2]Имхо, сохраняется ссылка на IntObject через свойство ParentObject. Если это свойство необходимо, то нужно реализовать так:
function GetParentObject: IntObject;
property ParentObject: IntObject read GetParentObject;
function ...GetParentObject: IntObject;
begin
Result:=IntObject(Controller);
end;
Write для него лишнее.
VK220 (2004-05-17 19:25:00) [3]Oh, подробнее это выглядит так:
IntObject = interface
Object = class(TInterfacedObject, IntObject);
SubObject = class(TAggregatedObject, ISubObject);
...
...
IntObject.Create; // вызывается _AddRef у объекта Object
...
...
SubObject.Create(IntObject); // вызывается _AddRef у объекта Object
SubObject.ParentObject := IntObject; // опять вызывается _AddRef у объекта Object
// ParentObject - свойство типа IntObject
...
...
SubObject := nil;
Object := nil;
в итоге, количество ссылок на IntObject равно 1 и он не уничтожается.
default (2004-05-17 17:27:00) [4]VK220 © (17.05.04 17:14) [2]
да, при выходе за область видимости удаляется или в других случаях(об'nil-ие, передача в подпрог-мму как var или out-параметр, при присвоении может ещё что-то...)
Вы смотрите в окно CPU, ещё в System загляните там маленькие подпрог-ки эти есть(которые обслуж-ие интер-ых пер-ых вып-ют)
VK220 (2004-05-17 17:14:00) [5]т.е. при
Переменная := Объект
вызывается _AddRef у Объекта...
default (2004-05-17 17:04:00) [6]что понимаешь под обращением?
ясно что каждому _AddRef соотв-ет _Release
| |
