MS Integration Services und fileOps

2018-12-28 13:59:55 +01:00
parent a567d18e46
commit f22d7ce643
86 changed files with 6734 additions and 108 deletions
--- a/EDMI_ClientSuite/ClassInit.vb
+++ b/EDMI_ClientSuite/ClassInit.vb
@@ -1,3 +1,61 @@
-Public Class ClassInit
+Imports DigitalData.Modules.Logging
+Imports System.ServiceModel
+Imports EDMI_ClientSuite.NetworkService_DDEDM
+Imports System.IO
+
+Public Class ClassInit
+    Private _ChannelFactory As ChannelFactory(Of IEDMServiceChannel)
+    Private _Channel As IEDMServiceChannel
+    Private _Logger As Logger
+    Private _MyLogger As LogConfig
+
+    Public Sub New()
+        Dim oUserAppdata = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\EDMI_Client_Suite\Log")
+
+        _MyLogger = New LogConfig(LogConfig.PathType.CustomPath, oUserAppdata)
+        _Logger = _MyLogger.GetLogger()
+        MyLogger = _Logger
+        MyLogConfig = _MyLogger
+
+        Try
+            Dim binding As New NetTcpBinding()
+            binding.Security.Mode = SecurityMode.Transport
+            binding.Security.Transport.ClientCredentialType = TcpClientCredentialType.Windows
+            binding.MaxReceivedMessageSize = 2147483647
+            binding.MaxBufferSize = 2147483647
+            binding.MaxBufferPoolSize = 2147483647
+            binding.MaxConnections = 10000
+            binding.ReaderQuotas.MaxArrayLength = 2147483647
+            binding.ReaderQuotas.MaxStringContentLength = 2147483647
+            'binding.TransferMode = TransferMode.Streamed
+
+            Dim endpointAddress = New EndpointAddress(My.Settings.EDM_NetworkService_Adress)
+            _ChannelFactory = New ChannelFactory(Of IEDMServiceChannel)(binding, endpointAddress)
+            Connect2NetService()
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+
+
+    End Sub
+    Private Sub Connect2NetService()
+        Try
+            _Channel = Nothing
+            _Channel = _ChannelFactory.CreateChannel()
+            _Logger.Info("Successfully connected to EDM_Network Service")
+            AddHandler _Channel.Faulted, AddressOf Reconnect
+
+            _Channel.Open()
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+
+
+    End Sub
+    Private Sub Reconnect()
+        _Channel.Abort()
+
+        Connect2NetService()
+    End Sub

 End Class