AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update Service Reference in EDMI.API

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ClientSuite/ClassService.vb
View File

@@ -2,7 +2,7 @@
Imports System.ServiceModel.Channels
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.IDBServiceReference
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.GUIs.ClientSuite.Base
Imports System.ServiceModel.Security
@@ -73,15 +73,15 @@ Public Class ClassService
End Function)
End Function
Public Function GetChannelFactory() As IChannelFactory(Of IIDBServiceChannel)
Public Function GetChannelFactory() As IChannelFactory(Of IEDMIServiceChannel)
Return GetChannelFactory(My.SysConfig.ServiceConnection)
End Function
Public Function GetChannelFactory(EndpointURL As String) As ChannelFactory(Of IIDBServiceChannel)
Public Function GetChannelFactory(EndpointURL As String) As ChannelFactory(Of IEDMIServiceChannel)
Dim oBinding = GetBinding()
Dim oEndpoint = New EndpointAddress(EndpointURL)
Dim oFactory As New ChannelFactory(Of IIDBServiceChannel)(oBinding, oEndpoint)
Dim oFactory As New ChannelFactory(Of IEDMIServiceChannel)(oBinding, oEndpoint)
Return oFactory
End Function

2
GUIs.ClientSuite/Common/ClassCommonCommands.vb
View File

@@ -1,5 +1,5 @@
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMI.API.IDBServiceReference
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Public Class ClassCommonCommands
Private _LogConfig As LogConfig

6
GUIs.ClientSuite/MyApplication.vb
View File

@@ -2,7 +2,7 @@
Imports System.Threading
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMI.API.IDBServiceReference
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Namespace My
''' <summary>
@@ -26,8 +26,8 @@ Namespace My
End Property
Property LogConfig As LogConfig
Property ChannelFactory As ChannelFactory(Of IIDBServiceChannel)
Property Channel As IIDBServiceChannel
Property ChannelFactory As ChannelFactory(Of IEDMIServiceChannel)
Property Channel As IEDMIServiceChannel
Property MainForm As frmMain
Property Common As ClassCommon
End Module

6
GUIs.ClientSuite/frmSplash.vb
View File

@@ -2,12 +2,12 @@
Imports System.ServiceModel
Imports System.Threading
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMI.API.IDBServiceReference
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Public NotInheritable Class frmSplash
Private _Worker As New BackgroundWorker()
Private _ChannelFactory As ChannelFactory(Of IIDBServiceChannel)
Private _Channel As IIDBServiceChannel
Private _ChannelFactory As ChannelFactory(Of IEDMIServiceChannel)
Private _Channel As IEDMIServiceChannel
Private _Logger As Logger
Private _CurrentRetry As Integer = 0