rename class init to class service
This commit is contained in:
@@ -25,14 +25,17 @@ Public NotInheritable Class frmSplash
|
||||
|
||||
BringToFront()
|
||||
|
||||
Dim oInit As New ClassInit()
|
||||
Dim oConnectionURLExists = oInit.TestConnectionURLExists()
|
||||
Dim oService As New ClassService(My.LogConfig)
|
||||
Dim oConnectionURLExists As Boolean = My.Config.ServiceConnection <> String.Empty
|
||||
|
||||
'Dim oInit As New ClassInit()
|
||||
'Dim oConnectionURLExists = oInit.TestConnectionURLExists()
|
||||
|
||||
If Not oConnectionURLExists Then
|
||||
Dim oResult = frmConfigService.ShowDialog()
|
||||
|
||||
If oResult = DialogResult.Cancel Then
|
||||
MsgBox("Es wurde keine Dienst Verbindungsurl hinterlegt. Die Anwendung wird beendet.")
|
||||
MsgBox("Es wurde keine Dienst-Verbindungsurl hinterlegt. Die Anwendung wird beendet.")
|
||||
Application.Exit()
|
||||
Else
|
||||
StartWorker()
|
||||
@@ -57,17 +60,15 @@ Public NotInheritable Class frmSplash
|
||||
End Sub
|
||||
|
||||
Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
|
||||
Dim oInit As New ClassInit()
|
||||
Dim oService As New ClassService(My.LogConfig)
|
||||
|
||||
'------------------
|
||||
_Worker.ReportProgress(SetProgress(1), "Connecting to service..")
|
||||
|
||||
Dim oChannelFactory As ChannelFactory(Of IEDMServiceChannel)
|
||||
Dim oChannel As IEDMServiceChannel
|
||||
Dim oConnectionSuccessful = False
|
||||
|
||||
|
||||
oChannelFactory = oInit.GetChannelFactory()
|
||||
oChannelFactory = oService.GetChannelFactory()
|
||||
oChannel = oChannelFactory.CreateChannel()
|
||||
|
||||
Thread.Sleep(SLEEP_TIME)
|
||||
|
||||
Reference in New Issue
Block a user