Unsatisfied Constructor

[ngott2]

Guten Morgen,
Ich ärgere mich gerade mit ein Problem rum, wo ich einfach nicht weiter komme...
Ich habe eine Klasse geschrieben TMatchStorage. Die hat einige Methode und auch ein Constructor. Nun kommen wir zu dem Problem. Wenn ich über GlobalContainer.Resolve<IMatchStorage>; mir eine Instanz holen möchte bekomme ich die angehängte Fehlermeldung. Wenn ich in einer der Implementierten Funktionen ein Haltepunkt setze sieht es so aus wie wenn man ein Haltepunkt setzt in einer Zeile wo gar kein Quellcode ist. Seht ihr wo mein dummer Fehler ist ? Ich habe eine Klasse die genau gleich aufgebaut ist und dort funktioniert es... Das einzige was unterschiedlich zwischen den Klassen ist die GUID beim Interface, der Klassenname und TMach ist durch TTeam an jeder stelle ausgetauscht.

Delphi-Quellcode:

unit SEP.Storage.Match;

interface

uses
  SEP.Match,
  System.Generics.Collections,
  Spring.Container,
  XML.XMLDoc,
  XMLIntf,
  Winapi.ActiveX,
  System.SysUtils;

type
  IMatchStorage = interface
    ['{0541D06C-3C1B-40B6-923F-AA715713CDB9}']
    function AddMatchToStorage: TMatch;
    function GetMatchList: TObjectList<TMatch>;
    function GetMatchListAsDictionary: TDictionary<Integer, TMatch>;
    function GetMatchByID(aID: Integer): TMatch;
    function DeleteMatchFromStorage(aID: Integer): Boolean;
    procedure Save;
    procedure Load;
  end;

  TMatchStorage = class(TInterfacedObject, IMatchStorage)
  strict Private
    fMatch: TDictionary<Integer, TMatch>;
    fXML: IXMLDocument;
  public
    function AddMatchToStorage: TMatch;
    function GetMatchList: TObjectList<TMatch>;
    function GetMatchListAsDictionary: TDictionary<Integer, TMatch>;
    function DeleteMatchFromStorage(aID: Integer): Boolean;
    function GetMatchByID(aID: Integer): TMatch;
    procedure Save;
    procedure Load;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

{ TMatchStorage }

function TMatchStorage.AddMatchToStorage: TMatch;
var
  lIndex: Integer;
begin
  Result := TMatch.Create;
  Result.ID := fMatch.Count + 1;
  if not fMatch.ContainsKey(Result.ID) then
  begin
    fMatch.Add(Result.ID, Result);
    Exit;
  end;
  for lIndex := 0 to fMatch.Count do
  begin
    if not fMatch.ContainsKey(lIndex + 1) then
    begin
      Result.ID := lIndex + 1;
      fMatch.Add(Result.ID, Result);
      Exit;
    end;
  end;
end;

constructor TMatchStorage.Create;
begin
  fMatch := TDictionary<Integer, TMatch>.Create();
  OleInitialize(nil);
  fXML := NewXMLDocument();
end;

function TMatchStorage.DeleteMatchFromStorage(aID: Integer): Boolean;
begin
  fMatch.Remove(aID);
  Result := true;
end;

destructor TMatchStorage.Destroy;
var
  lIndex: Integer;
begin
  for lIndex := 0 to fMatch.Count - 1 do
    fMatch.Values.ToArray[lIndex].Free;
  fMatch.Free;
  inherited;
end;

function TMatchStorage.GetMatchByID(aID: Integer): TMatch;
begin
  Result := fMatch.Items[aID];
end;

function TMatchStorage.GetMatchList: TObjectList<TMatch>;
var
  lIndex: Integer;
begin
  Result := TObjectList<TMatch>.Create(False);
  for lIndex := 0 to fMatch.Count - 1 do
    Result.Add(fMatch.Values.ToArray[lIndex])
end;

function TMatchStorage.GetMatchListAsDictionary: TDictionary<Integer, TMatch>;
begin

end;

procedure TMatchStorage.Load;
var
  lMatch: TMatch;
  lNode: IXMLNode;
  lChildNode: IXMLNode;
  lIndex: Integer;
begin
  fMatch.Clear;
  fXML.LoadFromFile('Match.xml');
  lNode := fXML.DocumentElement;
  for lIndex := 0 to lNode.ChildNodes.Count - 1 do
  begin
    lChildNode := lNode.ChildNodes.Nodes[lIndex];
    lMatch := TMatch.Create;
    lMatch.ID := Integer(lChildNode.GetAttributeNS('ID', ''));
    lMatch.Team1.ID := Integer(lChildNode.GetAttributeNS('Team1', ''));
    lMatch.Team2.ID := Integer(lChildNode.GetAttributeNS('Team2', ''));
    lMatch.Goals1 := Integer(lChildNode.GetAttributeNS('Goals1', ''));
    lMatch.Goals2 := Integer(lChildNode.GetAttributeNS('Goals2', ''));
    fMatch.Add(lMatch.ID, lMatch);
  end;
end;

procedure TMatchStorage.Save;
var
  lMatch: TMatch;
  lNode: IXMLNode;
  lTeamNode: IXMLNode;
  lKey: string;
begin
  if not Assigned(fXML.DocumentElement) then
  begin
    lNode := fXML.AddChild('Match');
  end
  else
  begin
    lNode := fXML.DocumentElement;
  end;
  lNode.ChildNodes.Clear;
  for lMatch in fMatch.Values do
  begin
    lKey := 'Match' + intToStr(lMatch.ID);
    lTeamNode := lNode.ChildNodes.FindNode(lKey);
    if not Assigned(lTeamNode) then
      lTeamNode := lNode.AddChild(lKey);
    lTeamNode.SetAttributeNS('Team1', '', lMatch.Team1.ID);
    lTeamNode.SetAttributeNS('Team2', '', lMatch.Team2.ID);
    lTeamNode.SetAttributeNS('ID', '', lMatch.ID);
    lTeamNode.SetAttributeNS('Goals1', '', lMatch.Goals1);
    lTeamNode.SetAttributeNS('Goals2', '', lMatch.Goals2);
  end;
  fXML.SaveToFile('Match.xml');
end;

end.

Hier noch meine Container Registrierung

Delphi-Quellcode:

procedure RegisterTypesForSettings(const container: TContainer);
begin
  container.AddExtension<TDecoratorContainerExtension>;

  container.RegisterType<TOrderEntryTransactionDecorator>;
  container.RegisterType<TOrderEntryLoggingDecorator>;
  container.RegisterType<TSettingsEntry>;
  container.RegisterType<TOrderValidatorLoggingDecorator>;
  container.RegisterType<TOrderValidator>;
  container.RegisterType<TSettingsProcessor>;
  container.RegisterType<TUser>;
  container.RegisterType<TTeamStorage>.AsSingleton();
  container.RegisterType<IMatchStorage>.AsSingleton();
  container.Build;
end;

und der Aufruf

Delphi-Quellcode:

procedure TPresentGUI.SetupPesentMode;
var
  lGroup : TGroup;
  lMatch : TMatch;
  lTeam : TTeam;
  lPair,
  lBestValue,
  lValue : TPair<Integer,TGroupPlace>;
  lItem : TListItem;
  lIsAdded : TList<Integer>;
begin
  lGroup := TGroup.Create;
  fSettingsStorage := GlobalContainer.Resolve<ISettingsProcessor>;
  fTeamStorage := GlobalContainer.Resolve<ITeamStorage>;
  fMatchStorage :=  GlobalContainer.Resolve<IMatchStorage>; // Hier findet er den Consturctor nicht
  fMatchStorage.Load;
  fTeamStorage.Load;
  for lTeam in fTeamStorage.GetTeamList do
  begin
    lGroup.fMemberList.Add(lTeam);
  end;

....

Gruß,
ngott2

[stahli]

Zitat:

Zitat von ngott2 (Beitrag 1365197)

Wenn ich in einer der Implementierten Funktionen ein Haltepunkt setze sieht es so aus wie wenn man ein Haltepunkt setzt in einer Zeile wo gar kein Quellcode ist.

Deinen Code habe ich mir nicht angesehen. Mal vorausgesetzt, dass der i.O. ist (wird ja offenbar kompiliert), dann versuch es mal mit "Projekt bereinigen" und "Projekt erzeugen".
Manchmal kommt die IDE durcheinander und benutzt nicht den aktuellen Quelltext aus dem Codeeditor zum kompilieren.

Wenn das nicht hilft könntest Du alle dcu´s mal von Hand löschen.

Falls Du in Sichtweite der IDE deinen Projektordner kopiert hast kann das auch mal Probleme machen. In dem Fall mal die Ordnerkopie löschen bzw. verschieben.

[ngott2]

Konnte es erst jetzt testen. DCU's löschen hat nichts gebracht. Wird wohl ein Programmierfehler sein...

[ngott2]

Habe es gefunden. Mehr als 4 Stunden schlafen sollte man schon. Ich muss bei dem Container natürlich meine Klasse regestieren und nicht mein Iterface ohne Konstruktor.... Danke trotzdem.

[Blup]

Sollte es nicht so:

container.RegisterType<TMatchStorage>.AsSingleton();

[ngott2]

Zitat:

Zitat von Blup (Beitrag 1365294)

Sollte es nicht so:

container.RegisterType<TMatchStorage>.AsSingleton();

Ja genau. Hatte ich heute morgen bloß nicht bemerkt. Danke nochmal

[himitsu]

Warum seh ich im Contructor kein Inherited?

[stahli]

Ich will nochmal nachfragen:

Wenn Haltepunkte asynchron zu den Quelltextzeilen angezeigt werden, liegt das doch nicht an der Klassendeklaration bzw. fehlerbehaftetem Code. Da muss doch irgendwas anderes im Argen liegen...!?

[himitsu]

Zitat:

Zitat von stahli (Beitrag 1365477)

Da muss doch irgendwas anderes im Argen liegen...!?

* komische Zeichen im Code (Linux-Zeilenumbrüche, NonBreakingSpace usw.)
* PAS passt nicht zur DCU/EXE
* ...

[Stevie]

Frage nur durch Zufall gesehen, schreib am besten nächstes mal direkt Spring4D ran ;)

Deine Registrierung ist falsch.
Keine Ahnung, welche Version du benutzt, aber das sollte eigentlich direkt beim Build einen Fehler werfen, Interface alle macht halt wenig Sinn.

Die empfohlene ist wie folgt:

Code:

container.RegisterType<IMatchStorage, TMatchStorage>.AsSingleton();

Es auch andere Wege, und man kann auch nur TMatchStorage registrieren, dann tüftelt der Container beim Build selbst aus, welche Interfaces die Klasse implementiert.

Zitat:

Explicit is better than implicit.

Übrigens kann ich dir nur empfehlen noch einen Schritt weiter zu gehen und dem ServiceLocator Pattern abzuschwören, und die Dinge die du aktuell aus dem GlobalContainer pullst in die entsprechenden Klassen zu injecten, diese müssen dazu allerdings vom Container konstruiert werden - Nicks neustes Buch zu DI in Delphi behandelt das auch.