TComponent и IInterface

← →
Priest © (2006-08-10 12:57) [0]

Класс TComponent реализует IInterface. Поэтому я считаю что следующий код будет работать корректно

type TMyComponent = class(TComponent) public destructor Destroy; override; end; destructor TMyComponent.Destroy; begin Writeln("Destroy"); inherited; end; var Intf:IInterface; begin Intf:=TMyComponent.Create(nil); Intf:=nil; //Ожидаю что вызовится деструктор Readln; end.

Деструктор в строке Intf:=nil не вызвается. Открываю код TComponent и вижу

function TComponent._AddRef: Integer; begin if FVCLComObject = nil then Result := -1 // -1 indicates no reference counting is taking place else Result := IVCLComObject(FVCLComObject)._AddRef; end; function TComponent._Release: Integer; begin if FVCLComObject = nil then Result := -1 // -1 indicates no reference counting is taking place else Result := IVCLComObject(FVCLComObject)._Release; end;

Почему так? Мне что в каждом моём компоненте, который реализует интерфейс нужно переопределять методы?

← →
MBo © (2006-08-10 13:51) [1]

Все верно, если ты унаследуешься от TinterfacedObject, подсчет ссылок будет работать, и деструктор вызовется, а у Tcomponent намеренно подсчет ссылок не сделан:

In all other cases, _Release simply returns –1 and takes no action. This allows the component to implement interfaces where reference counting is not required. More sophisticated components should override _Release to implement reference counting.

← →
Priest © (2006-08-10 14:05) [2]

C TinterfacedObject какая-то особенность при переопределении констуктора...Было такое что вызвался деструктор при существующей сслыки. Счас не помню....

Хелп читал. Эта строка вызвала вопросы
This allows the component to implement interfaces where reference counting is not required.

Если я делаю Intf:=TMyComponent.Create(nil); то я хочу чтобы при Intf:=nil вызвался деструктор... То есть подсчёт ссылок нужен всегда....Так ли это?

← →
MaxDAG © (2006-08-10 14:16) [3]

Верно, сам делал ... работает

← →
MBo © (2006-08-10 14:33) [4]

>То есть подсчёт ссылок нужен всегда....Так ли это?
Нет, не всегда. Для компонентов, как я думаю, он обычно не нужен, поскольку может привести к ошибкам - компоненты все-таки в большинстве случаев тесно связаны с формой и другими компонентами, и если мы запросим у компонента интерфейс, и инт. ссылка выйдет из зоны видимости, произойдет разрушение компонента.
Подсчет ссылок более актуален для короткоживущих элементов, визуальность которым не нужна. - вот для них стоит делать унаследованный от TinterfacedObject (или его потомков) класс, а не компонент

← →
Priest © (2006-08-10 14:36) [5]

>>и если мы запросим у компонента интерфейс, и инт. ссылка выйдет из зоны видимости, произойдет разрушение компонента.

Я думаю по дургому. Если компонент создавался так

var
MyC:TMyComp;
..................
MyC:=TMyComp.Create;

То сколько раз не запрашивай интерйес и не обнуляй ссылку на интерфейс, объект не должен удалится. Так как есть ссылка MyC

← →
Priest © (2006-08-10 14:37) [6]

>>MaxDAG © (10.08.06 14:16) [3]
Верно, сам делал ... работает

Для COM объектов работает :) А для VCL компонентов - нет

← →
MBo © (2006-08-10 14:43) [7]

type TMyO = class(TInterfacedObject) public destructor Destroy; override; end; destructor TMyO.Destroy; begin ShowMessage("Destroy"); inherited; end; procedure TForm5.Button3Click(Sender: TObject); var O: TMyO; I:IInterface; begin O := TMyO.Create; I := O as IInterface; end;

Пардон, рано отправку нажал.
код в [7] выдает сообщение, т.е. демонстрирует, что [5] неверно:
>То сколько раз не запрашивай интерйес и не обнуляй ссылку на интерфейс, объект не должен удалится. Так как есть ссылка MyC

begin
O := TMyO.Create;
I := O as IInterface;
end;

А вот такого вообще делать не стоит. Потом где-нить в коде вызовите O.Free то будет ошибка. И Вы использовали класс TInterfacedObject, а я про TComponent говорил.

>И Вы использовали класс TInterfacedObject, а я про TComponent говорил.
Именно для того, чтобы показать, почему у TComponent нет подсчета ссылок

TComponent и IInterface Найти похожие ветки