Как правильно ввести свойство в форму?

Question

Я постараюсь ответить во второй раз. Не обвиняйте меня, пожалуйста.

Ситуация:

У меня есть форма

TfrmMain = class(TForm) 
private 
    [Inject('IniFileSettings')] 
    FSettings: ISettings; 
public 
end; 

У меня есть процедура инициализации контейнера:

procedure BuildContainer(const container: TContainer); 
begin 
    container.RegisterType<TIniSettings>.Implements<ISettings>('IniFileSettings'); 

    container.RegisterType<TfrmMain, TfrmMain>.DelegateTo(
    function: TfrmMain 
    begin 
     Application.CreateForm(TfrmMain, Result); 
    end); 

    container.Build; 
end; 

Так что я инициализирует как TfrmMain, а также TIniSettings через контейнер.

в .dpr у меня есть:

begin 
    BuildContainer(GlobalContainer); 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TfrmMain, frmMain); 
    Application.Run; 
end. 

Также у меня есть помощник для TApplication:

procedure TApplicationHelper.CreateForm(InstanceClass: TComponentClass; var Reference); 
var 
    locator: IServiceLocator; 
begin 
    locator := TServiceLocatorAdapter.Create(GlobalContainer); 
    if locator.HasService(InstanceClass.ClassInfo) then 
    TObject(Reference) := GlobalContainer.Resolve(InstanceClass.ClassInfo).AsObject 
    else 
    inherited CreateForm(InstanceClass, Reference); 
end; 

Проблема: когда я пытаюсь

procedure TfrmMain.FormCreate(Sender: TObject); 
begin 
    s := FSettings.ReadString('Connection', 'Server', 'localhost'); 
end; 

я получаю исключение AV потому что FSettings в настоящее время NIL.

Что такое правильный способ получить объект FSettings из контейнера?

UPDATE:

FSettings := GlobalContainer.Resolve<ISettings>; 

Эта строка работает отлично ... Как и в прошлый раз у меня есть проблемы в использовании [Inject] атрибут. Даже с решением от Стефана я могу сделать метод работы:

How to initialize main application form in Spring4D GlobalContainer?

Answer 1

Первая причина, почему контейнер не имеет HasService больше, потому что этот метод был удален. Вы можете получить к нему доступ следующим образом:

if container.Kernel.Registry.HasService(...) then // yeah yeah, I know LoD is crying right now ;) 

Я бы избегал смешивания с использованием ServiceLocator и GlobalContainer. Хотя они должны указывать на один и тот же экземпляр, это может быть не так, потому что на самом деле кто-то может указать один из них на другой экземпляр. Если вы действительно хотите использовать ServiceLocator в этом случае, то также разрешите с ServiceLocator. Но имейте в виду, что на нем ничего нет, что контейнер не знает (даже если вам нужно называть некоторые разные части ядра.

Но это не проблема, с которой вы сталкиваетесь здесь, когда вы вставляете настройки. проблема в том, что у вас есть время. Метод FormCreate (я просто догадываюсь, что он привязан к событию OnCreate). Таким образом, контейнер создает экземпляр TfrmMain, событие вызывается, а затем возвращается в код контейнера, который впоследствии выполняет все инъекции. то, что не было введено через конструктор в некотором коде, вызываемом во время построения, является временной связью.

Существуют различные подходы к этой проблеме:

• переместив доступ к FSettings на какое-то событие, что получает срабатывает позже (как OnShow или OnActivate)
• не используют инъекции поля может быть приятно но это связывает ваш код с контейнером, потому что «традиционный» код не может этого сделать. Используйте инъекцию свойств и сеттер, который выполняет код.

Когда вы рассматриваете инсталляцию конструктора, как для зависимостей, которые являются обязательными, и для инъекций свойств для тех, которые являются необязательными, я бы сказал, для ввода конструктора. Но зная, что вы работаете с потомком TComponent, я, вероятно, использовал бы инъекцию свойств в этом случае, хотя эта зависимость не является необязательной.