EDMIService: Move service configuration to code

Service.EDMIService/EDMIService.vb

@@ -1,12 +1,14 @@
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Filesystem
-Imports DigitalData.Modules.language
+Imports DigitalData.Modules.Language
 Imports DigitalData.Modules
 Imports System.IO
 Imports System.ServiceModel
 Imports System.Data.SqlClient
 Imports DigitalData.Services.EDMIService.Results
+Imports System.ServiceModel.Description
+Imports System.ServiceModel.Channels
 
 <ServiceBehavior(InstanceContextMode:=InstanceContextMode.PerSession)>
 Public Class EDMIService
@@ -27,6 +29,18 @@ Public Class EDMIService
     Private ReadOnly _debug As Boolean = False
     Private ReadOnly _username As String
 
+    Public Shared Sub Configure(Config As ServiceConfiguration)
+        Dim oBaseAddress = Config.BaseAddresses.Item(0)
+        Dim oBinding = EDMI.API.Channel.GetBinding()
+        Dim oAddress = New EndpointAddress(oBaseAddress)
+        ' See: https://stackoverflow.com/questions/42327988/addserviceendpoint-throws-key-is-null
+        Dim oDescription = ContractDescription.GetContract(GetType(IEDMIService), GetType(EDMIService))
+        Dim oEndpoint As New ServiceEndpoint(oDescription, oBinding, oAddress)
+
+        Config.AddServiceEndpoint(oEndpoint)
+        Config.Description.Behaviors.Add(New ServiceDebugBehavior With {.IncludeExceptionDetailInFaults = True})
+    End Sub
+
     Public Sub New()
         Dim oOperationContext As OperationContext = OperationContext.Current
         Dim oInstanceContext As InstanceContext = oOperationContext.InstanceContext