Dim mm As MyMessage = ser.ConvertBytesToObject(data)
edtAge.Text = mm.Age
edtName.Text = mm.Name
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
ToastMessageShow("No permission!",True)
Return
End If
'convert the array of bytes to file
File.WriteBytes(File.DirRootExternal, "1.mp3", data)
Sleep(100)
Log("File saved...")
If File.Exists(File.DirRootExternal, "1.mp3") Then
Log("File Found....")
Else
Log("File Not Found....")
End If