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

Zooflow: Implement prefix for Config and Logging, Remove halbgar dev config

Browse Source
This commit is contained in:
Jonathan Jenne
2022-05-06 13:29:06 +02:00
parent 02f61b1e3f
commit 308b26556c
14 changed files with 109 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
GUIs.ZooFlow/ClassInit.vb
View File

@@ -118,15 +118,26 @@ Public Class ClassInit
If oResult <> DialogResult.OK Then
Throw New InitException("Could not initialize IDB-Service!")
End If
My.SystemConfig.AppServerConfig = oForm.ServiceAddress
My.SystemConfigManager.Save()
End If
' These Properties need to be set directly on
My.Application.Service.Address = My.SystemConfig.AppServerConfig
My.Application.Service.Client = New Client(LogConfig, My.SystemConfig.AppServerConfig)
MyApplication.Service.Address = My.SystemConfig.AppServerConfig
If Not IsNothing(My.Application.Service.Client) Then
My.Application.Service.Client.Connect()
Dim oClient = New Client(LogConfig, My.SystemConfig.AppServerConfig)
MyApplication.Service.Client = oClient
My.Application.Service.Client = oClient
If oClient Is Nothing Then
Throw New InitException("Could not initialize IDB-Service!")
End If
Dim oConnectionResult = My.Application.Service.Client.Connect()
If oConnectionResult = False Then
Throw New InitException("Could not connect to Service!")
End If
Catch ex As Exception
Logger.Error(ex)
@@ -136,7 +147,7 @@ Public Class ClassInit
Private Sub InitializeDatabaseWithFallback(MyApplication As My.MyApplication)
Try
Logger.Debug("Loading client config..")
Dim oClientConfig = MyApplication.Service.Client.ClientConfig
Dim oClientConfig = My.Application.Service.Client.ClientConfig
Logger.Debug("Establishing ECM connection..")
Dim oECMConnectionString = oClientConfig.ConnectionStringECM