sub btnStartRecording_Click
streamer.Initialize(File.DirDocuments, mFileName, 44100, True, 16, False)
streamer.Record
timer1.Enabled = True
Timer1_Tick
Catch
Log("btnRecord_Click " & LastException.description)
End Try
End Sub
Sub btnsumbitSound_Click
Starter.SendAudio(File.ReadBytes(File.DirDocuments, mFileName))
End Sub
Public Sub SendAudio(SoundData() As Byte)
If connected Then
SBS.Initialize
SBS.Append("Recored").Append("/Audiosend")
Dim sendAudioStr As String=SBS.ToString
client.Publish2(sendAudioStr, serializator.ConvertObjectToBytes(SoundData),1,False)
Else
hd.ToastMessageShow("It is not connected",False)
End If
End Sub