Delphi и COM


     Стулья для офиса петербург посмотреть. |         

Интерфейсы и TComponent


В базовом классе VCL TComponent имеется полный набор методов, позволяющих реализовать интерфейс IUnknown, хотя сам класс данный интерфейс не реализует. Это позволяет наследникам TComponent реализовывать интерфейсы, не заботясь о реализации IUnknown. Однако методы TComponent._AddRef и TComponent._Release на этапе выполнения программы не реализуют механизм подсчета ссылок, и, следовательно, для классов-наследников TComponent, реализующих интерфейсы, не действует автоматическое управление памятью. Это позволяет запрашивать у них интерфейсы, не опасаясь, что объект будет удален из памяти при выходе переменной за область видимости. Таким образом, следующий код совершенно корректен и безопасен:

type IGetData = interface   ['{B5266AE0-5E77-11D4-84DD-9153115ABFC3}']     function GetData: String;   end;     TForm1 = class(TForm, IGetData)   private     function GetData: String;   end;   …   var   I: Integer;   GD: IGetData;   S: String; begin   S := '';   for I := 0 to Pred(Screen.FormCount) do begin     if Screen.Forms[I].GetInterface(IGetData, GD) then       S := S + GD.GetData + #13;   end;   ShowMessage(S); end;

Этот код проверяет наличие у всех форм в приложении возможности реализации интерфейса IGetData и в случае, если форма реализует этот интерфейс, вызывает его метод.

В начало
В начало



Содержание  Назад  Вперед