Неприятная ситуация с самоуничтожающимеся интерфейсами

[Altera]

Сообщение от Sanprof

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

О, в том то вся и суть трейда. Как сделать наоборот что-бы это ещё и красиво смотрелось

Вы вообще вопрос не поняли...

Как сделать так, что-бы Delphi не подставляла автоматически _AddRef и _Release?

Не знаете ответ? Нечего здесь флудить!

[evg_m]

О, в том то вся и суть трейда. Как сделать наоборот что-бы это ещё и красиво смотрелось

Освобождать Интерфейс если он не нужен:
можно в destroy;
можно в любой другой процедуре;
можно вообще не сохранять интерфейс в объекте (передавать в каждую процедуру как параметр при необходимости) .

P.S. и соблюдать принцип работы с интерфейсами (хранятся не объекты TinterfacedObject, TPrimaryObject, TSecondaryObject а только ссылки на нужные интерфейсы
вместо

   PrimaryObject: TIPrimaryObject;

должно быть

   PrimaryObject: IIPrimaryObject;

тогда и освобождение будет проходить в соответствии с правилами работы с интерфейсами.

[Sibedir]

evg_m +

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  IPrimaryObject = interface
    procedure SomeProcedure;
  end;

  TPrimaryObject = class(TInterfacedObject, IPrimaryObject)
  protected
    fList: tList;
    procedure SomeProcedure;
  private
    procedure BeforeDestruction; override;
    constructor create;
    destructor destroy; override;
  end;

  TSecondaryObject = class
  protected
    fPrimaryObject: TPrimaryObject;
  public
    destructor destroy; override;

    procedure SetInterface(const aPrimaryObject: TPrimaryObject);

    procedure CallSomeProcedure;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    PrimaryObject: TPrimaryObject;
    SecondaryObject: TSecondaryObject;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SecondaryObject.CallSomeProcedure;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PrimaryObject.Free;
  SecondaryObject.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SecondaryObject := TSecondaryObject.create;
  PrimaryObject := TPrimaryObject.create;

  SecondaryObject.SetInterface(PrimaryObject);
end;

{ TPrimaryObject }

procedure TPrimaryObject.BeforeDestruction;
begin
  inherited BeforeDestruction;
  ShowMessage('Интерфейс уничтожен');
end;

constructor TPrimaryObject.create;
begin
  fList := tList.Create;
end;

destructor TPrimaryObject.destroy;
begin
  showMessage('Уничтожаем TPrimaryObject');
  fList.Free;
  inherited;
end;

procedure TPrimaryObject.SomeProcedure;
begin
  ShowMessage('Hello World!');
end;

{ TSecondaryObject }

procedure TSecondaryObject.CallSomeProcedure;
begin
  fPrimaryObject.SomeProcedure;
end;

destructor TSecondaryObject.destroy;
begin
  showMessage('Уничтожаем TSecondaryObject');
  inherited;
end;

procedure TSecondaryObject.SetInterface(const aPrimaryObject: TPrimaryObject);
begin
  fPrimaryObject := aPrimaryObject;
end;

end.

Проблема не в том, что мы не поняли вопрос, а в том что вы изначально не правильно подошли к решению задачи.

type
  IБалда для молотка = interface
    тяжелая балда с дыркой;
    procedure А что будет если стукнуть;
  end;

  TМолоток = class(TСборный объект, IБалда для молотка)
    Деревянная ручка для молотка
    Тяжелая балда с дыркой средних размеров;
    procedure А что реально будет если стукнуть;
  end;

  TРука = class
  protected
    fИнструмент: IБалда для молотка; - а должон быть сам молоток
  public
    procedure Взять(const aИнструмент: IБалда для молотка); - Здесь тоже должен быть молоток
    procedure Стукнуть;
  end;
...

Еще раз + evg_m. С интерфейсами ну очень редко работаешь. Сразу и не схватишь чё к чему.