Sound aufnehmen als bytes in varible und wieder abspielen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von thefiloe.

    Sound aufnehmen als bytes in varible und wieder abspielen

    Hallo liebe Gemeinde ,

    Ich stehe vor einem kleinen Problem.

    Problem :

    Ich möchte gerne den Sound von meinem Micro aufnehmen. Habe dazu auch schon ein bisschen Code im Internet gefunden, und mir den von C# in VB.Net übersetzt. Dieser Code arbeitet mit DirectX sprich mit DirectSound. Allerdings muss ich wenn ich diesen Code benutze immer ein Fensterhandle angeben, das die Instanz meiner Anwendung darstellt.

    Sobald ich aber ein anderes Fenster im Focus habe, hört die Aufnahme auf. Das ist ja nicht Sinn der Sache. Gibt es dort noch andere Möglichkeiten, als mit DirectX zu arbeiten ? Wichtig ist aber, das ich den aufgenommenen Sound als Bytes brauche. Wichtig ist auch das ich diese Bytes mit der selben library oder whatever wieder abzuspielen.

    Boardregeln §4 1e) Mehrere Postings hintereinander (Doppelposts) in einem Thread (Thema) von einem einzigen User sind nur erlaubt,
    wenn dies unbedingt erforderlich ist oder der vorherige Post schon längere Zeit zurückliegt.

    Längere Zeit ist nicht 1 Tag.

    -> Pushposts gelöscht.

    RodFromGermany schrieb:


    Kannst Du mal ein wenig Code posten?


    Naja Wenig ist anders :D So viel Code, um einfach nur vom micro aufzunehmen ^^


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX.DirectSound
    2. Imports System.IO
    3. Imports System.Net.Sockets
    4. Imports System.Net
    6. Public Class Voice
    7. Private captureBufferDescription As CaptureBufferDescription
    8. Private autoResetEvent As Threading.AutoResetEvent
    9. Private notify As Notify
    10. Private waveFormat As WaveFormat
    11. Private Shadows capture As Capture
    12. Private bufferSize As Integer
    13. Private captureBuffer As CaptureBuffer
    14. Private device As Device
    15. Private playbackBuffer As SecondaryBuffer
    16. Private playbackBufferDescription As BufferDescription
    17. Public bStop As Boolean = True
    18. Private SendClient As New UdpClient
    20. Private byteData As Byte() = New Byte(1023) {}
    21. Private PPort As Integer
    23. Sub New(ByVal Port As Integer)
    24. PPort = Port
    25. Init()
    26. End Sub
    28. Public Sub Init()
    29. device = New Device()
    30. device.SetCooperativeLevel(frm_test, CooperativeLevel.Normal)
    32. Dim captureDeviceCollection As New CaptureDevicesCollection()
    34. Dim deviceInfo As DeviceInformation = captureDeviceCollection(0)
    36. capture = New Capture(deviceInfo.DriverGuid)
    38. Dim channels As Short = 1
    39. 'Stereo.
    40. Dim bitsPerSample As Short = 16
    41. '16Bit, alternatively use 8Bits.
    42. Dim samplesPerSecond As Integer = 44100
    43. '11KHz use 11025 , 22KHz use 22050, 44KHz use 44100 etc.
    44. 'Set up the wave format to be captured.
    45. waveFormat = New WaveFormat()
    46. waveFormat.Channels = channels
    47. waveFormat.FormatTag = WaveFormatTag.Pcm
    48. waveFormat.SamplesPerSecond = samplesPerSecond
    49. waveFormat.BitsPerSample = bitsPerSample
    50. waveFormat.BlockAlign = CShort(channels * (bitsPerSample \ CShort(8)))
    51. waveFormat.AverageBytesPerSecond = waveFormat.BlockAlign * samplesPerSecond
    53. captureBufferDescription = New CaptureBufferDescription()
    54. captureBufferDescription.BufferBytes = CInt(waveFormat.AverageBytesPerSecond / 5)
    55. 'approx 200 milliseconds of PCM data.
    56. captureBufferDescription.Format = waveFormat
    58. playbackBufferDescription = New BufferDescription()
    59. playbackBufferDescription.BufferBytes = CInt(waveFormat.AverageBytesPerSecond / 5)
    60. playbackBufferDescription.Format = waveFormat
    61. playbackBuffer = New SecondaryBuffer(playbackBufferDescription, device)
    63. bufferSize = captureBufferDescription.BufferBytes
    65. End Sub
    67. Public Sub Senden()
    68. If bStop = False Then
    70. Else
    71. Dim T As New System.Threading.Thread(AddressOf Send)
    72. T.Start()
    73. End If
    74. End Sub
    75. Private Sub Send()
    76. Try
    77. captureBuffer = New CaptureBuffer(captureBufferDescription, capture)
    79. CreateNotifyPositions()
    81. Dim halfBuffer As Integer = CInt(bufferSize / 2)
    83. captureBuffer.Start(True)
    85. Dim readFirstBufferPart As Boolean = True
    86. Dim offset As Integer = 0
    88. Dim memStream As New MemoryStream(halfBuffer)
    89. bStop = False
    90. While Not bStop
    91. autoResetEvent.WaitOne()
    92. memStream.Seek(0, SeekOrigin.Begin)
    93. captureBuffer.Read(offset, memStream, halfBuffer, LockFlag.None)
    94. readFirstBufferPart = Not readFirstBufferPart
    95. offset = If(readFirstBufferPart, 0, halfBuffer)
    97. Dim dataToWrite As Byte() = memStream.GetBuffer()
    99. 'Hier wird das ganze dann per UDP Rausgefeuert
    100. End While
    101. Catch ex As Exception
    102. MsgBox(ex.ToString, MsgBoxStyle.Information, "VoiceChat-Send ()")
    103. Finally
    104. captureBuffer.Stop()
    105. bStop = True
    106. End Try
    107. End Sub
    109. Public Sub Empfangen()
    110. Dim T As New Threading.Thread(AddressOf Receive)
    111. T.Start()
    112. End Sub
    113. Private Sub Receive()
    114. Try
    115. bStop = False
    116. Dim remoteEP As New IPEndPoint(IPAddress.Any, 0)
    117. SendClient.Client.Bind(remoteEP)
    118. While Not bStop
    119. 'Receive data.
    120. Dim byteData As Byte() = SendClient.Receive(remoteEP)
    121. 'G711 compresses the data by 50%, so we allocate a buffer of double
    122. 'the size to store the decompressed data.
    123. Dim byteDecodedData As Byte() = New Byte(byteData.Length * 2 - 1) {}
    125. byteDecodedData = New Byte(byteData.Length - 1) {}
    126. byteDecodedData = byteData
    128. 'Play the data received to the user.
    129. playbackBuffer = New SecondaryBuffer(playbackBufferDescription, device)
    130. playbackBuffer.Write(0, byteDecodedData, LockFlag.None)
    131. playbackBuffer.Play(0, BufferPlayFlags.[Default])
    132. End While
    133. MsgBox("Ende")
    134. Catch ex As Exception
    135. MsgBox(ex.ToString, MsgBoxStyle.Information, "VoiceChat-Receive ()")
    136. Finally
    138. End Try
    139. End Sub
    142. Private Sub CreateNotifyPositions()
    143. Try
    144. autoResetEvent = New Threading.AutoResetEvent(False)
    145. notify = New Notify(captureBuffer)
    146. Dim bufferPositionNotify1 As New BufferPositionNotify()
    147. bufferPositionNotify1.Offset = CInt(bufferSize / 2 - 1)
    148. bufferPositionNotify1.EventNotifyHandle = autoResetEvent.SafeWaitHandle.DangerousGetHandle()
    149. Dim bufferPositionNotify2 As New BufferPositionNotify()
    150. bufferPositionNotify2.Offset = bufferSize - 1
    151. bufferPositionNotify2.EventNotifyHandle = autoResetEvent.SafeWaitHandle.DangerousGetHandle()
    153. notify.SetNotificationPositions(New BufferPositionNotify() {bufferPositionNotify1, bufferPositionNotify2})
    154. Catch ex As Exception
    155. MsgBox(ex.Message, MsgBoxStyle.Information, "VoiceChat-CreateNotifyPositions ()")
    156. End Try
    157. End Sub
    158. End Class



    Hoffe du kannst mir helfen ;)

    Slayers schrieb:

    Hoffe du kannst mir helfen

    Noch nicht.
    Da fehlt noch eine ganze Menge.
    Leg Dir ein neues leeres Projekt an, kopier die Klasse Voice da hinein und alles, was der Compiler anmeckert, fehlt.
    Du musst nicht alle Deine Klassen postren, nur soviel, dass ich den Effekt nachvollziehen kann.
    Dann sehen wir weiter. :thumbup:
    ---------------
    Sieh Dir mal diesen Threadan.
    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!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    Habe mal mit den DX-Coms bisschen rumgespielt. Kann mich errinnern, dass ich dort das Desktophandle angegeben hab.
    msdn.microsoft.com/en-us/libra…s633504%28v=vs.85%29.aspx


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.