Private Sub mqtt_MessageArrived (Topic As String, Payload() As Byte)
MainForm.Title = Topic
Label1.Text = Label1.Text & Topic & CRLF
Label1.Text = Label1.Text & Payload.Length & CRLF
Dim t() As String
t = Regex.Split(",",Topic)
'Dim obj As Object = Payload ' serializator.ConvertBytesToObject(Payload)
'If Topic.Contains("main") Then
Dim out As OutputStream = File.OpenOutput(File.DirData("cloud/temp"), t(1), False)
out.WriteBytes(Payload, 0, Payload.Length)
out.Close
'Dim ra As RandomAccessFile
'ra.Initialize("C:\Users\Dave\AppData\Roaming\cloud\temp",t(1),False)
'ra.WriteObject(Payload,False,ra.CurrentPosition)
' ra.WriteBytes(obj,0,Payload.Length,ra.CurrentPosition)
Arc.AsyncUnZip(File.DirData("cloud/temp"),t(1), "C:\Users\Dave\Desktop" , "aaa")
'Arc.UnZip(File.DirData("cloud"), "dave.zip", "C:\Users\Dave\Desktop" , "aaa")
'End If
End Sub
Sub sendmessage
mytopic = "workshop," & "test.zip" 'filenametosend
'Dim fn As Object = File.OpenInput(File.DirData("cloud"),"test.zip" )
mqtt.Publish2(mytopic,Bit.InputStreamToBytes(File.OpenInput(File.DirData("cloud"),"test.zip" )),0,False)
'mqtt.Publish(mytopic, serializator.ConvertObjectToBytes(fn))
'mqtt.Publish(mytopic,fn)
End Sub