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, "106.mp3", "mp")
mp.Play
End Sub
#If OBJC
#import <AVFoundation/AVFoundation.h>
- (void) setAudioSession {
AVAudioSession *audioSession = [AVAudioSession sharedInstance];
BOOL ok;
NSError *setCategoryError = nil;
ok = [audioSession setCategory:AVAudioSessionCategoryPlayback
error:&setCategoryError];
if (!ok) {
NSLog(@"%s setCategoryError=%@", __PRETTY_FUNCTION__, setCategoryError);
}
}
#end if