Public Class frmConfigService
    Private _Service As ClassService

    Private Sub frmServiceConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
        _Service = New ClassService(My.LogConfig)

        If My.SystemConfigManager.Config.ServiceConnection <> String.Empty Then
            txtIPAddress.Text = My.SystemConfigManager.Config.ServiceIP
            txtPort.Text = My.SystemConfigManager.Config.ServicePort
        End If

        txtIPAddress.Focus()
    End Sub

    Private Async Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
        Dim oIPAddress = txtIPAddress.Text
        Dim oPort = txtPort.Text
        Dim oEndpointURL = $"net.tcp://{oIPAddress}:{oPort}/DigitalData/Services/Main"
        Dim oResult As ClassService.ConnectionTestResult

        My.SysConfig.ServiceIP = oIPAddress
        My.SysConfig.ServicePort = Integer.Parse(oPort)

        lblStatus.Text = "Verbindung wird hergestellt..."
        oResult = Await _Service.TestConnectionAsync()

        If oResult = ClassService.ConnectionTestResult.Successful Then
            My.SystemConfigManager.Save()
            lblStatus.Text = "Verbindung hergestellt."
        Else
            Select Case oResult
                Case ClassService.ConnectionTestResult.NotFound
                    lblStatus.Text = "Dienst konnte nicht gefunden werden. Bitte überprüfen sie Addresse und Port."
                Case Else
                    lblStatus.Text = "Unbekannter Fehler."
            End Select
        End If
    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        DialogResult = DialogResult.OK
    End Sub
End Class