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
Thema durchsuchen
Ansicht
Themen-Optionen

Probleme mit der Lazy initialization by Spring4d

Ein Thema von brieker · begonnen am 5. Jun 2015 · letzter Beitrag vom 5. Jun 2015
 
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
 

 

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 02:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz