update Service Reference in EDMI.API

This commit is contained in:
Jonathan Jenne
2020-04-07 10:47:04 +02:00
parent fa476e3101
commit 37a3675d84
28 changed files with 405 additions and 424 deletions

View File

@@ -1,13 +1,13 @@
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMI.API.IDBServiceReference
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports System.ServiceModel
Imports System.IO
Public Class Document
Private _logger As Logger
Private _logConfig As LogConfig
Private _channelFactory As ChannelFactory(Of IIDBServiceChannel)
Private _channel As IIDBServiceChannel
Private _channelFactory As ChannelFactory(Of IEDMIServiceChannel)
Private _channel As IEDMIServiceChannel
''' <summary>
''' Creates a new EDMIAPI object
@@ -21,7 +21,7 @@ Public Class Document
Try
Dim oBinding = Channel.GetBinding()
Dim oAddress = New EndpointAddress(ServiceAdress)
Dim oFactory = New ChannelFactory(Of IIDBServiceChannel)(oBinding, oAddress)
Dim oFactory = New ChannelFactory(Of IEDMIServiceChannel)(oBinding, oAddress)
_channelFactory = oFactory
Catch ex As Exception
@@ -167,7 +167,7 @@ Public Class Document
''' Creates a channel and adds a Faulted-Handler
''' </summary>
''' <returns>A channel object</returns>
Private Function GetChannel() As IIDBServiceChannel
Private Function GetChannel() As IEDMIServiceChannel
Try
_logger.Debug("Creating channel..")
Dim oChannel = _channelFactory.CreateChannel()