Imports EgwProxy.LiMan

Public Class Form1


#If DEBUG Then

    ' Indirizzo server (DEBUG)
    Private servAddr As String = "localhost:5003"

#Else

    ' Indirizzo server (DEBUG)
    Private servAddr As String = "liman.egalware.com/ELM.API"

#End If

    Private commLib As DataSyncro

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' esegue test comunicazione server (ping, alive)
        commLib = New DataSyncro(servAddr)
        Dim servOk As Boolean
        servOk = commLib.CheckRemote()
        Dim esito As String = ""
        If (servOk) Then
            esito = "Test Ping: OK"
        Else
            esito = "Test Ping: KO"
        End If
        txtOut.Text = esito
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

    End Sub
End Class