Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private mp As MediaPlayer
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Dim jo As NativeObject = Me
jo.RunMethod("setAudioSession", Null)
Page1.Initialize("Page1")
NavControl.ShowPage(Page1)
mp.Initialize(File.DirAssets, "01.mp3", "mp")
mp.Play
End Sub
#If OBJC
#import <AVFoundation/AVFoundation.h>
- (void) setAudioSession {
[[AVAudioSession sharedInstance] setCategory:AVAudioSessionCategoryPlayAndRecord withOptions:AVAudioSessionCategoryOptionDefaultToSpeaker error: nil];
}
#end if