Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,73 @@
+' 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