Sub Process_Globals
Dim sd As MediaPlayer
End Sub
Sub Globals
Private Videopnl As Panel
Private btnChime As Button
Dim mypath As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
sd.Initialize ()
Dim vv As VideoViewExt
vv.Initialize("vv")
Videopnl.AddView(vv, 0dip, 0dip, Videopnl.Width , Videopnl.Height)
vv.LoadVideo(File.DirRootExternal, "DCIM/Camera/Myvideo.mp4")
vv.MediaControllerEnabled = True
vv.Play
CallSubDelayed2(Me, "MuteVideo", vv)
End Sub
Sub MuteVideo (vv As VideoViewExt)
Dim r1, r2 As Reflector
r1.Target = vv
r1.Target = r1.GetField("mMediaPlayer")
If r1.Target = Null Then
CallSubDelayed2(Me, "MuteVideo", vv)
Return
End If
Dim mp As MediaPlayer
r2.Target = mp
r2.SetField2("mp", r1.Target)
mp.SetVolume(0,0)
'-------------------------------------
End Sub
End Sub
Sub btnChime_Click
mypath = "DCIM/Camera"
sd.Load(mypath,"tada.wav")
playque
End Sub
Sub playque
sd.SetVolume(1,1)
sd.play
End Sub