Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Компоненты";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

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;


 
MBo ©   (2006-08-10 14:45) [8]

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


 
Priest ©   (2006-08-10 15:46) [9]

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

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


 
MBo ©   (2006-08-10 15:52) [10]

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



Страницы: 1 вся ветка

Форум: "Компоненты";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.043 c
2-1179226884
Provodnick
2007-05-15 15:01
2007.06.03
Строку с #0 в XML


15-1178860817
Steep
2007-05-11 09:20
2007.06.03
FTP сервер


2-1179129401
Leshas0
2007-05-14 11:56
2007.06.03
поиск подстроки POS


2-1179333402
CFi
2007-05-16 20:36
2007.06.03
Проблема с запросом!!


2-1179304284
[Salo]Phantom
2007-05-16 12:31
2007.06.03
Запуск внешнего приложения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский