| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TComponent и IInterface

Priest ©   (2006-08-10 12:57:00) 

Класс 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 15:52:00) [1]

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

---

Priest   (2006-08-10 15:46:00) [2]

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

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

---

MBo   (2006-08-10 14:45:00) [3]

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

---

MBo   (2006-08-10 14:43:00) [4]

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;

---

Priest   (2006-08-10 14:37:00) [5]

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

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

---

Priest   (2006-08-10 14:36:00) [6]

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

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

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

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

---

MBo   (2006-08-10 14:33:00) [7]

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

---

MaxDAG   (2006-08-10 14:16:00) [8]

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

---

Priest   (2006-08-10 14:05:00) [9]

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

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

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

---

MBo   (2006-08-10 13:51:00) [10]

Все верно, если ты унаследуешься от 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.

---

Наверх