Будет ли реализованная форма интерфейса свободной, если на ней больше нет ссылок?

Question

Если я реализую интерфейс в форме, такой как TMyForm = class(TForm, IMyInterface), будет ли объект свободен сам, когда на нем больше нет ссылок на интерфейс? Кажется, это не так, хотя я не мог понять, как подсчитывается ссылка TForm (если вообще). Меня беспокоит, что форма освобождается, когда ссылка на интерфейс выходит за пределы области видимости, но это, похоже, не происходит.

Наверно, есть две части вопроса: во-первых, может ли быть неожиданно освобождена форма (реальный вопрос), а во-вторых, как формы подсчитываются.

Answer 1

TForm происходит от TComponent, который реализует _AddRef() и _Release() отключить подсчет ссылок на себя. Таким образом, любой интерфейс, реализованный любым классом потомков TComponent, например TForm, не будет освобождать его реализующий объект TComponent по умолчанию при освобождении интерфейса.

Однако, если IVCLComObject интерфейса присваивается TComponent.VCLCOMObject собственности, то TComponent будет делегировать подсчет ссылок на этот объект, так что объект может быть освобожден, если его счетчик ссылок падает до 0 (TComponent не увеличивает счетчик ссылок его IVCLCOMObject ссылка).

Это действительное для всех потомков TComponent, если они не осуществляют какой-либо собственный подсчет ссылок, переопределяя _AddRef() и _Release() вручную.

Answer 2

Если вы реализуете интерфейс в форме, он может быть стоит добавить свой собственный

_Release as follows: 

    function _Release: Integer; stdcall; 

function TMyInterfacedForm._Release: Integer; 
begin 
    result:=-1; 
end; 

я обнаружил, что это было возможно, чтобы освободить форму с интерфейсом, а затем имеет _Release называют местным переменная вышла за рамки. Это может привести к нарушению прав доступа, так как реализация ТСотропепИ проверяет, является ли FVCLComObject установлено

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

Поскольку на этой стадии, FVCLComobject не определен, раздражающее исключение A/V может произойти. При помощи проводки -1 это можно безопасно называть без исключений триггеров.