\nFrom today the Delphi community can leverage the power of the SBD Dependency Injection Framework. Oh happy developer!, you can find the source code at …<\/p>\n
\nFrom today the Delphi community can leverage the power of the SBD Dependency Injection Framework. Oh happy developer!, you can find the source code at …<\/p>\n
… and download with a Subversion<\/a> client.<\/p>\n The SBD Dependency Injection Framework is … well … a Dependency Injection<\/a> Framework for Delphi. It consists of two units accompanied by a demo program and fluff. The framework supports all versions of Delphi from 2010 onwards and all platforms and is available for use via the popular aqnd permissive MPL 2.0<\/a> license.<\/p>\n For the sake of brevity, I will list only the main features of the framework.<\/p>\n The framework is Service oriented. In this context “Service” means a service accessed via an interface pointer with a defined API. Central to the framework is the Service Provider. The service provider is a service container for it’s clients. The service provider is also a service.<\/p>\n Yes, that’s right – the lazy developer can use attributes to specify automatic injection points. In other Injection Frameworks, the developer would have to write code support constructor injection. In SBD Injection Framework, auto-magical code-less injection of services occurs before the constructor is called, and is driven by the [Injection] attribute. <\/p>\n First let’s start with a couple of service definitions …<\/p>\n Our task is to distribute a company’s profit to it’s shareholders, by implementing an instance of the IProfitAndLossAccount. We will assume that some-one else has already written a suitable IBankAccount service. Here is how we do it ….<\/p>\n Notice there is no constructor logic for the dependent service FBankAccount. A suitable service instance is inserted by the framework. If we have a service provider (ServiceProvider: IServiceProvider),<\/p>\n If we have two different service definitions that just happen to use the same interface pointer type, but serve different purposes (not just different implementations serving the same purpose), the we can discriminate between the two with a “Configuration string”. This is what it looks like …<\/p>\n Now this …<\/p>\n will use the above service implementation, but …<\/p>\n You can register an array (“Service file”) of alternate implementations of the one service definition (Interface pointer type, guid + config string). In other frameworks you can only register one implementation per service definition, if you can do multiple, then the service file can only be used competitively (that is to say the client asks for a service instance, and the provider gives one). SBD Dependency Injection framework can offer a file of service implementations either competitively or co-operatively.<\/p>\n Imagine a task of compressing a message. The service definition is “compress this data”. There is lots of ways to compress data. You might have many algorithms at your disposal in the form of registered services. You pick one, acquire an instance from the service provider and solve your problem. That is an example of a competitive service array.<\/p>\n Some hard problems can be simplified by leveraging a co-operative array of services. SBD Injection framework, makes acquisition and usage of co-operative services easy and almost code-free. When you acquire co-operative services, instead of one selected service being injected, you get a collection of them. At service registration time, you can define how the collection is made and how it is added to – or just use IInterfaceList.<\/p>\n The documentation will be in form of a demo program, some wiki pages of text (like this blog post), and some Help Insight \/\/\/<summary> notes. This is a work-in-progress. At the moment, I have done about 30% of the demo.<\/p>\nFeatures<\/h2>\n
Service oriented<\/h3>\n
Usage is Attribute oriented<\/h3>\n
Example<\/h3>\n
\r\ntype\r\n IBankAccount = interface\r\n ['{some guid}']\r\n function Credit( Amount: currency; const Payee: string): boolean;\r\n \/\/ Attempt to pay someone (Payee) something (Amount) from my bank account.\r\n \/\/ Return True if payment was made.\r\n end;\r\n\r\n IProfitAndLossAccount = interface\r\n ['{some other guid}']\r\n function DistributeDividend( GrossDividendToPayOut: double): boolean;\r\n \/\/ Distribute the dividend to all the share-holders.\r\n end;\r\n<\/pre>\n\r\ntype\r\n TProfitAndLossAccount = class( TInterfacedObject, IProfitAndLossAccount)\r\n private\r\n [Injection] FBankAccount: IBankAccount;\r\n function DistributeDividend( GrossDividendToPayOut: double): boolean;\r\n public\r\n [configuration] constructor ServiceModeCreate;\r\n end;\r\n\r\nconstructor TProfitAndLossAccount.ServiceModeCreate;\r\nbegin\r\nend; \/\/ Empty constructor! \r\n\r\nfunction TProfitAndLossAccount.DistributeDividend( GrossDividendToPayOut: double): boolean;\r\nbegin\r\n \/\/ The two shareholders are Jack and Jill\r\n result := FBankAccount.Credit( GrossDividendToPayOut \/ 2, 'Jack') and\r\n FBankAccount.Credit( GrossDividendToPayOut \/ 2, 'Jill') and\r\nend;\r\n<\/pre>\n
\r\nvar\r\n PandL: IProfitAndLossAccount;\r\nbegin\r\nif ServiceProvider.Gn.Acquire<IProfitAndLossAccount>( PandL) then\r\n PanL.DistributeDividend( 10000.0);\r\nend;\r\n<\/pre>\n
Service implementation discrimination<\/h3>\n
\r\ntype\r\n TProfitAndLossAccount = class( TInterfacedObject, IProfitAndLossAccount)\r\n private\r\n [Injection] FBankAccount: IBankAccount;\r\n function DistributeDividend( GrossDividendToPayOut: double): boolean;\r\n public\r\n [configuration('accounting')] constructor ServiceModeCreate;\r\n end;\r\n<\/pre>\n\r\nif ServiceProvider.Gn.Acquire<IProfitAndLossAccount>( PandL, 'accounting') then\r\n PanL.DistributeDividend( 10000.0);\r\n<\/pre>\n
\r\nif ServiceProvider.Gn.Acquire<IProfitAndLossAccount>( PandL, 'something-else') then\r\n PanL.DistributeDividend( 10000.0);\r\n... will not.\r\n<\/pre>\n
Competing service array versus co-operative service array<\/h3>\n
![\"Competing\"](\"https:\/\/i0.wp.com\/seo-takeover.com\/wp-content\/uploads\/2013\/09\/competition.png?resize=380%2C316\")
versus<\/em> ![\"Cooperating\"](\"http:\/\/europamedia.files.wordpress.com\/2011\/05\/cooperation-international2.jpg?w=640\")
\nBut what about the reverse problem of de-compression, where a standard has not been followed. You need to find the correct compressor to correctly decompress it. As the selection of compressor was not recorded, you really need to get all the decompressor services in stock to examine the compressed data, just to see which one is the one to use. Now you are using an array of service implementations in a co-operative fashion.<\/p>\nDocumentation<\/h3>\n