Home

Add

Edit

With Linenumbers

Code in Textfield

Download

'##############################################################################################################
#INCLUDE Once "TSNE_V3.bi"



'##############################################################################################################
Dim Shared G_Data As String



'##############################################################################################################
Sub TSNE_Disconnected(Byval V_TSNEID As Uinteger)
Print "Verbindung beendet!"
End Sub



'##############################################################################################################
Sub TSNE_Connected(Byval V_TSNEID As Uinteger)
Print "Verbunden!"
End Sub



'##############################################################################################################
Sub TSNE_NewData(Byval V_TSNEID As Uinteger, Byref V_Data As String)
Print "Neue Daten!"
G_Data += V_Data
If Len(G_Data) > 512 Then
    Print "Latenlänge überschreitet 512 Bytes!"
    Print "Leere Puffer..."
    G_Data = ""
    Print "Puffer geleert!"
End If
End Sub



'##############################################################################################################
Print "Verbinde..."
Dim TClient As Uinteger
Dim RV As Integer = TSNE_Create_Client(TClient, "192.168.0.2", 80, @TSNE_Disconnected, @TSNE_Connected, @TSNE_NewData)
If RV <> TSNE_Const_NoError Then
    Print "[FEHLER] " & TSNE_GetGURUCode(RV)
    End -1
End If
Print "Warte auf verbindungsende..."
Dim TTot As Double = Timer() + 10 '10 Sekunden timeout
Do
    If TTot < Timer() Then
        TSNE_Disconnect(TClient)
        Print "Timeout!"
        Exit Do
    End If
    If TSNE_IsClosed(TClient) = 1 Then
        Print "Verbindung wurde geschlossen!"
        Exit Do
    End If
    Sleep 10, 1
Loop
Print "Beende app..."
End