Objekte zw. Programm und DLL austauschen - Interfaces?

[Elvis]

Zitat von NamenLozer:

Aber wie gebe ich das Objekt dann frei? Ich habe im Hinterkopf, dass man dazu dem Interface nil zuweisen muss. Ist das korrekt?

Wenn du eine Klasse hast, die ein Feld deines Interfaces besitzt, dann wird im Destruktor autom. der Referenzzähler reduziert.

Hier mal ein Beistift, den ich mir jetzt nur im Browser aus den Fingern gesaugt habe.
Du solltest die Meldung aus InnerMiep.DomeSothing sehen, und wenn du Test() verlässt, sollte "Futsch!" erscheinen.

Delphi-Quellcode:

type
  ISomeInterface = interface
  ['...']
    procedure DoSomething; stdcall;
  end;

  InnerMiep = class(TInterfaceObject, ISomeInterface)
  public
    procedure DoSomething; stdcall;
    destructor Destroy; override;
  end;

  Miep = class(TInterfaceObject, ISomeInterface)
  private
    fValue : ISomeInterface;
  public
    // diese property implementiert das Interface
    property Value : ISomeInterface
      implements ISomeInterface;
    procedure AfterConstruction; override;
  end;

...

procedure Miep.AfterConstruction;
begin
  inherited;
  fValue := InnerMiep.Create();
end;

procedure InnerMiep.DoSomething;
begin
  ShowMessage('Hmmm, don''t really know what exactly to do here...');
end;

destructor InnerMiep.Destroy;
begin
  ShowMessage('Futsch!');
  inherited;
end;

...

procedure Test;
var
  xyz : ISomeInterface;
begin
  xyz := Miep.Create();
  xyz.DoSomething();
end;