unit interfaces;

interface

uses
  system.sysutils;

Type

  ISettings = interface
    [ '{13A6C331-7527-400D-901F-181F517B55BE}' ]
    procedure Load;
  end;

  IDataProcessor = interface
    [ '{D5FB3346-1713-4B4E-8A82-DB48596852CE}' ]
    procedure Apply;
  end;

  ICommunicator = interface
    [ '{E5B7933B-53F3-49D7-AD64-ACEABE274357}' ]
    function GetDataProcessor: IDataProcessor;
    procedure SetDataProcessor( const d: IDataProcessor );
    property DataProcessor: IDataProcessor
      read GetDataProcessor
      write SetDataProcessor;

    procedure Login;
    procedure Export;

    function GetSettings: ISettings;
    procedure SetSettings( s: ISettings );
    property Settings: ISettings
      read GetSettings write SetSettings;
  end;

implementation

end.

unit implementations;

interface

uses
  System.sysutils,
  interfaces;

Type
  TSettings = class( TInterfacedObject, ISettings )
  public
    constructor Create;
    destructor Destroy; override;
    procedure Load;
  end;

  TDataProcessor = class( TInterfacedObject, IDataProcessor)
  public
    procedure Apply;
  end;

  TCommunicator = class( TInterfacedObject, ICommunicator )
  private
    fDataProcessor: IDataProcessor;
    fSettings: ISettings;
    function GetDataProcessor: IDataProcessor;
    procedure SetDataProcessor( const d: IDataProcessor );
  public
    constructor Create;
    destructor Destroy; override;

    procedure Login;
    procedure Export;

    property DataProcessor:IDataProcessor
      read GetDataProcessor
      write SetDataProcessor;

    function GetSettings: ISettings;
    procedure SetSettings( s: ISettings );
    property Settings: ISettings
      write SetSettings;
  end;

implementation

{ TCommunicator }
constructor TCommunicator.Create();
begin
  inherited
  //
end;

destructor TCommunicator.Destroy;
begin
  //
  inherited;
end;

function TCommunicator.GetDataProcessor: IDataProcessor;
begin
  Result := FDataProcessor;
end;

function TCommunicator.GetSettings: ISettings;
begin
  Result := FSettings;
end;

procedure TCommunicator.Login;
begin
  //
end;

procedure TCommunicator.Export;
begin
  FDataProcessor.Apply;
end;

procedure TCommunicator.SetDataProcessor(const d: IDataProcessor);
begin
  fDataProcessor := d;
end;

procedure TCommunicator.SetSettings(s: ISettings);
begin
  fSettings := s;
end;

{ TSettings }
constructor TSettings.Create;
begin
   inherited;
   //
end;

destructor TSettings.Destroy;
begin
  //
  inherited;
end;

procedure TSettings.Load;
begin
  //
end;

{ TDataProcessor }
procedure TDataProcessor.Apply;
begin
  //
end;

end.

unit registrations;

interface

uses
  spring,
  spring.container;

procedure Registering( container: TContainer );

implementation

uses
  interfaces,
  implementations,
  spring.container.Common;

procedure Registering( container: TContainer );
begin
  container.RegisterType< ISettings, TSettings>;
  container.RegisterType< ICommunicator, TCommunicator>;
  container.RegisterType< IDataProcessor, TDataProcessor>;
  container.Build;
end;

end.

....
uses
  Spring.Container,
  interfaces,
  implementations,
  registrations;

procedure TForm1.Button1Click(Sender: TObject);
var
  MySetings: ISettings;
  MyCommunicator: ICommunicator;
begin
  Registering( globalContainer );

  MySetings := GlobalContainer.Resolve< ISettings>;
  MySetings.Load;
  MyCommunicator := GlobalContainer.Resolve<ICommunicator>;
  MyCommunicator.Settings := MySetings;
  MyCommunicator.Login;
  MyCommunicator.DataProcessor := GlobalContainer.Resolve<IDataProcessor>;
  MyCommunicator.Export;
end;