Stereomix-Aufnahme per NAudio

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von TheChosen0ne.

    Stereomix-Aufnahme per NAudio

    Hey zusammen.
    Ich schreibe momentan ein Programm welches mir bei meiner "Musikverwaltung" hilft.

    Eine Funktion ist, dass der Systemsound aufgenommen wird; Nach Recherchen im Internet, wurde dafür die API NAudio empfohlen, auch hier. Allerdings komme ich nicht wirklich damit zurecht. Ich habe mir die vom Macher erstellten Tutorials zur Implementierung dieser Funktion durchgelesen. Am Ende habe ich praktisch den vorgegebenen C#-Quellcode durch nen Converter gepackt, und dabei die restlichen noch in VB angezeigten Fehler selbst "behoben". Eigentlich sollte das Ganze ziemlich gut übersetzt worden sein, allerdings hier nochmal die vorgegebenen Quelltexte und die dazugehörigen Übersetzungen von mir in VB.NET:
    Spoiler anzeigen

    Übersetzung von mark-dot-net.blogspot.de/2009/…ard-output-to-wav-in.html:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class WaveRecorder
    2. Implements NAudio.Wave.IWaveProvider, IDisposable
    4. Private writer As NAudio.Wave.WaveFileWriter
    5. Private source As NAudio.Wave.IWaveProvider
    7. Public Sub New(pSource As NAudio.Wave.IWaveProvider, pDestination As String)
    8. MyBase.New
    9. source = pSource
    10. writer = New NAudio.Wave.WaveFileWriter(pDestination, Me.source.WaveFormat)
    11. End Sub
    13. Public Function Read(ByVal buffer() As Byte, ByVal offset As Integer, ByVal count As Integer) As Integer Implements NAudio.Wave.IWaveProvider.Read
    14. Dim bytesRead As Integer = Me.source.Read(buffer, offset, count)
    15. writer.Write(buffer, offset, count)
    16. Return bytesRead
    17. End Function
    19. Public ReadOnly Property WaveFormat As NAudio.Wave.WaveFormat Implements NAudio.Wave.IWaveProvider.WaveFormat
    20. Get
    21. Return Me.source.WaveFormat
    22. End Get
    23. End Property
    25. Public Sub Dispose() Implements IDisposable.Dispose
    26. If (Not (Me.writer) Is Nothing) Then
    27. Me.writer.Dispose()
    28. Me.writer = Nothing
    29. End If
    30. End Sub
    32. End Class


    Übersetzungen von mark-dot-net.blogspot.de/2009/…-sine-wave-in-naudio.html:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public MustInherit Class WaveProvider32
    2. Implements NAudio.Wave.IWaveProvider
    4. Private daswaveFormat As NAudio.Wave.WaveFormat
    6. Public Sub New()
    7. Me.New(44100, 1)
    8. End Sub
    10. Public Sub New(ByVal sampleRate As Integer, ByVal channels As Integer)
    11. MyBase.New
    12. Me.SetWaveFormat(sampleRate, channels)
    13. End Sub
    15. Public Sub SetWaveFormat(ByVal sampleRate As Integer, ByVal channels As Integer)
    16. Me.daswaveFormat = NAudio.Wave.WaveFormat.CreateIeeeFloatWaveFormat(sampleRate, channels)
    17. End Sub
    18. Public Overloads Function Read(ByVal buffer() As Byte, ByVal offset As Integer, ByVal count As Integer) As Integer Implements NAudio.Wave.IWaveProvider.Read
    19. Dim waveBuffer As NAudio.Wave.WaveBuffer = New NAudio.Wave.WaveBuffer(buffer)
    20. Dim samplesRequired As Integer = (count / 4)
    21. Dim samplesRead As Integer = Me.Read(waveBuffer.FloatBuffer, (offset / 4), samplesRequired)
    22. Return (samplesRead * 4)
    23. End Function
    25. Public MustOverride Overloads Function Read(ByVal buffer() As Single, ByVal offset As Integer, ByVal sampleCount As Integer) As Integer
    27. Public ReadOnly Property waveFormat As NAudio.Wave.WaveFormat Implements NAudio.Wave.IWaveProvider.WaveFormat
    28. Get
    29. Return Me.daswaveFormat
    30. End Get
    31. End Property
    32. End Class


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class SineWaveProvider32
    2. Inherits WaveProvider32
    4. Private sample As Integer
    6. Public Sub New()
    7. MyBase.New
    8. Frequency = 1000
    9. Amplitude = 0.25!
    10. ' let's not hurt our ears
    11. End Sub
    13. Public Property Frequency As Single
    14. Get
    15. Return Frequency
    16. End Get
    17. Set
    18. End Set
    19. End Property
    21. Public Property Amplitude As Single
    22. Get
    23. Return Amplitude
    24. End Get
    25. Set
    26. End Set
    27. End Property
    29. Public Overrides Function Read(ByVal buffer() As Single, ByVal offset As Integer, ByVal sampleCount As Integer) As Integer
    30. Dim sampleRate As Integer = waveFormat.SampleRate
    31. Dim n As Integer = 0
    32. Do While (n < sampleCount)
    33. buffer((n + offset)) = CType((Me.Amplitude * Math.Sin(((2 _
    34. * (Math.PI _
    35. * (Me.sample * Me.Frequency))) _
    36. / sampleRate))), Single)
    37. Me.sample = (Me.sample + 1)
    38. If (Me.sample >= sampleRate) Then
    39. Me.sample = 0
    40. End If
    42. n = (n + 1)
    43. Loop
    45. Return sampleCount
    46. End Function
    47. End Class


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim waveOut As NAudio.Wave.IWavePlayer
    2. Dim recorder As WaveRecorder
    4. Private Sub startStopSineWave()
    5. If (waveOut Is Nothing) Then
    6. Dim dersineWaveProvider = New SineWaveProvider32
    7. dersineWaveProvider.SetWaveFormat(16000, 1)
    8. ' 16kHz mono
    9. dersineWaveProvider.Frequency = 1000
    10. dersineWaveProvider.Amplitude = 0.25!
    11. recorder = New WaveRecorder(dersineWaveProvider, "D:\Dokumente\sine.wav")
    12. waveOut = New NAudio.Wave.WaveOut
    13. waveOut.Init(recorder)
    14. waveOut.Play()
    15. Else
    16. waveOut.Stop()
    17. waveOut.Dispose()
    18. waveOut = Nothing
    19. recorder.Dispose()
    20. recorder = Nothing
    21. End If
    22. End Sub
    23. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    24. startStopSineWave()
    25. End Sub




    Es scheint zunächst auch alles zu klappen: Auf Knopfdruck startet er eine "Aufnahme" und erstellt nach Beendigung am angegebenen Speicherort die WAV, die auch die Länge hat, die es haben soll. Wenn man die WAV jedoch abspielt, hört man nichts. Nichtmal ein bisschen. Mein Stereomix ist aktiviert und mit anderen Programmen laufen Aufnahmen des Systemsounds auch problemlos. Daher muss es an meinem Programm liegen. Ich habe auch schon versucht, die WAV mit dem VLC Media Player zu öffnen, und es lässt sich auch öffnen, jedoch gibt es auch hier keinen Sound.

    Ich hoffe ihr könnt mir da helfen!
    MfG

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @TheChosen0ne Verhält sich der C#-Code genau so?
    Oder hast Du den ausschließlich übersetzt und dann gelöscht?
    Falls Du ihn noch hast, poste mal den Code, den Du übersetzt hast.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @TheChosen0ne OK.
    Was brauche ich alles, um den Code compilefähig und lauffähig zu machen?
    - IWaveProvider
    - WaveFormat
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @TheChosen0ne Sorry, das Packet lässt sich bei mir nicht installieren. ;(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Alles klar, ich habe es nun doch geschafft, das Ganze ziemlich einfach mithilfe von NAudio zu lösen.
    Die oben genannten Übersetzungen sind dabei völlig unnötig, zumindest für meinen Gebrauch. Noch dazu ist das viel zu kompliziert. Ich habe im Internet ein englisches NAudio Tutorial auf YT gefunden (tatsächlich aus Zufall gefunden, da nichtmals "NAudio" in Videotitel/-überschrift genannt worden ist). Das Ganze war auf C#, da aber der Sinn hinter alledem gut erklärt worden ist, konnte ich auch problemlos in VB.NET übersetzen. Habe dabei sogar erste Erfahrungen mit Event-Handling gemacht :whistling:

    Für alle die später noch Probleme damit haben, hier der benötigte Quellcode in VB.NET zur Aufnahme mithilfe der API NAudio:
    Spoiler anzeigen

    Klasse "Recorder":
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Recorder
    2. Dim dieWaveSource As NAudio.Wave.WaveIn
    3. Dim dieWaveFile As NAudio.Wave.WaveFileWriter
    5. Public Sub aufnahmeStarten(pGeraetnummer As Integer, pSpeicherort As String)
    6. dieWaveSource = New NAudio.Wave.WaveIn
    7. dieWaveSource.DeviceNumber = pGeraetnummer
    8. dieWaveSource.WaveFormat = New NAudio.Wave.WaveFormat(44100, 1)
    10. AddHandler dieWaveSource.DataAvailable, AddressOf dieWaveSource_DataAvailable
    11. AddHandler dieWaveSource.RecordingStopped, AddressOf dieWaveSource_RecordingStopped
    13. dieWaveFile = New NAudio.Wave.WaveFileWriter(pSpeicherort, dieWaveSource.WaveFormat)
    15. dieWaveSource.StartRecording()
    16. End Sub
    17. Sub dieWaveSource_DataAvailable(sender As Object, e As NAudio.Wave.WaveInEventArgs)
    18. If IsNothing(dieWaveFile) = False Then
    19. dieWaveFile.Write(e.Buffer, 0, e.BytesRecorded)
    20. dieWaveFile.Flush()
    21. End If
    22. End Sub
    23. Sub dieWaveSource_RecordingStopped(sender As Object, e As NAudio.Wave.StoppedEventArgs)
    24. If IsNothing(dieWaveSource) = False Then
    25. dieWaveSource.Dispose()
    26. dieWaveSource = Nothing
    27. End If
    28. If IsNothing(dieWaveFile) = False Then
    29. dieWaveFile.Dispose()
    30. dieWaveFile = Nothing
    31. End If
    32. End Sub
    34. Public Sub aufnahmeStoppen()
    35. dieWaveSource.StopRecording()
    36. End If
    37. End Sub
    38. End Class


    Letztendlich in der Form dann:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private derRecorder As Recorder = New Recorder
    3. Private Sub ButtonStart_Click(sender As Object, e As EventArgs) Handles ButtonStart.Click
    4. Dim save = New SaveFileDialog
    5. If save.ShowDialog <> System.Windows.Forms.DialogResult.OK Then
    6. Return
    7. End If
    8. save.Filter = "Wave File (*.wav)|*.wav;"
    10. Dim geraetNummer As Integer = ListBox1.SelectedIndex
    12. derRecorder = New Recorder
    13. derRecorder.aufnahmeStarten(geraetNummer, save.FileName)
    15. End Sub
    17. Private Sub ButtonStop_Click(sender As Object, e As EventArgs) Handles ButtonStop.Click
    18. derRecorder.aufnahmeStoppen()
    19. End Sub



    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „TheChosen0ne“ ()

Facebook
Telefonspende