Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
uid=esp.UniqueID
If wifi.Connect2("***","********") Then
client.ConnectIP(serverIp,serverPort)
Log("Waiting for connection.")
Log("My ip: ", wifi.LocalIp)
Else
Log("Failed to connect to Wifi.")
End If
mqtt.Initialize(client.Stream, serverIp, serverPort, uid, "Mqtt_MessageArrived", "Mqtt_Disconnected")
timer1.Initialize("timer1_Tick",1000)
Connect(0)
End Sub
Sub Connect(unused As Byte)
Dim mo As MqttConnectOptions 'code added by me
mo.Initialize("", "") 'code added by me
mo.SetLastWill("DEVICE", "OFFLINE", 0, False) 'code added by me
mqtt.Connect2(mo) 'code added by me
If mqtt.Connect = False Then
Log("trying to connect again")
CallSubPlus("Connect", 1000, 0)
Return
End If
Log("Connected to broker")
mqtt.Subscribe("ESP", 0)
...
End Sub