67 lines
2.7 KiB
VB.net
67 lines
2.7 KiB
VB.net
Imports DigitalData.Modules.EDMI.API
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class frmServiceConfig
|
|
Private Client As Client
|
|
Private Logger As Logger
|
|
|
|
Private Const STATUS_CONNECTED = "Connection Established"
|
|
Private Const STATUS_CONNECTING = "Trying to create connection..."
|
|
Private Const STATUS_FAILED = "Connection Failed!"
|
|
|
|
Private ConnectionChanged As Boolean = False
|
|
|
|
Private Sub frmServiceConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Logger = My.LogConfig.GetLogger()
|
|
|
|
If My.SystemConfig.AppServerConfig <> String.Empty Then
|
|
Dim oAddress = Client.ParseServiceAddress(My.SystemConfig.AppServerConfig)
|
|
txtServiceAddress.Text = oAddress.Item1
|
|
txtServicePort.Text = oAddress.Item2
|
|
End If
|
|
|
|
If My.Application.Service.Client.IsOnline Then
|
|
txtStatus.Text = STATUS_CONNECTED
|
|
End If
|
|
|
|
txtServiceAddress.Focus()
|
|
End Sub
|
|
|
|
Private Sub btnOK_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOK.ItemClick
|
|
Try
|
|
Dim oIPAddress = txtServiceAddress.Text
|
|
Dim oPort = Integer.Parse(txtServicePort.Text)
|
|
Dim oEndpointURL = $"net.tcp://{oIPAddress}:{oPort}/DigitalData/Services/Main"
|
|
|
|
Client = New Client(My.LogConfig, oIPAddress, oPort)
|
|
|
|
txtStatus.Text = STATUS_CONNECTING
|
|
Dim oResult = Client.Connect()
|
|
|
|
If oResult = True Then
|
|
My.SystemConfig.AppServerConfig = $"{oIPAddress}:{oPort}"
|
|
My.SystemConfigManager.Save()
|
|
txtStatus.Text = STATUS_CONNECTED
|
|
|
|
Else
|
|
txtStatus.Text = STATUS_FAILED
|
|
' TODO: Make a connection test that is as elaborate as this one :D
|
|
'Select Case oResult
|
|
' Case ClassService.ConnectionTestResult.NotFound
|
|
' lblStatus.Text = "Dienst konnte nicht gefunden werden. Bitte überprüfen sie Addresse und Port."
|
|
' Case ClassService.ConnectionTestResult.EmptyURI
|
|
' lblStatus.Text = "Bitte tragen Sie eine gültige Dienst Adresse ein."
|
|
' Case ClassService.ConnectionTestResult.Authentication
|
|
' lblStatus.Text = "Authentifizierungsfehler. Prüfen Sie, ob sich Ihr Gerät in der korrekten Domäne befindet."
|
|
' Case Else
|
|
' lblStatus.Text = "Unbekannter Fehler."
|
|
'End Select
|
|
End If
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
MsgBox("Fehler beim Verbindungsaufbau", MsgBoxStyle.Critical, Text)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
End Class |