Wichtigkeit von SW Architektur

[Sir Rufo]

Zitat:

Zitat von sh17 (Beitrag 1326394)

Und wenn man diese Regeln dann in Delphi oder was auch immer so programmiert, dass man kaum oder keine Abhängigkeiten zu LIBs oder RTLs erzeugt, dann ist es relativ einfach, das ganze in eine andere Sprache zu portieren. Weil die Grundsätze sind ja in den meisten Sprachen die selben (Schleifen, Objekte,....).

Da in diesen Regeln Logik verbaut ist wird man dort keine Abhängigkeiten finden sondern nur andere Sprachkonstrukte, die das Gleiche bewirken.

Die Kommunikation mit der konkreten Aussenwelt erfolgt (wo es dann wieder Abhängigkeiten von Framework xy gibt) über Interfaces die dann auch austauschbar sind (zum Testen, zum Umstellen).

Das Beispiel von Uncle Bob zeigt doch sehr schön diese Abstraktion der Abhängigkeiten (um eben nicht abhängig zu sein).

Hier mal so ein Beispiel in Delphi

Delphi-Quellcode:

unit Domain.BusinessRules.ChangeUserPassword;

interface

uses
  Domain.BusinessRules.Core,
  Domain.Exceptions;

type
  IChangeUserPasswordRuleGateway = interface( IBusinessRuleGateway )
    function GetUserById( const aUserid: TUserId ): TUser;
    procedure SaveUser( aUser: TUser );
  end;

  TChangeUserPassword = class( TBusinessRule<IChangeUserPasswordRuleGateway> )
  public
    procedure Execute( const aUserid: TUserId; const NewPassword: string );
  end;

implementation

{ TChangeUserPassword }

procedure TChangeUserPassword.Execute(
  const aUserid    : TUserId;
  const NewPassword: string );
var
  lUser: TUser;
begin
  if not Authority.IsAuthenticated
  then
    TDomainException.ThrowNotLoggedIn; // Nicht angemeldet

  if not Authority.CurrentUserId.Equals( aUserid ) and not Authority.HasRole( 'admin' )
  then
    TDomainException.ThrowNotAllowed; // Keine Berechtigung

  Gateway.StartTransaction( );
  try

    lUser := Gateway.GetUserById( aUserid );
    try
      if not Assigned( lUser )
      then
        TDomainException.ThrowNotFound; // Unbekannter Benutzer

      lUser.Password := NewPassword;
      Gateway.SaveUser( lUser );
    finally
      lUser.Free;
    end;

    Gateway.EndTransaction( );
  except
    Gateway.RollbackTransaction( );
  end;
end;

end.

Delphi-Quellcode:

unit Domain.BusinessRules.Core;

interface

type
  IAuthorityContext = interface
    function GetIsAuthenticated: Boolean;
    property IsAuthenticated: Boolean read GetIsAuthenticated;
    function GetCurrentUserId: TUserId;
    property CurrentUserId: TUserId read GetCurrentUserId;
    function HasRole( const aRole: string ): Boolean;
  end;

  IBusinessRuleGateway = interface
    procedure StartTransaction( );
    procedure EndTransaction( );
    procedure RollbackTransaction( );
  end;

  TBusinessRule<TGateway: IBusinessRuleGateway> = class abstract
  private
    FGateway  : TGateway;
    FAuthority: IAuthorityContext;
  protected
    property Authority: IAuthorityContext read FAuthority;
    property Gateway  : IChangeUserPasswordRuleGateway read FGateway;
  public
    constructor Create( const AGateway: TGateway; const AAuthority: IAuthorityContext );
  end;
implementation

{ TBusinessRule<TGateway> }

constructor TBusinessRule<TGateway>.Create(
  const AGateway  : TGateway;
  const AAuthority: IAuthorityContext );
begin
  inherited Create;
  FAuthority := AAuthority;
  FGateway   := AGateway;
end;

end.