Imports NAudio
Imports System.IO
Imports NAudio.Utils
Public Class Form1
Private waveSource As Wave.WaveIn = Nothing
Private waveFile As Wave.WaveFileWriter = Nothing
Private waveFileWriter As Wave.WaveFileWriter
Dim ms As MemoryStream
Private Sub waveSource_DataAvailable(ByVal sender As Object, ByVal e As Wave.WaveInEventArgs)
waveFileWriter.Write(e.Buffer, 0, e.BytesRecorded)
waveFileWriter.Flush()
End Sub
Private Sub waveSource_RecordingStopped(ByVal sender As Object, ByVal e As Wave.StoppedEventArgs)
Dim fs As FileStream = File.Create(Environment.CurrentDirectory & "\test.wav")
ms.Seek(0, SeekOrigin.Begin)
ms.CopyTo(fs)
End Sub
Private Sub startBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startBTN.Click
ms = New MemoryStream()
waveFileWriter = New Wave.WaveFileWriter(New IgnoreDisposeStream(ms), waveSource.WaveFormat)
waveSource.StartRecording()
End Sub
Private Sub stopBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopBTN.Click
waveSource.StopRecording()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
waveSource = New Wave.WaveIn
AddHandler waveSource.DataAvailable, AddressOf waveSource_DataAvailable
AddHandler waveSource.RecordingStopped, AddressOf waveSource_RecordingStopped
End Sub
End Class
コードを次のポストから翻訳すると、「Bad Device ID」例外がスローされます。スピーカーからオーディオを録音するにはどうすればよいですか?
Naudio Recording and playing audio
私は、任意の記録装置(またはWaveIn)を持っていません。それはなぜですか?
ファイルを開いて閉じていないのが見えます... – zeromus