Sub DownloadedMp3File
ProgressBarDownloading.Indeterminate = True
ProgressBarDownloading.Visible = True
HttpUtils.Download("Job1", mp3Url)
End Sub
Sub JobDone(Job As String)
Select Job
Case "Job1"
If HttpUtils.IsSuccess(mp3Url) Then
Dim mp3 As InputStream
mp3 = HttpUtils.GetInputStream(mp3Url)
File.Copy2(mp3,File.OpenOutput(File.DirInternal,"077.mp3",False))
ProgressBarDownloading.Visible = False
ToggleButtonPlayPause.Checked = True
ToggleButtonPlayPause.Enabled = True
blnCurrentPauseCheckedState = True
blnCurrentPauseEnabledState = True
mpTheMediaPlayer.Release
mpTheMediaPlayer.Initialize2("SurahAlMorsalat")
mpTheMediaPlayer.Load(File.DirInternal, "077.mp3")
mpTheMediaPlayer.Play
End If
End Select
End Sub