' Developer Express Code Central Example:
' How to: Implement middle tier security with the WCF service
' 
' The complete description is available in the Middle Tier Security - WCF Service
' (http://documentation.devexpress.com/#xaf/CustomDocument3439) topic.
' 
' You can find sample updates and versions for different programming languages here:
' http://www.devexpress.com/example=E4036

Imports Microsoft.VisualBasic
Imports System
Imports System.Configuration
Imports System.Windows.Forms
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Xpo
Imports DevExpress.ExpressApp.Security
Imports DevExpress.ExpressApp.Win
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports System.Collections
Imports System.Runtime.Remoting.Channels.Tcp
Imports System.Runtime.Remoting.Channels
Imports DevExpress.ExpressApp.Security.ClientServer
Imports DevExpress.ExpressApp.Security.ClientServer.Wcf
Imports System.ServiceModel
Imports System.Security.Principal

Namespace SecuritySystemExample.Win
    Friend NotInheritable Class Program
        ''' <summary>
        ''' The main entry point for the application.
        ''' </summary>
        Private Sub New()
        End Sub
        <STAThread> _
        Shared Sub Main()
#If EASYTEST Then
			DevExpress.ExpressApp.Win.EasyTest.EasyTestRemotingRegistration.Register()
#End If
            AppDomain.CurrentDomain.SetPrincipalPolicy(PrincipalPolicy.WindowsPrincipal)
            Application.EnableVisualStyles()
            Application.SetCompatibleTextRenderingDefault(False)
            EditModelPermission.AlwaysGranted = System.Diagnostics.Debugger.IsAttached
            Dim winApplication As New SecuritySystemExampleWindowsFormsApplication()
            Try
                winApplication.ConnectionString = ConfigurationManager.AppSettings("WCFUrl")

                Dim _Binding As BasicHttpBinding = New BasicHttpBinding
                _Binding.Security.Mode = BasicHttpSecurityMode.None

                Dim clientDataServer As New WcfSecuredDataServerClient(_Binding, New EndpointAddress(winApplication.ConnectionString))

                Dim securityClient As New ServerSecurityClient(clientDataServer, New ClientInfoFactory())

                securityClient.IsSupportChangePassword = True

                winApplication.ApplicationName = "SISBusiness"
                winApplication.Security = securityClient
                AddHandler winApplication.CreateCustomObjectSpaceProvider, Function(sender, e) AnonymousMethod1(sender, e, clientDataServer, securityClient)
                winApplication.Setup()
                winApplication.Start()
                clientDataServer.Close()
            Catch e As Exception
                winApplication.HandleException(e)
            End Try
        End Sub

        Private Shared Function AnonymousMethod1(ByVal sender As Object, ByVal e As CreateCustomObjectSpaceProviderEventArgs, ByVal clientDataServer As WcfSecuredDataServerClient, ByVal securityClient As ServerSecurityClient) As Boolean
            e.ObjectSpaceProvider = New DataServerObjectSpaceProvider(clientDataServer, securityClient)
            Return True
        End Function
    End Class
End Namespace