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?

[TiGü]

Ich nehme an, das eigentliche in der DLL gebrauchte TFooBar-Objekt kann nicht so einfach in der DLL neu erzeugt werden und mit den Werten aus dem geinterfacten Fassade-Objekt gefüllt werden?

[Neutral General]

Zitat von TiGü:

Ich nehme an, das eigentliche in der DLL gebrauchte TFooBar-Objekt kann nicht so einfach in der DLL neu erzeugt werden und mit den Werten aus dem geinterfacten Fassade-Objekt gefüllt werden?

Nein leider nicht
TFooBar ist eine Datenbank-Connection.

[Uwe Raabe]

Zitat von Neutral General:

Oder habe ich dich falsch verstanden?

Offenbar! Wenn die Bibliothek ein TFoobar braucht, dann muss TFoobar auch irgendwo innerhalb der DLL deklariert sein. Sollte TFoobar eine rein virtuelle Klasse sein, dann könnte man eine Ableitung erstellen, die sämtliche Methoden auf die Interface-Instanz weiterleitet.

Beispiel:

Delphi-Quellcode:

type
  TFoobar = class
  public
    procedure MyMethod; virtual;
  end;

  IFoobar = interface
    procedure MyMethod;
  end;

  TFoobarWrapper = class(TFoobar)
  private
    FInterface: IFoobar;
  public
    constructor Create(AInterface: IFoobar);
    procedure MyMethod; override;
  end;

constructor TFoobarWrapper.Create(AInterface: IFoobar);
begin
  inherited Create;
  FInterface := AInterface;
end;

procedure TFoobarWrapper.MyMethod;
begin
  FInterface.MyMethod;
end;

Innerhalb der DLL erzeugst du dann ein TFoobarWrapper mit dem Interface im Create und den Wrapper übergibst du dann an die Bibliothek. Geht halt nur, wenn TFoobar ausreichend virtuelle Methoden hat.

Wenn, wie gesagt, TFoobar eine Datenbank-Connection ist, dann sag doch mal, welche. Eventuell kann man dann konkretere Aussagen treffen.

[Neutral General]

Die Connection ist eine (abgeleitete) TIBCConnection (IBDAC) (Firebird 3.0)

[MyRealName]

Wenn du DLL und EXE mit runtime Bibliotheken übersetzt, dann kannst du ohne Probleme Objekte sharen. Nur sollten exe und DLL mit der gleichen Delphi Version übersetzt worden sein

[Neutral General]

Es muss leider eine DLL sein

[Uwe Raabe]

Zitat von Neutral General:

Es muss leider eine DLL sein

Auch eine DLL kann mit Packages compiliert sein.

[Neutral General]

Oh stimmt.
Ich werds mal ausprobieren.. Habe grade das Problem, dass die Liste der Laufzeitpackages aus irgendeinem Grund die 10.0er Packages enthält obwohl ich mit 10.3 arbeite (10.0 parallel installiert).
Deswegen bekomme ich Fehler im Stil von

Zitat:

Package '...RS23' wird benötigt, konnte aber nicht gefunden werden

Sobald ich das Problem gelöst habe werde ich das mal ausprobieren und ich mich wieder melden.
Danke schon mal für eure Hilfe bis hier hin!

[hoika]

Hallo,
ich würde in der DLL eine neue Connection auf Basis der übergebenen Connection erzeugen.