Author Topic: MQTT QoS and Retain  (Read 9525 times)

plains203

  • Newbie
  • *
  • Posts: 48
    • View Profile
Re: MQTT QoS and Retain
« on: June 24, 2016, 04:07:25 am »
This doesn't post anything,

Class Temperature
    Shared Event GetTemp() RaiseEvent Every 30 Seconds
       
        Dim TempC As Float = TempSensor.GetTemp
        Dim TempF As Float = TempSensor.ToFarenheit(TempC)
        Dim payload As ListOfByte = New ListOfByte
        Dim payString As String = ""
       
        payString = TempC.ToString()
       
        payload.Add(payString)
        Lplan.Publish("MC/TempC/Lounge", payload, QoS.ExactlyOnce)
       
    End Event
   
End Class

_________

This does post but no QoS settings

Class Temperature
    Shared Event GetTemp() RaiseEvent Every 30 Seconds
       
        Dim TempC As Float = TempSensor.GetTemp
        Dim TempF As Float = TempSensor.ToFarenheit(TempC)
        Dim payload As ListOfByte = New ListOfByte
        Dim payString As String = ""
       
        payString = TempC.ToString()
       
        payload.Add(payString)
        Lplan.Publish("MC/TempC/Lounge", payload, QoS)
       
    End Event
   
End Class
________________

This posts fine no QoS

Class Temperature
    Shared Event GetTemp() RaiseEvent Every 30 Seconds
       
        Dim TempC As Float = TempSensor.GetTemp
        Dim TempF As Float = TempSensor.ToFarenheit(TempC)
        Dim payload As ListOfByte = New ListOfByte
        Dim payString As String = ""
       
        payString = TempC.ToString()
       
        payload.Add(payString)
        Lplan.Publish("MC/TempC/Lounge", payload)
       
    End Event
   
End Class

_______

I have double checked this with reboots, different modules etc.
« Last Edit: June 24, 2016, 04:13:06 am by plains203 »
McGateway 0.6-360, 0.7-405
McModules 0.7-358
McStudio 0.7-894