EDMI: Update Service and Client to Use Messages for EDMI Methods

Modules.EDMIAPI/Client/Channel.vb

@@ -0,0 +1,38 @@
+Imports System.ServiceModel
+Imports System.Xml
+
+
+Public Class Channel
+    ' Infos about MaxBufferSize and MaxBufferPoolSize
+    ' https://social.msdn.microsoft.com/Forums/vstudio/en-US/d6e234d3-942f-4e9d-8470-32618d3f3212/maxbufferpoolsize-vs-maxbuffersize?forum=wcf
+
+    Public Const MAX_RECEIVED_MESSAGE_SIZE = 2147483647 ' 1GB
+    Public Const MAX_BUFFER_SIZE = 2147483647 ' 10MB
+    Public Const MAX_BUFFER_POOL_SIZE = 2147483647 ' 40MB
+
+    Public Const MAX_CONNECTIONS = 500
+    Public Const MAX_ARRAY_LENGTH = 2147483647
+    Public Const MAX_STRING_CONTENT_LENGTH = 2147483647
+
+    Public Shared Function GetBinding(Optional AuthenticationMode As TcpClientCredentialType = TcpClientCredentialType.Windows) As NetTcpBinding
+        Return New NetTcpBinding() With {
+            .MaxReceivedMessageSize = MAX_RECEIVED_MESSAGE_SIZE,
+            .MaxBufferSize = MAX_BUFFER_SIZE,
+            .MaxBufferPoolSize = MAX_BUFFER_POOL_SIZE,
+            .MaxConnections = MAX_CONNECTIONS,
+            .TransferMode = TransferMode.Streamed,
+            .Security = New NetTcpSecurity() With {
+                .Mode = SecurityMode.Transport,
+                .Transport = New TcpTransportSecurity() With {
+                    .ClientCredentialType = AuthenticationMode
+                }
+            },
+            .ReaderQuotas = New XmlDictionaryReaderQuotas() With {
+                .MaxArrayLength = MAX_ARRAY_LENGTH,
+                .MaxStringContentLength = MAX_STRING_CONTENT_LENGTH
+            }
+        }
+    End Function
+End Class
+
+