source/csla10/Backup/CSLA.Server.DataPortal/AssemblyInfo.vb

@@ -0,0 +1,36 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following 
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("CSLA.Server.DataPortal")> 
+<Assembly: AssemblyDescription("CSLA .NET framework")> 
+<Assembly: AssemblyCompany("Rockford Lhotka")> 
+<Assembly: AssemblyProduct("Expert One-on-One VB.NET Business Objects")> 
+<Assembly: AssemblyCopyright("Copyright 2003 Rockford Lhotka. All rights reserved.")> 
+<Assembly: AssemblyTrademark("")> 
+<Assembly: CLSCompliant(True)> 
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("1E5537B9-A381-4E20-8869-47FBAC978A2D")> 
+
+' Version information for an assembly consists of the following four values:
+'
+'      Major Version
+'      Minor Version 
+'      Build Number
+'      Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers 
+' by using the '*' as shown below:
+
+<Assembly: AssemblyVersion("1.3.0")> 
+
+
+' strong name
+<Assembly: AssemblyKeyFile("..\..\..\..\..\keys\AyaNova.snk")> 

source/csla10/Backup/CSLA.Server.DataPortal/CSLA.Server.DataPortal.vbproj

@@ -0,0 +1,117 @@
+<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectType>Local</ProjectType>
+    <ProductVersion>8.0.50727</ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{80828E2C-E9FB-4E73-A27C-7F9CDB96FCDE}</ProjectGuid>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ApplicationIcon>
+    </ApplicationIcon>
+    <AssemblyKeyContainerName>
+    </AssemblyKeyContainerName>
+    <AssemblyName>CSLA.Server.DataPortal</AssemblyName>
+    <AssemblyOriginatorKeyFile>
+    </AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
+    <DefaultClientScript>JScript</DefaultClientScript>
+    <DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
+    <DefaultTargetSchema>IE50</DefaultTargetSchema>
+    <DelaySign>false</DelaySign>
+    <OutputType>Library</OutputType>
+    <OptionCompare>Binary</OptionCompare>
+    <OptionExplicit>On</OptionExplicit>
+    <OptionStrict>Off</OptionStrict>
+    <RootNamespace>CSLA</RootNamespace>
+    <StartupObject>CSLA.%28None%29</StartupObject>
+    <FileUpgradeFlags>
+    </FileUpgradeFlags>
+    <MyType>Windows</MyType>
+    <UpgradeBackupLocation>
+    </UpgradeBackupLocation>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>CSLA.Server.DataPortal.xml</DocumentationFile>
+    <BaseAddress>285212672</BaseAddress>
+    <ConfigurationOverrideFile>
+    </ConfigurationOverrideFile>
+    <DefineConstants>
+    </DefineConstants>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <DebugSymbols>true</DebugSymbols>
+    <Optimize>false</Optimize>
+    <RegisterForComInterop>false</RegisterForComInterop>
+    <RemoveIntegerChecks>false</RemoveIntegerChecks>
+    <TreatWarningsAsErrors>false</TreatWarningsAsErrors>
+    <WarningLevel>1</WarningLevel>
+    <NoWarn>42016,42017,42018,42019,42032</NoWarn>
+    <DebugType>full</DebugType>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>CSLA.Server.DataPortal.xml</DocumentationFile>
+    <BaseAddress>285212672</BaseAddress>
+    <ConfigurationOverrideFile>
+    </ConfigurationOverrideFile>
+    <DefineConstants>
+    </DefineConstants>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <DebugSymbols>false</DebugSymbols>
+    <Optimize>true</Optimize>
+    <RegisterForComInterop>false</RegisterForComInterop>
+    <RemoveIntegerChecks>false</RemoveIntegerChecks>
+    <TreatWarningsAsErrors>false</TreatWarningsAsErrors>
+    <WarningLevel>1</WarningLevel>
+    <NoWarn>42016,42017,42018,42019,42032</NoWarn>
+    <DebugType>none</DebugType>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System">
+      <Name>System</Name>
+    </Reference>
+    <Reference Include="System.configuration" />
+    <Reference Include="System.Data">
+      <Name>System.Data</Name>
+    </Reference>
+    <Reference Include="System.Xml">
+      <Name>System.XML</Name>
+    </Reference>
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="AssemblyInfo.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="CriteriaBase.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="DataPortal.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="DataPortalContext.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="ISerializationNotification.vb">
+      <SubType>Code</SubType>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <Folder Include="My Project\" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
+  <PropertyGroup>
+    <PreBuildEvent>
+    </PreBuildEvent>
+    <PostBuildEvent>
+    </PostBuildEvent>
+  </PropertyGroup>
+</Project>

source/csla10/Backup/CSLA.Server.DataPortal/CSLA.Server.DataPortal.vbproj.user

@@ -0,0 +1,58 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <LastOpenVersion>7.10.3077</LastOpenVersion>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ReferencePath>
+    </ReferencePath>
+    <CopyProjectDestinationFolder>
+    </CopyProjectDestinationFolder>
+    <CopyProjectUncPath>
+    </CopyProjectUncPath>
+    <CopyProjectOption>0</CopyProjectOption>
+    <ProjectView>ShowAllFiles</ProjectView>
+    <ProjectTrust>0</ProjectTrust>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <EnableASPDebugging>false</EnableASPDebugging>
+    <EnableASPXDebugging>false</EnableASPXDebugging>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+    <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <RemoteDebugMachine>
+    </RemoteDebugMachine>
+    <StartAction>Project</StartAction>
+    <StartArguments>
+    </StartArguments>
+    <StartPage>
+    </StartPage>
+    <StartProgram>
+    </StartProgram>
+    <StartURL>
+    </StartURL>
+    <StartWorkingDirectory>
+    </StartWorkingDirectory>
+    <StartWithIE>false</StartWithIE>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <EnableASPDebugging>false</EnableASPDebugging>
+    <EnableASPXDebugging>false</EnableASPXDebugging>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+    <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <RemoteDebugMachine>
+    </RemoteDebugMachine>
+    <StartAction>Project</StartAction>
+    <StartArguments>
+    </StartArguments>
+    <StartPage>
+    </StartPage>
+    <StartProgram>
+    </StartProgram>
+    <StartURL>
+    </StartURL>
+    <StartWorkingDirectory>
+    </StartWorkingDirectory>
+    <StartWithIE>false</StartWithIE>
+  </PropertyGroup>
+</Project>

source/csla10/Backup/CSLA.Server.DataPortal/CriteriaBase.vb

@@ -0,0 +1,21 @@
+''' <summary>
+''' Base type from which Criteria classes can be
+''' derived in a business class. 
+''' </summary>
+<Serializable()> _
+Public MustInherit Class CriteriaBase
+  ''' <summary>
+  ''' Type of the business object to be instantiated by
+  ''' the server-side DataPortal. 
+  ''' </summary>
+  Public ObjectType As Type
+
+  ''' <summary>
+  ''' Initializes CriteriaBase with the type of
+  ''' business object to be created by the DataPortal.
+  ''' </summary>
+  Public Sub New(ByVal Type As Type)
+    ObjectType = Type
+  End Sub
+
+End Class

source/csla10/Backup/CSLA.Server.DataPortal/DataPortal.vb

@@ -0,0 +1,225 @@
+Imports System.Reflection
+Imports System.Security.Principal
+Imports System.Configuration
+
+''' <summary>
+''' 
+''' </summary>
+Namespace Server
+
+  ''' <summary>
+  ''' Implements the server-side DataPortal as discussed
+  ''' in Chapter 5.
+  ''' </summary>
+  Public Class DataPortal
+    Inherits MarshalByRefObject
+
+#Region " Data Access "
+
+    ''' <summary>
+    ''' Called by the client-side DataPortal to create a new object.
+    ''' </summary>
+    ''' <param name="Criteria">Object-specific criteria.</param>
+    ''' <param name="Principal">The user's principal object (if using CSLA .NET security).</param>
+    ''' <returns>A populated business object.</returns>
+    Public Function Create(ByVal Criteria As Object, ByVal context As DataPortalContext) As Object
+
+      SetPrincipal(context.Principal)
+
+      ' create an instance of the business object
+      Dim obj As Object = CreateBusinessObject(Criteria)
+
+      ' tell the business object to fetch its data
+      CallMethod(obj, "DataPortal_Create", Criteria)
+      ' return the populated business object as a result
+      If context.IsRemotePortal Then
+        Serialization.SerializationNotification.OnSerializing(obj)
+      End If
+      Return obj
+
+    End Function
+
+    ''' <summary>
+    ''' Called by the client-side DataProtal to retrieve an object.
+    ''' </summary>
+    ''' <param name="Criteria">Object-specific criteria.</param>
+    ''' <param name="Principal">The user's principal object (if using CSLA .NET security).</param>
+    ''' <returns>A populated business object.</returns>
+    Public Function Fetch(ByVal Criteria As Object, ByVal context As DataPortalContext) As Object
+      SetPrincipal(context.Principal)
+
+      ' create an instance of the business object
+      Dim obj As Object = CreateBusinessObject(Criteria)
+
+      ' tell the business object to fetch its data
+      CallMethod(obj, "DataPortal_Fetch", Criteria)
+
+      ' return the populated business object as a result
+      If context.IsRemotePortal Then
+        Serialization.SerializationNotification.OnSerializing(obj)
+      End If
+      Return obj
+
+    End Function
+
+    ''' <summary>
+    ''' Called by the client-side DataPortal to update an object.
+    ''' </summary>
+    ''' <param name="obj">A reference to the object being updated.</param>
+    ''' <param name="Principal">The user's principal object (if using CSLA .NET security).</param>
+    ''' <returns>A reference to the newly updated object.</returns>
+    Public Function Update(ByVal obj As Object, ByVal context As DataPortalContext) As Object
+
+      SetPrincipal(context.Principal)
+
+      If context.IsRemotePortal Then
+        Serialization.SerializationNotification.OnDeserialized(obj)
+      End If
+
+      ' tell the business object to update itself
+      CallMethod(obj, "DataPortal_Update")
+
+      If context.IsRemotePortal Then
+        Serialization.SerializationNotification.OnSerializing(obj)
+      End If
+      Return obj
+
+    End Function
+
+    ''' <summary>
+    ''' Called by the client-side DataPortal to delete an object.
+    ''' </summary>
+    ''' <param name="Criteria">Object-specific criteria.</param>
+    ''' <param name="Principal">The user's principal object (if using CSLA .NET security).</param>
+    Public Sub Delete(ByVal Criteria As Object, ByVal context As DataPortalContext)
+
+      SetPrincipal(context.Principal)
+
+      ' create an instance of the business object
+      Dim obj As Object = CreateBusinessObject(Criteria)
+
+      ' tell the business object to delete itself
+      CallMethod(obj, "DataPortal_Delete", Criteria)
+
+    End Sub
+
+#End Region
+
+#Region " Security "
+
+    Private Function AUTHENTICATION() As String
+
+      Return System.Configuration.ConfigurationManager.AppSettings("Authentication")
+
+    End Function
+
+    Private Sub SetPrincipal(ByVal Principal As Object)
+      Dim objPrincipal As IPrincipal
+      Dim objIdentity As IIdentity
+
+      If AUTHENTICATION() = "Windows" Then
+        ' When using integrated security, Principal must be Nothing 
+        If Principal Is Nothing Then
+          ' Set .NET to use integrated security 
+          AppDomain.CurrentDomain.SetPrincipalPolicy(PrincipalPolicy.WindowsPrincipal)
+          Exit Sub
+
+        Else
+          Throw New Security.SecurityException( _
+            "No principal object should be passed to DataPortal when using Windows integrated security")
+        End If
+      End If
+
+      ' We expect the Principal to be of the type BusinessPrincipal, but we can't enforce 
+      ' that since it causes a circular reference with the business library. 
+      ' Instead we must use type Object for the parameter, so here we do a check 
+      ' on the type of the parameter. 
+      objPrincipal = CType(Principal, IPrincipal)
+      If Not (objPrincipal Is Nothing) Then
+        objIdentity = objPrincipal.Identity
+        If Not (objIdentity Is Nothing) Then
+          If objIdentity.AuthenticationType = "CSLA" Then
+            ' See if our current principal is different from the caller's principal 
+            If Not ReferenceEquals(Principal, _
+                System.Threading.Thread.CurrentPrincipal) Then
+
+              ' The caller had a different principal, so change ours to match the 
+              ' caller's, so all our objects use the caller's security. 
+              System.Threading.Thread.CurrentPrincipal = CType(Principal, _
+                IPrincipal)
+            End If
+
+          Else
+            Throw New Security.SecurityException( _
+              "Principal must be of type BusinessPrincipal, not " & Principal.ToString())
+          End If
+
+        End If
+
+      Else
+        Throw New Security.SecurityException( _
+          "Principal must be of type BusinessPrincipal, not Nothing")
+      End If
+
+    End Sub
+
+#End Region
+
+#Region " Creating the business object "
+
+    Private Function CreateBusinessObject(ByVal Criteria As Object) As Object
+
+      Dim businessType As Type
+
+      If Criteria.GetType.IsSubclassOf(GetType(CriteriaBase)) Then
+        ' get the type of the actual business object
+        ' from CriteriaBase (using the new scheme)
+        businessType = CType(Criteria, CriteriaBase).ObjectType
+
+      Else
+        ' get the type of the actual business object
+        ' based on the nested class scheme in the book
+        businessType = Criteria.GetType.DeclaringType
+      End If
+
+      ' create an instance of the business object
+      Return Activator.CreateInstance(businessType, True)
+
+    End Function
+
+#End Region
+
+#Region " Calling a method "
+
+    Private Function CallMethod(ByVal obj As Object, ByVal method As String, ByVal ParamArray params() As Object) As Object
+
+      ' call a private method on the object
+      Dim info As MethodInfo = GetMethod(obj.GetType, method)
+      Dim result As Object
+
+      Try
+        result = info.Invoke(obj, params)
+
+      Catch e As Exception
+                Throw 'e.InnerException
+      End Try
+      Return result
+
+    End Function
+
+    Private Function GetMethod(ByVal ObjectType As Type, ByVal method As String) As MethodInfo
+
+      Return ObjectType.GetMethod(method, _
+        BindingFlags.FlattenHierarchy Or _
+        BindingFlags.Instance Or _
+        BindingFlags.Public Or _
+        BindingFlags.NonPublic)
+
+    End Function
+
+#End Region
+
+  End Class
+
+End Namespace
+

source/csla10/Backup/CSLA.Server.DataPortal/DataPortalContext.vb

@@ -0,0 +1,66 @@
+Imports System.Security.Principal
+
+''' <summary>
+''' 
+''' </summary>
+Namespace Server
+
+  ''' <summary>
+  ''' Provides consistent context information between the client
+  ''' and server DataPortal objects. 
+  ''' </summary>
+  ''' <remarks>
+  ''' The context includes the current 
+  ''' <see cref="T:CSLA.Security.BusinessPrincipal" />
+  ''' object if CSLA security is being used. It also includes a
+  ''' flag indicating whether the server-side DataPortal is running
+  ''' locally or remotely.
+  ''' </remarks>
+  <Serializable()> _
+  Public Class DataPortalContext
+
+    Private mPrincipal As IPrincipal
+    Private mRemotePortal As Boolean
+
+    ''' <summary>
+    ''' The current <see cref="T:CSLA.Security.BusinessPrincipal" />
+    ''' if CSLA security is being used.
+    ''' </summary>
+    Public ReadOnly Property Principal() As IPrincipal
+      Get
+        Return mPrincipal
+      End Get
+    End Property
+
+    ''' <summary>
+    ''' Returns True if the server-side DataPortal is running
+    ''' on a remote server via remoting.
+    ''' </summary>
+    Public ReadOnly Property IsRemotePortal() As Boolean
+      Get
+        Return mRemotePortal
+      End Get
+    End Property
+
+    ''' <summary>
+    ''' Creates a new DataPortalContext object.
+    ''' </summary>
+    ''' <param name="isRemotePortal">Indicates whether the DataPortal is remote.</param>
+    Public Sub New(ByVal isRemotePortal As Boolean)
+      mPrincipal = Nothing
+      mRemotePortal = isRemotePortal
+    End Sub
+
+    ''' <summary>
+    ''' Creates a new DataPortalContext object.
+    ''' </summary>
+    ''' <param name="principal">The current Principal object.</param>
+    ''' <param name="isRemotePortal">Indicates whether the DataPortal is remote.</param>
+    Public Sub New(ByVal principal As IPrincipal, ByVal isRemotePortal As Boolean)
+      mPrincipal = principal
+      mRemotePortal = isRemotePortal
+    End Sub
+
+  End Class
+
+End Namespace

source/csla10/Backup/CSLA.Server.DataPortal/ISerializationNotification.vb

@@ -0,0 +1,86 @@
+''' <summary>
+''' Contains interfaces and classes to help support serialization
+''' of objects.
+''' </summary>
+Namespace Serialization
+
+  ''' <summary>
+  ''' Objects can implement this interface if they wish to be
+  ''' notified of serialization events.
+  ''' </summary>
+  ''' <remarks>
+  ''' <para>
+  ''' Note that .NET serialization does NOT call these methods. Only
+  ''' code that checks for the ISerializationNotification interface
+  ''' when serializating and deserializing objects will invoke these
+  ''' methods.
+  ''' </para><para>
+  ''' The CSLA .NET framework's DataPortal processing and the Clone
+  ''' method in BusinessBase automatically make these calls.
+  ''' </para>
+  ''' </remarks>
+  Public Interface ISerializationNotification
+    ''' <summary>
+    ''' This method is called before an object is serialized.
+    ''' </summary>
+    Sub Serializing()
+    ''' <summary>
+    ''' This method is called on the original instance of the
+    ''' object after it has been serialized.
+    ''' </summary>
+    Sub Serialized()
+    ''' <summary>
+    ''' This method is called on a newly deserialized object
+    ''' after deserialization is complete.
+    ''' </summary>
+    Sub Deserialized()
+  End Interface
+
+  ''' <summary>
+  ''' Helper methods for invoking the ISerializatoinNotification
+  ''' methods.
+  ''' </summary>
+  Public Class SerializationNotification
+
+    ''' <summary>
+    ''' Invokes the Serializing method on the target object
+    ''' if it has implemented ISerializationNotification.
+    ''' </summary>
+    ''' <param name="target">Object on which the method should be invoked.</param>
+    Public Shared Sub OnSerializing(ByVal target As Object)
+
+      If TypeOf target Is ISerializationNotification Then
+        DirectCast(target, ISerializationNotification).Serializing()
+      End If
+
+    End Sub
+
+    ''' <summary>
+    ''' Invokes the Serialized method on the target object
+    ''' if it has implemented ISerializationNotification.
+    ''' </summary>
+    ''' <param name="target">Object on which the method should be invoked.</param>
+    Public Shared Sub OnSerialized(ByVal target As Object)
+
+      If TypeOf target Is ISerializationNotification Then
+        DirectCast(target, ISerializationNotification).Serialized()
+      End If
+
+    End Sub
+
+    ''' <summary>
+    ''' Invokes the Deserialized method on the target object
+    ''' if it has implemented ISerializationNotification.
+    ''' </summary>
+    ''' <param name="target">Object on which the method should be invoked.</param>
+    Public Shared Sub OnDeserialized(ByVal target As Object)
+
+      If TypeOf target Is ISerializationNotification Then
+        DirectCast(target, ISerializationNotification).Deserialized()
+      End If
+
+    End Sub
+
+  End Class
+
+End Namespace