AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Probleme mit der Lazy initialization by Spring4d

Probleme mit der Lazy initialization by Spring4d

Ein Thema von brieker · begonnen am 5. Jun 2015 · letzter Beitrag vom 5. Jun 2015
Antwort Antwort
brieker

Registriert seit: 2. Jun 2015
11 Beiträge
 
Delphi XE7 Architect
 
#1

Probleme mit der Lazy initialization by Spring4d

  Alt 5. Jun 2015, 08:30
Delphi-Version: XE7
Moin alle zusammen.

Ich beschäftige mich nun seit 2 Wochen mit Spring4d.

Ich habe versucht das hier gezeigte Lazy Implementation Schema in meinem Code einzubauen um eine Reihe von Objekten zur Laufzeit zu generieren und in einer Liste zu hinterlegen.

Allerdings habe ich noch nicht heraus gefunden wie ich die Factory hinter getService() überhaupt erreichen soll ohne wieder die DI über den haufen zu werfen.

Hat einer von euch Erfahrung mit Spring4d und Lazy und kann mir helfen meine Wissenslücken zu schliessen.

Hier mal eine gekürzte Version des Objekts das zur Laufzeit inizialisiert werden soll.

Code:
unit uColor;

interface

uses System.Types,
     Interfaces,
     Spring,
     Spring.Services,
     SysUtils;

procedure RegisterColorService(aServiceName: string);

implementation

uses Spring.Container;

type
  TColor = class(TInterfacedObject, IColor)
  private
    fService: Lazy<IColor>;
  protected
  public
    constructor Create(const service: Lazy<IColor>);

    function GetService: IColor;
    property Service: IColor read GetService;
  End;

  Constructor TColor.Create(const service: Lazy<IColor>);
  begin
    inherited Create;
    fservice := service;
  End;

  function TColor.GetService: IColor;
  begin
    Result := fService;
  end;

  procedure RegisterColorService();
  begin
    GlobalContainer.RegisterType<TColor>.Implements<IColor>('default').AsTransient.AsDefault;
    GlobalContainer.Build;

    Assert(GlobalContainer.Resolve<IColor>.Service is TColor);
  end;

End.
Währe für jede Hilfe dankbar.

CU Benjamin Rieker
  Mit Zitat antworten Zitat
CarlAshnikov

Registriert seit: 18. Feb 2011
Ort: Erfurt
108 Beiträge
 
Delphi XE5 Enterprise
 
#2

AW: Probleme mit der Lazy initialization by Spring4d

  Alt 5. Jun 2015, 11:50
Falls ich das richtig verstanden habe, ist dein Problem, dass du TColor in sich selbst injizieren willst.

Im Beispiel wird ein IExampleService in den THomeController injiziert und dieser dann aufgelöst. Der Container übergibt dann automatisch ein Lazy<IExampleService> in den constructor von THomeController wenn einer gebaut wird.

Angewendet auf dein Beispiel (nicht getestet):

Delphi-Quellcode:
type
  IColor = interface;
  
  TColor = class(TInterfacedObject, IColor)

  End;

  TExample = class
  private
    fService: Lazy<IColor>;
  protected
  public
    constructor Create(const service: Lazy<IColor>);

    function GetService: IColor;
    property Service: IColor read GetService;
  End;

  Constructor TExample.Create(const service: Lazy<IColor>);
  begin
    inherited Create;
    fservice := service;
  End;

  function TExample.GetService: IColor;
  begin
    Result := fService;
  end;

  procedure RegisterColorService();
  begin
    GlobalContainer.RegisterType<TColor>.Implements<IColor>('default').AsTransient.AsDefault;
    GlobalContainer.RegisterType<TExample>;
    GlobalContainer.Build;

    Assert(GlobalContainer.Resolve<TExample>.Service is TColor);
  end;
Sebastian
Das kann ja wohl nicht var sein!
  Mit Zitat antworten Zitat
brieker

Registriert seit: 2. Jun 2015
11 Beiträge
 
Delphi XE7 Architect
 
#3

AW: Probleme mit der Lazy initialization by Spring4d

  Alt 5. Jun 2015, 12:18
Moin CarlAshnikov,

nein so ist es leider nicht ganz.

Ich habe eine Klasse TColor mit dem dazu gehörigen Interface IColor und eine weitere Klasse TColorPalette mit dem Interface IColorPalette sowohl Color als auch ColorPalette sind im DI-Container Regestriert.

In der TColorPalette gibt es eines Procedure AddColor(color:IColor) die eine Color Objekt an eine Liste anhängt.
Beim Aufruf von AddColor muss ich ja eine neue Instanz von TFarbe aus dem DI-Container hollen und übergeben.
Mit ServiceLocator.GetService<IColor> wär es ja ein leichtes aber das ist ja ein NO-GO.
Darum habe ich versucht diese Lazy Methode zu implementieren, was im endeffekt eine Factory darstellt.
Aber wenn ich versuche von der Factory eine neue Instanz zu bekommen muss ich wieder ungewollte Dependencies machen sonnst kann Delphi damit nix anfangen.
Dann kann ich auch gleich wieder ServiceLocator benutzen.

Es ist halt nervig das man nicht im Vorraus weis ob die Palette 8 oder 32000 Faren haben soll sonnst könnte ich das mit Constructor-Injection erschlagen.

Ich habe auch schon darüber nachgedacht mit Constructor-Injection eine Dummy-Color in meine Palette zu schmuggeln und bei AddColor einen Clon vom Dummy in die Liste zu packen aber dass ist auch nicht ganz koscher denke ich.

MfG Benjamin

Geändert von brieker ( 5. Jun 2015 um 12:21 Uhr)
  Mit Zitat antworten Zitat
CarlAshnikov

Registriert seit: 18. Feb 2011
Ort: Erfurt
108 Beiträge
 
Delphi XE5 Enterprise
 
#4

AW: Probleme mit der Lazy initialization by Spring4d

  Alt 5. Jun 2015, 12:32
Ich denke in diesem Fall sollte sich TColorPalette eine FactoryMethode (TFunc<IColor>) vom DI-Container injizieren lassen. Diese kannst du dann bei jedem AddColor aufrufen.

Ich denke Lazy stellt genau eine Instanz bereit. Da du aber mehrere brauchst um deine Liste zu füllen, benötigst du die Methode um sie mehrfach aufzurufen.

Delphi-Quellcode:
type
  IColor = interface;
  
  TColor = class(TInterfacedObject, IColor)

  End;

  TColorPalette = class
  private
    fFactory: TFunc<IColor>;
    fColors: IList<IColor>;
  protected
  public
    constructor Create(const AFactory: TFunc<IColor>);
    procedure AddColor;
  End;

  Constructor TColorPalette.Create(const AFactory: Lazy<IColor>);
  begin
    inherited Create;
    fFactory := AFactory;
    fColors := TCollections.CreateList<IColor>();
  End;

  procedure TColorPalette.AddColor;
  begin
    fColors.Add(fFactory());
  end;

  procedure RegisterColorService();
  begin
    GlobalContainer.RegisterType<TColor>.Implements<IColor>('default').AsTransient.AsDefault;
    GlobalContainer.RegisterType<TColorPalette>;
    GlobalContainer.Build;
  end;
Sebastian
Das kann ja wohl nicht var sein!

Geändert von CarlAshnikov ( 5. Jun 2015 um 13:13 Uhr) Grund: Typo
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz