При использовании Spring4D, как я могу передать строковое значение в качестве параметра при вызове GlobalContainer. Разрешить так, чтобы это строковое значение использовалось в разрешенном конструкторе класса?Как передать строковое значение в качестве параметра при вызове GlobalContainer.Resolve в Spring4D?
Я хочу разрешить класс IWorker, который сопоставляется с TWorker. Класс TWorker имеет зависимость в своем конструкторе с ITool и строку для имени рабочего.
Я бы предположил, что ответ лежит в массиве TValue, который может быть задан как параметр для GlobalContainer.Resolve, но я не понимаю, как его использовать.
Я нашел это сообщение об использовании TParameterOverride в качестве параметра при вызове GlobalContainer.Resolve, который мог бы сработать, но эта функциональность, похоже, исчезла в версии Spring4D версии 1.1.
Я хочу избежать вызова InjectConstructor при регистрации моего типа.
часть, где мне нужна помощь в
GlobalContainer.Resolve<IWorker>([{what do I put here?}]).Work;
Вот мой небольшой проект
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Spring.Container;
type
IWorker = interface
['{2BBD7E9C-4806-4F01-9B05-9E9DD928D21D}']
procedure Work;
end;
ITool = interface
['{F962209D-4BC3-41C4-9089-0A874632ED1A}']
procedure Use;
end;
TWorker = class(TInterfacedObject, IWorker)
private
FTool: ITool;
FName: string;
procedure Work;
public
constructor Create(tool: ITool; name: string);
end;
THammer = class(TInterfacedObject, ITool)
private
procedure Use;
end;
{ TWorker }
constructor TWorker.Create(tool: ITool; name: string);
begin
FTool := tool;
FName := name;
end;
procedure TWorker.Work;
begin
Writeln(FName + ' is working');
FTool.Use;
end;
{ THammer }
procedure THammer.Use;
begin
Writeln('Using a hammer');
end;
begin
try
GlobalContainer.RegisterType<ITool, THammer>;
GlobalContainer.RegisterType<IWorker, TWorker>; // TWorker constructor = Create(tool: ITool; name: string);
GlobalContainer.Build;
GlobalContainer.Resolve<IWorker>([{what do I put here?}]).Work;
GlobalContainer.Resolve<IWorker>(['THammer.Create', 'Bob']).Work; //--> 'Unsatisfied constructor on type: TWorker'
GlobalContainer.Resolve<IWorker>([THammer.Create, 'Bob']).Work; //--> Access violation
GlobalContainer.Resolve<IWorker>([nil, 'Bob']).Work; //--> 'Unsatisfied constructor on type: TWorker'
Readln;
except
on E: Exception do
begin
Writeln(E.ClassName, ': ', E.Message);
Readln;
end;
end;
end.
Помощь будут оценены. Спасибо!