Sub Process_Globals
Private broker1 As MqttBroker
Private client As MqttClient
End Sub
Sub AppStart (Args() As String)
Log("Hello world!!!")
test
StartMessageLoop
End Sub
Private Sub test
broker1.Initialize("", 51042)
SetMaxMessageSize(broker1, 100 * 1024 * 1024) '100M
broker1.Start
client.Initialize("client", "tcp://localhost:51042", "1")
client.Connect
Wait For Client_Connected (Success As Boolean)
Log(Success)
If Success Then
client.Subscribe("test", 0)
End If
End Sub
Private Sub Client_MessageArrived (Topic As String, Payload() As Byte)
Log("Payload length: " & Payload.Length)
End Sub
Sub SetMaxMessageSize(broker As MqttBroker, MaxSize As String)
broker.As(JavaObject).GetFieldJO("config").RunMethod("setProperty", Array("netty.mqtt.message_size", MaxSize))
End Sub