DLL - Objekte austauschen

[Neutral General]

Ich könnte TFooBar ableiten, aber sofern ich jetzt nicht irgendwas verpasse bringt mir das nicht wirklich was.
Der Konstruktor des Bibliotheks-Objekts will ja trotzdem ein TFooBar und kein Interface.
Selbst wenn ich ein

Delphi-Quellcode:

//
TMeinFooBar = class(TFooBar, IFoobarKapselung)

hätte, bräuchte ich ja trotzdem eine Objektinstanz um sie der Bibliothek zu übergeben:

Delphi-Quellcode:

// Anwendung
var 
  foobar: TFooBar;
  kapselung: IFoobarKapselung;
begin
  foobar := TFoobar.Create;
  kapselung := TFoobarKapselung.Create(foobar);

  DoDLLStuff(kapselung);

// DLL

procedure DoDLLStuff(const fooBar: IFoobarKapselung);
var bib: TBibliotheksObject;
begin
  bib := TBibliotheksObject.Create(TFooBar(foobar._Instance)); // Ich kann ja "foobar" nicht übergeben.. egal ob dahinter ein TFoobar oder ein TMeinFoobar = class(TFoobar) hängt
end;

// Bibliothek:

TBibliotheksObject = class
public
  constructor Create(AFoobar: TFoobar);
end;

Oder habe ich dich falsch verstanden?