German App im Hintergrund um MQTT Nachrichten zu empfangen

#Region  Project Attributes
    #ApplicationLabel: Tablet Control
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
End Sub

Sub Activity_Create(FirstTime As Boolean)

End Sub

Sub Activity_Resume
    StartService(mqttService)
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: True

#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Service_Create

    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.


End Sub


Sub Service_Start (StartingIntent As Intent)
    StartService(mqttService)
End Sub

Sub Service_TaskRemoved
    'This event will be raised when the user removes the app from the recent apps list.
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub Service_Destroy

End Sub

#Region  Service Attributes
    #StartAtBoot:true
#End Region


'=========================================================================================================================
'DEKLARATIONEN
'=========================================================================================================================
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim myMQTT As MqttClient
    Dim Broker As String = "192.168.178.03"
    Dim port As Int      = 1883
    Dim mqttOptions As MqttConnectOptions
    Dim powerState As PhoneWakeState
End Sub


'=========================================================================================================================
'SERVICE - wird erstellt
'=========================================================================================================================
Sub Service_Create

    myMQTT.Initialize("client", $"tcp://${Broker}:${port}"$, "android_tablet")
    myMQTT.Connect
    
End Sub


'=========================================================================================================================
'SERVICE - wird gestartet
'=========================================================================================================================
Sub Service_Start (StartingIntent As Intent)
    
    'Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
    StartServiceAtExact(Me, DateTime.Now + 30000, True) 'schedule the next task to run in 30 seconds.
    Log("Service started")

    
    'Hier alles hin was regelmäßig gemacht werden muss (ersetzt Timer)

End Sub



'=========================================================================================================================
'SERVICE - wird gelöscht
'=========================================================================================================================
Sub Service_Destroy

End Sub




'=========================================================================================================================
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'=========================================================================================================================




'=========================================================================================================================
'EVENT - MQTT Nachricht empfangen
'=========================================================================================================================
Sub client_MessageArrived (Topic As String, Payload() As Byte)

    Dim payloadString As String
    payloadString = BytesToString(Payload,0,Payload.Length,"UTF-8")
    Log(payloadString)



End Sub




'=========================================================================================================================
'EVENT - MQTT wurde verbunden
'=========================================================================================================================
Sub client_Connected (Success As Boolean)
    
    Log(Success)
    myMQTT.Subscribe("root/irgendwas",0)

End Sub