Public Sub Initialize (TargetModule As Object, EventName As String)
ar.Initialize(File.DirTemp, "1.wav", 16000, True, 16, False)
sessionId = Rnd(1000000, 9999999)
mTarget = TargetModule
mEventName = EventName
Dim no As NativeObject = Me
no.RunMethod("setAudioSession", Null)
End Sub
#If OBJC
#import <AVFoundation/AVFoundation.h>
#import <AudioToolbox/AudioToolbox.h>
- (void)setAudioSession {
[[AVAudioSession sharedInstance]
setCategory:AVAudioSessionCategoryPlayAndRecord
withOptions:AVAudioSessionCategoryOptionDefaultToSpeaker error:nil];
}
#end if