CSCore - Mikrofon streamen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von GERFreefighter.

    CSCore - Mikrofon streamen

    Hallo,

    ich bin seit einigen Tagen am Versuchen, mein Mikrofon zu streamen. Ich verwende dazu CSCore.
    Bisher nur lokal, später werden die Daten dann über einen Server an alle anderen Clienten versendet.

    Zurzeit habe ich das Problem, dass die Signale meines Mikrofons nicht aufgenommen werden.
    Mein derzeitiger Stand:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports CSCore
    3. Imports CSCore.CoreAudioAPI
    4. Imports CSCore.Streams
    6. Public Class Form1
    7. Dim Zuhören As Integer = 0
    9. Dim WithEvents SoundOut As New SoundOut.DirectSoundOut
    10. Dim WithEvents SoundIn As New SoundIn.WasapiCapture
    12. Dim BufferingSource As WriteableBufferingSource
    13. Dim _finalSource As IWaveSource
    15. Dim DataStream As String = "Funk.wav"
    16. Dim AufnahmeTon As Byte()
    17. Dim _BufferingSource As WriteableBufferingSource
    19. Dim FileStream As Stream
    21. Dim audioMeter As AudioMeterInformation
    23. Private Sub Aufnehmen()
    24. If SoundIn.RecordingState = CSCore.SoundIn.RecordingState.Recording Then
    25. SoundIn.Stop()
    26. End If
    28. Dim soundInSource = New SoundInSource(SoundIn)
    29. Dim singleBlockNotificationStream = New SingleBlockNotificationStream(soundInSource.ToSampleSource)
    30. _finalSource = singleBlockNotificationStream.ToWaveSource()
    32. AufnahmeTon = New Byte(_finalSource.WaveFormat.BytesPerSecond / 2 - 1) {}
    34. SoundIn.Start()
    35. End Sub
    37. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    38. If Button1.Text = "Funk an" Then
    39. SoundIn.Initialize()
    40. Button1.Text = "Funk aus"
    41. Aufnehmen()
    42. Timer1.Start()
    43. Else
    44. Button1.Text = "Funk an"
    45. Timer1.Stop()
    46. Aufnehmen()
    47. SoundIn.Stop()
    48. End If
    49. End Sub
    51. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    52. If Button2.Text = "Zuhören an" Then
    53. If Not BackgroundWorker1.IsBusy Then
    54. AufnahmeTon = New Byte() {}
    55. SoundOut.Stop()
    56. BackgroundWorker1.RunWorkerAsync()
    57. Button2.Text = "Zuhören aus"
    58. Zuhören = 1
    59. End If
    60. Else
    61. Button2.Text = "Zuhören an"
    62. Zuhören = 0
    63. SoundOut.Stop()
    64. _BufferingSource = New WriteableBufferingSource(New WaveFormat(11000, 8, 2))
    65. BackgroundWorker1.CancelAsync()
    66. End If
    67. End Sub
    69. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    70. Aufnehmen()
    71. End Sub
    73. Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    74. If Zuhören = 1 Then
    75. Do
    76. If AufnahmeTon.Length > 0 Then
    77. _BufferingSource = New WriteableBufferingSource(New WaveFormat(11000, 8, 2))
    78. _BufferingSource.FillWithZeros = True
    79. _BufferingSource.Write(AufnahmeTon, 0, AufnahmeTon.Length)
    80. Dim Source = _BufferingSource.ToSampleSource
    82. If SoundOut.PlaybackState = CSCore.SoundOut.PlaybackState.Stopped Then
    83. SoundOut.Initialize(Source.ToWaveSource)
    84. SoundOut.Play()
    85. End If
    86. AufnahmeTon = New Byte() {}
    87. End If
    88. Loop
    89. Else
    90. _BufferingSource.Dispose()
    91. _BufferingSource = New WriteableBufferingSource(New WaveFormat(11000, 8, 2))
    92. BackgroundWorker1.CancelAsync()
    93. End If
    94. End Sub
    95. End Class


    Wenn es mit einer anderen Methode einfacher/besser geht, steige ich gerne um :)

    Ich danke schonmal für eure Hilfe.

    MfG

    Willkommen im Forum. :thumbup:

    GERFreefighter schrieb:

    VB.NET-Quellcode

    1. If Button1.Text = "Funk an" Then
    Dies ist jetzt nicht Dein eigentliches Problem, aber es wird Dir in Zukunft viel Aufwand und Ärger bringen bzw. ersparen.
    Zweiter Grundsatz: Trenne Daten und GUI.
    Merke Dir nicht im Text eines Buttons, welcher Zustand Deines Programms eingeschaltet ist!
    Mach Dir eine Variable, die den Zustand speichert. Gibt es mehrere mögliche Zustände, nimm dafür ein eigenes Enum.
    Wenn sich der Zustand ändert, ruf eine Routine auf, in der die GUI entrsprechend angepasst wird: Texte von Labels, Enable von Controls usw.
    Deine Variable Zuhören mit ihren 2 Zuständen wäre dann besser ein Boolean.
    =====
    Ach ja.
    Erster Grundsatz: Option Strict On.
    ==========
    Und:
    Dein Mikrofon als solches funktioniert an diesem Rechner?

    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!

Facebook
Telefonspende