Sub Process_Globals
End Sub
Sub Globals
Dim data() As Byte
Dim raf As RandomAccessFile
Private Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Home")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub dd_Progress(Progress As Long, Total As Long)
Try
' ProgressBar1.Progress = Progress / Total * 100
Label1.Text = NumberFormat(Progress / 1048576, 1, 2) & "MB / " & NumberFormat(Total / 1048576, 1, 2) & "MB"
Log(Label1.Text)
Catch
' Log(LastException)
End Try
End Sub
Sub dd_Complete(Job As HttpJob)
If Not(File.Exists(File.DirDefaultExternal,"filename")) Then
' File.WriteString(File.DirDefaultExternal,"filename","")
' File.clo
Log ("encrypting downloaded song")
raf.Initialize(File.DirDefaultExternal,"filename",False)
data = Bit.InputStreamToBytes(Job.GetInputStream)
raf.writeEncryptedObject(data,"encryption_key",0)
raf.Close
End If
Log("Job completed: " & Job.Success)
Job.Release
End Sub
Sub Download_Click
Dim dd As DownloadData
dd.url = "http://www.hochmuth.com/mp3/Vivaldi_Sonata_eminor_.mp3"
dd.EventName = "dd"
dd.Target = Me
CallSubDelayed2(DownloadService, "StartDownload", dd)
End Sub
Sub Play_Click
If File.Exists(File.DirDefaultExternal,"filename") Then
Log ("De-crypting downloaded song")
raf.Initialize(File.DirDefaultExternal,"filename",False)
data = raf.ReadEncryptedObject("encryption_key",0)
raf.Close
Dim m As AudioStreamer
m.Initialize("mediaPlayer", 44100, False, 16, m.VOLUME_MUSIC)
m.StartPlaying
m.Write(data)
End If
End Sub