AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Zooflow: Implement Single file Search Results, Rework client wrt Address parsing

Browse Source
This commit is contained in:
Jonathan Jenne
2022-04-13 15:39:01 +02:00
parent 7716a04452
commit 160040535d
23 changed files with 346 additions and 234 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
GUIs.ZooFlow/ClassInit.vb
View File

@@ -119,15 +119,13 @@ Public Class ClassInit
End If
End If
MyApplication.Service.Address = My.SystemConfig.AppServerConfig
Dim oServerData = Client.ParseServiceAddress(My.SystemConfig.AppServerConfig)
' These Properties need to be set directly on
My.Application.Service.Client = New Client(LogConfig, oServerData.Item1, oServerData.Item2)
My.Application.Service.Address = My.SystemConfig.AppServerConfig
My.Application.Service.Client = New Client(LogConfig, My.SystemConfig.AppServerConfig)
If Not IsNothing(My.Application.Service.Client) Then
If My.Application.Service.Client.Connect() Then
MyApplication.Service.IsActive = True
End If
My.Application.Service.Client.Connect()
End If
Catch ex As Exception
Logger.Error(ex)