AppStart (Args() As String)
'Default dataline
RecordFile1.Initialize(Me,"RecordFile1")
Dim AudioSystem As JavaObject
AudioSystem.InitializeStatic("javax.sound.sampled.AudioSystem")
AudioFormat.InitializeNewInstance("javax.sound.sampled.AudioFormat",Array(SampleRateHz,SampleSizeInBits,ChannelConfig, True, False))
InDevice = AudioSystem.RunMethod("getTargetDataLine",Array(AudioFormat))
Dim TDL As TargetDataLineWrapper
TDL.Initialize(InDevice)
TDL.AddLineListener(Me,"DataLine")
If RecordFile1.IsInitialized Then
If RecordFile1.IsRecording Then
RecordFile1.Stop
End If
End If
If File.Exists(FilePath, FileName) Then File.Delete(FilePath, FileName)
RecordFile1.Start(TDL, File.Combine(FilePath, FileName))
StartMessageLoop