I am always pulling out the Unity assemblies. Maybe it is just because I am lazy, but I really can’t be bothered rolling my own dependency injection and mapping framework!
I am going to use Unity only as a mapping frame work for now, I want to be able to pass an Interface into a method, and get back the correct data access class.
The plan is to meet the diagram on the left. Only the factory and the interfaces are accessible, but are all set to “friend” which will require an assembly tag to be added to both the Factory and the Interfaces assemblies to allow explicit access.
<Assembly: InternalsVisibleTo("Hinshlabs.TfsDynamicPolicy.Services.Server")>
This allows classes in the named assembly to access all classes and methods that have been prefaced with the “Friend” access level. Its a sneaky way of helping to maintain your layer integrity. So with this reference added only the Services.Server assembly, the one with the web service implementation, can access the factory and the interfaces, making them un-callable from any other assembly.
note: if you use only the assembly’s friendly name and not the explicit signed name then someone could just create an assembly of the same name as above and they will be able to call as if they were Services.Server. This is not to prevent hacking, just those pesky developers (me) who may try to bypass the service tier…
If, like me you are running tests you will also need to add an InternalsVisibleTo entry for your test assemblies or you will be plagued by “Assessors”..
First is my IDataAccess class, this is really only exists so there is some validation on my generics.
' Assembly: Hinshlabs.TfsDynamicPolicy.DataAccess.Common
Public Interface IDataAccess
End Interface
I also have a more specific Interface that allows for the loading of Artefacts. I have not yet implemented anything more than get and add, but you can see that it inherits (yes an interface and inherits in the same sentence) from the IDataAccess interface so we can pass it as a generic type that complies with IDataAccess.
'Assembly: Hinshlabs.TfsDynamicPolicy.DataAccess.Common
Imports Hinshlabs.TfsDynamicPolicy.Common
Public Interface IArtifactDataAccess(Of T As Artifact)
Inherits IDataAccess
Function GetArtifact(ByVal id As Guid) As T
Function GetArtifact(ByVal Uri As Uri) As T
Function GetArtifacts() As ArtifactCollection
Function AddArtifact(ByVal artifact As T) As Boolean
End Interface
Wow… that was hard, IDataAccess may have a little more than nothing in the future, but for now that is it. Now, what I need is a class that I can inherit from that will provide the functionality I need for any factory. This is mainly coz factories bread factories.
'Assembly: Hinshlabs.TfsDynamicPolicy.Common
Imports System.IO
Imports System.Globalization
Imports System.Xml.Serialization
Imports System.Configuration
Imports Microsoft.Practices.Unity
Imports Microsoft.Practices.Unity.Configuration
Imports Hinshlabs.TfsDynamicPolicy.Common
Imports System.Reflection
Friend MustInherit Class UnityFactoryBase(Of T As {New, UnityFactoryBase(Of T)})
#Region " Singleton"
Private Shared m_Instance As T
Friend Shared ReadOnly Property Instance As T
Get
If m_Instance Is Nothing Then
m_Instance = New T
m_Instance.Initialize()
End If
Return m_Instance
End Get
End Property
Protected Sub New()
' Do nothing in here
End Sub
#End Region
Private m_UnityContainer As IUnityContainer
Private Sub Initialize()
' Create Unity container
m_UnityContainer = New UnityContainer()
' Configure Unity
Dim config As Configuration
Dim fm As New ExeConfigurationFileMap
fm.ExeConfigFilename = ConfigFilename
Dim configFileLocation As String = Path.Combine(Path.GetDirectoryName(Assembly.GetCallingAssembly.Location), ConfigFilename)
If Not File.Exists(configFileLocation) Then
Throw New FileNotFoundException(String.Format(CultureInfo.InvariantCulture, "Unable to load config file with the name {0}", fm.ExeConfigFilename), configFileLocation)
End If
config = ConfigurationManager.OpenMappedExeConfiguration(fm, ConfigurationUserLevel.None)
Dim section As UnityConfigurationSection = CType(config.GetSection("unity"), UnityConfigurationSection)
If section Is Nothing Then
Throw New AccessViolationException(String.Format(CultureInfo.InvariantCulture, "There is no unity section called {0} in the config file {1}", UnityContainerName, ConfigFilename))
End If
section.Containers(UnityContainerName).Configure(m_UnityContainer)
End Sub
Protected ReadOnly Property UnityContainer As IUnityContainer
Get
Return m_UnityContainer
End Get
End Property
Protected MustOverride ReadOnly Property UnityContainerName As String
Protected MustOverride ReadOnly Property ConfigFilename As String
End Class
The UnityFactoryBase class provides a couple of features. It provides a Singleton pattern so that we make sure that there is only ever one instance per factory type T and we initialise a UnityContainer for each Instance of factory T. You can see that on the class definition the generic type T that will be passed in is of the same type as the class itself. This makes sure that the class that represents T inherits from UnityFactoryBase(Of T As {New, UnityFactoryBase(Of T)}). When configuring the Unity Container we get both the container name and the config file to load from the child class. This allows for both different config files per factory and the option to have a single config file and multiple unity configuration elements. Its up to you…
We need to inherit from UnityFactoryBase(Of T As {New, UnityFactoryBase(Of T)}) to create our factory and provide a config file to configure the UnityContainer. The inherited class is pretty simple as we have done most of the heavy lifting in the base class.
Imports Hinshlabs.TfsDynamicPolicy.DataAccess.Common
' Assembly: Hinshlabs.TfsDynamicPolicy.DataAccess
Imports Hinshlabs.TfsDynamicPolicy.Common
Imports System.Globalization
Friend Class DataAccessFactory
Inherits UnityFactoryBase(Of DataAccessFactory)
Public Sub New()
' Do nothing in here
End Sub
Protected Overrides ReadOnly Property UnityContainerName As String
Get
Return "DataAccess"
End Get
End Property
Protected Overrides ReadOnly Property ConfigFilename As String
Get
Return String.Format(CultureInfo.InvariantCulture, "{0}.Unity.config", System.Reflection.Assembly.GetExecutingAssembly().GetName.Name)
End Get
End Property
Public Function GetDataAccess(Of T As IDataAccess)() As T
Return UnityContainer.Resolve(Of T)()
End Function
End Class
The DataAccessFactory provides the data needed by the UnityFactoryBase(Of DataAccessFactory) as well as the method that I need to retrieve an IDataAccess class. I will show you how it is called, but first there is the little matter of config:
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<section name="unity" type="Microsoft.Practices.Unity.Configuration.UnityConfigurationSection, Microsoft.Practices.Unity.Configuration" />
</configSections>
<unity>
<typeAliases>
<!-- Lifetime manager types should be inserted if you need lifetime managers -->
<typeAlias alias="singleton" type="Microsoft.Practices.Unity.ContainerControlledLifetimeManager, Microsoft.Practices.Unity" />
<typeAlias alias="external" type="Microsoft.Practices.Unity.ExternallyControlledLifetimeManager, Microsoft.Practices.Unity" />
<!-- User defined type aliases -->
<!-- An interface for artifact data access implementation -->
<typeAlias alias="IArtifactDataAccess`1" type="Hinshlabs.TfsDynamicPolicy.DataAccess.Common.IArtifactDataAccess`1, Hinshlabs.TfsDynamicPolicy.DataAccess.Common" />
</typeAliases>
<containers>
<container name="DataAccess">
<types>
<!-- Lifetime managers specified using the type aliases -->
<type type="IArtifactDataAccess`1" mapTo="Hinshlabs.TfsDynamicPolicy.DataAccess.Xml.ArtifactDataAccess`1, Hinshlabs.TfsDynamicPolicy.DataAccess.Xml">
<lifetime type="singleton" />
</type>
</types>
</container>
</containers>
</unity>
</configuration>
I am not going to explain the config file as it is well (ish) documented, but it effectively mapped all generic calls to retrieve IArtifactDataAccess`1 to the implementation in the XML assembly of ArtifactDataAccess`1 and makes the resultant object a singleton.
To call this lovely package after you have populated it with many many DataAccess goodies all you need to do is this:
Dim dal As IArtifactDataAccess(Of DynamicPolicy) = DataAccessFactory.Instance.GetDataAccess(Of IArtifactDataAccess(Of DynamicPolicy))()
Lovely and simple, and to add a new implementation all I need is an Interface like IArtifactDataAccess.. lets call it IHypotheticalDataBits, a concrete implementation… lets call it HypoDataFromTwitter and a mapping in the config file:
<type type="IHypotheticalDataBits" mapTo="Hinshlabs.TfsDynamicPolicy.DataAccess.Xml.HypoDataFromTwitter, Hinshlabs.TfsDynamicPolicy.DataAccess.Xml">
<lifetime type="singleton" />
</type>
And you can then call:
Dim dal As IHypotheticalDataBits = DataAccessFactory.Instance.GetDataAccess(Of IHypotheticalDataBits)()
Any easier and it would be writing for you :)
Technorati Tags: .NET Developing Version Control CodeProject
If you've made it this far, it's worth connecting with our principal consultant and coach, Martin Hinshelwood, for a 30-minute 'ask me anything' call.
We partner with businesses across diverse industries, including finance, insurance, healthcare, pharmaceuticals, technology, engineering, transportation, hospitality, entertainment, legal, government, and military sectors.
CR2