B4R Question Mqtt & B4RSerializator

[marco.canta]

Hello, I have created a project that through Mqtt connects an app B4A, B4J and B4R. Ve versions B4A and B4J work perfectly using the B4xSerializator.
With B4R I have problems, I connect to the Broker Mqtt without problems, but I do not receive data, as I cannot transform the Payload into an Object of received data.

I tried with the B4RSerializator.bas module, but it gives me error in the imported module.

Sub Mqtt_MessageArrived (Topic As String, Payload() As Byte)

    Type TipoRX (VAlore1 As String, Valore2 As String, Valore3 As String)
    Dim ValTypeRx As TipoRX

    Dim data() As Object = Serzt.ConvertBytesToArray(Payload,data)

    ValTypeRx ????
    .....
        

End Sub

Thanks Marco

 

[Erel]

1. Types should be declared in Process_Globals.
2. Please post the error message.

 

[Mark Read]

You cannot mix B4XSerializator and B4RSerializator. They are not the same. Try reading Erels tutorial again.

Link: https://www.b4x.com/android/forum/t...d-and-receive-objects-instead-of-bytes.72404/

 

[marco.canta]

I partially solved it by inserting the B4RSerializator.bas, but it gives me a series of errors that are not to solve.
I enclose code and imagine errors. Where am I wrong?

Thank you

Sub Process_Globals
    Public Serial1 As Serial
    Public WiFi As ESP8266WiFi
    Public ESP8266 As ESP8266
    Private mqtt As MqttClient
    Public WiFiClient As WiFiSocket
    Private username As String = "*****"
    Private passWD As String = "*****"

    Type TipoTab (Val1 As String, Val2 As String, Val3)
    Dim ValTypeRx As TipoTab
    Dim ValTypeTx As TipoTab
End Sub


Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
    
    If WiFi.Connect2(************", "**********") Then
        Log("Connected to : ", "WiFi")
        Dim serverIp() As Byte = Array As Byte(192, 168, 1, 31)
        Log("my IP : ", WiFi.LocalIp)
        mqtt.Initialize(WiFiClient.Stream, serverIp, 28029, "wemos_client", "Mqtt_MessageArrived", "Mqtt_Disconnected")
        Connect(0)
    Else
        Log("Failed to connect.")
    End If
End Sub



Sub Connect(unused As Byte)
    Dim mo As MqttConnectOptions
    mo.Initialize(username,passWD)
    Log("Mqtt Inizialize")
    Delay(1000)

    If mqtt.Connect2(mo) = False Then
        Log("Trying to connect again")
        CallSubPlus("Connect", 1000, 0)
        Return
    End If

    Log("Connected to broker")
    mqtt.Subscribe("MSE24_Dt", 0)
    Delay(600)
End Sub

Sub Mqtt_Disconnected
    Log("Disconnected")
    mqtt.Close
    Connect(0)
End Sub



Sub Mqtt_MessageArrived (Topic As String, Payload() As Byte)

    Dim obj As Object = Serializator.ConvertBytesToObject(Payload)

    If obj Is TipoTab Then
        Log("TipoTab")
    End If

End Sub

 

[Mark Read]

Where are the errors?

 

[marco.canta]

The errors are those in red in the photo.
In the Form B4RSerializator.bas

Maybe some library is missing? If so, which one ?

Thank you so much

 

[janderkan]

Try giving them another name.

 

[marco.canta]

I have tried, but nothing has changed.

 

[Mark Read]

I don't see what version of B4R you are using but if you look at the link in my previous post, you will see that you do not need the "B4RSerializator.bas" file as B4RSerializator is included in rRandomAccessFile library. The B4RSerializator.bas file is used in the B4A code.

 

[Mark Read]

Link: https://www.b4x.com/android/forum/t...d-and-receive-objects-instead-of-bytes.72404/

Quote from the link:

B4RSerializator class is attached (compatible with B4A, B4i and B4J).
B4R type is included in rRandomAccessFile library.

 

[janderkan]

I have tried, but nothing has changed.

    Private out As RandomAccessFile

 

[Mark Read]

I am not sure but I think out is a reserved word in B4R. Why are you not using raf as in the many tutorials?

Private raf As RandomAccessFile

I would really recommend that you read the tutorial I have posted twice here and maybe the MQTT tutorial (Link) again.

If after all that, you are still having problems, then post your project and erros and you will get more help.

 

[janderkan]

Now I see your problem.
You should not use the B4RSerializator.bas file.

From B4R v1.50 is included a new type named B4RSerializator (in rRandomAccessFile library).
So just use this

Sub Process_Globals
    Private ser As B4RSerializator
End Sub

and the functions

    ser.ConvertBytesToArray
    ser.ConvertArrayToBytes2
    ser.ConvertBytesToArray

 

[Erel]

I'm closing this thread. You were referred multiple times to the tutorial which explains everything.