Using emballo to get singletons

[Ejik]

Hi.

I just wrote such test:

var
im, im2 : IImbaseService;
begin
im := TImbaseService.create();
GetDIRegistry.RegisterFactory(IImbaseService, im);
im2 := emballo.get(IImbaseService) as IImbaseService;
CheckSame(im2, im);
end;

Test fail. How I can register instance of object to get singleton
from Emballo?

[Magno Machado]

This is very strange... I've just made a similar test here and it's OK (But I use D2010)

Maybe you have registered another factory for IImbaseService.

Try this:

var
   im, im2 : IImbaseService;
begin
   im := TImbaseService.create();

   GetDIRegistry.Clear();

   GetDIRegistry.RegisterFactory(IImbaseService, im);
   im2 := emballo.get(IImbaseService) as IImbaseService;
   CheckSame(im2, im);
end;

[Ejik]

Hi.
Thanks for help. That was my bug. Im register another factory in
initialization section.
GetDIRegistry.RegisterFactory(IImbaseService, TImbaseService);

Another side, when I write this code, it mean that i register
IImbaseService not as a singleton? Am I right?

[Magno Machado]

>Another side, when I write this code, it mean that i register
>IImbaseService not as a singleton? Am I right?

Yes... This way, a new TImbaseService will be instantiated everytime you request an IImbaseService

I have a class that add support for singleton (without requiring you to pre-instantiate the object) on Emballo's old version... I just need to add it to the project

[Ejik]

It will be nice to have that class!!!

[Magno Machado]

Hi... 

First, I apologise for taking too long to implement your request... But now it's done :)

I created two new methods on DIRegistry called RegisterFactorySingleton, one receive a GUID and a TInjectableClass, and other receive a GUID, any TClass and a constructor address. You use like:

GetDIRegistry.RegisterFactorySingleton(IMyService, TMyService); // You can use it if TMyService inherits from TInjectable

GetDIRegistry.RegisterFactorySingleton(IMyService, TMyService, @TMyService.Create); { TMyService can inherit from any class, but TMyService.Create must be a no-argument constructor }

[Ejik]

This is wonderful news!!!