Android Question Multiple mqtt clients in the app

[Robert Zmrzli]

I am trying to maintain 2 separate mqtt clients in my b4a app:

as you can see in snippet below, even though I declare two instances of the mqtt client, events of them connecting or disconnecting are reflected only in:
mqtt_Disconnected and mqtt_Connected.
So how do I find out which of two clients got disconnected inside mqtt_Disconnected sub?


------------------------------------------- code -------------------------------------------

Private Sub mqtt_Disconnected
'we need to find out which one got disconnected
'should I update mqttL_state or mqttG_state (global or local) state here?
End Sub

Sub mqtt_Connected(Sucess As Boolean) As Boolean
'we need to find out which one got connected here
Return Sucess
'End Sub

Sub Process_Globals
Public mqttG As MqttClient
Public mqttL As MqttClient
End Sub

Sub ConnectAndReconnectL

Dim username As String = "userName", password As String = "mypass"

Do While working
If MQTTServerLURL <> "" Then

If mqttL.IsInitialized Then mqttL.Close
mqttL.Initialize("mqtt", MQTTServerLURL, idclient)

Dim mo As MqttConnectOptions
mo.Initialize(username, password)
mqttL_state = "Connecting Local"
Log(mqttL_state)
mqttL.Connect2(mo)
Wait For mqtt_Connected (Success As Boolean)
If Success Then
mqttL_state = "Connected Local"
mytopic = "/gUIde_" & unique_device_id
AfterConnectL 'subscribes to mytopic above
Do While working And mqttL.Connected
mqttL.Publish("/GPS", mytopic.GetBytes("UTF8"))
Sleep(10000)
Loop
mqttL_state = "Unknown"
Else
mqttL_state = "Failed connecting"

End If
End If
Sleep(5000)
Loop
Log("ConnectAndReconnectL Got OUT!")
End Sub

Sub ConnectAndReconnectG

Dim username As String = "userName", password As String = "mypass"

Do While working
If MQTTServerGURL <> "" Then

If mqttG.IsInitialized Then mqttG.Close
mqttG.Initialize("mqtt", MQTTServerGURL, idclient)

Dim mo As MqttConnectOptions
mo.Initialize(username, password)
mqttG_state = "Connecting Global"
Log(mqttG_state)
mqttG.Connect2(mo)
Wait For mqtt_Connected (Success As Boolean) 'I would expect mqttG_Connected to work here but has to be mqtt_ ...
If Success Then
mqttG_state = "Connected Global"
mytopic = "/gUIde_" & unique_device_id
AfterConnectG 'subscribes to mytopic above
Do While working And mqttG.Connected
mqttG.Publish("/GPS", mytopic.GetBytes("UTF8"))
Sleep(10000)
Loop
mqttG_state = "Unknown"
Else
mqttG_state = "Failed connecting"
End If
End If
Sleep(5000)
Loop
Log("ConnectAndReconnectG Got OUT!")
End Sub

 

[josejad]

Hi:

Instead -----CODE---- you should use [code ] [/code ] (with no space)

In the line

mqttL.Initialize("mqtt", MQTTServerLURL, idclient)

the "mqtt" is the event. If you are declaring both with "mqtt", then the event is the same
You should use

mqttL.Initialize("mqttL", MQTTServerLURL, idclient) 
mqttG.Initialize("mqttG", MQTTServerLURL, idclient)

 

[Robert Zmrzli]

Perfect!