Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. '##############################################################################################################
    
  2. #INCLUDE Once "TSNE_V3.bi"
    
  3. 
    
  4. 
    
  5. 
    
  6. '##############################################################################################################
    
  7. Dim Shared G_Data As String
    
  8. 
    
  9. 
    
  10. 
    
  11. '##############################################################################################################
    
  12. Sub TSNE_Disconnected(Byval V_TSNEID As Uinteger)
    
  13. Print "Verbindung beendet!"
    
  14. End Sub
    
  15. 
    
  16. 
    
  17. 
    
  18. '##############################################################################################################
    
  19. Sub TSNE_Connected(Byval V_TSNEID As Uinteger)
    
  20. Print "Verbunden!"
    
  21. End Sub
    
  22. 
    
  23. 
    
  24. 
    
  25. '##############################################################################################################
    
  26. Sub TSNE_NewData(Byval V_TSNEID As Uinteger, Byref V_Data As String)
    
  27. Print "Neue Daten!"
    
  28. G_Data += V_Data
    
  29. If Len(G_Data) > 512 Then
    
  30.     Print "Latenlänge überschreitet 512 Bytes!"
    
  31.     Print "Leere Puffer..."
    
  32.     G_Data = ""
    
  33.     Print "Puffer geleert!"
    
  34. End If
    
  35. End Sub
    
  36. 
    
  37. 
    
  38. 
    
  39. '##############################################################################################################
    
  40. Print "Verbinde..."
    
  41. Dim TClient As Uinteger
    
  42. Dim RV As Integer = TSNE_Create_Client(TClient, "192.168.0.2", 80, @TSNE_Disconnected, @TSNE_Connected, @TSNE_NewData)
    
  43. If RV <> TSNE_Const_NoError Then
    
  44.     Print "[FEHLER] " & TSNE_GetGURUCode(RV)
    
  45.     End -1
    
  46. End If
    
  47. Print "Warte auf verbindungsende..."
    
  48. Dim TTot As Double = Timer() + 10 '10 Sekunden timeout
    
  49. Do
    
  50.     If TTot < Timer() Then
    
  51.         TSNE_Disconnect(TClient)
    
  52.         Print "Timeout!"
    
  53.         Exit Do
    
  54.     End If
    
  55.     If TSNE_IsClosed(TClient) = 1 Then
    
  56.         Print "Verbindung wurde geschlossen!"
    
  57.         Exit Do
    
  58.     End If
    
  59.     Sleep 10, 1
    
  60. Loop
    
  61. Print "Beende app..."
    
  62. End
    
  63. 
    
  64.