500 POINTS, Please help me as soon as possible.

Posted on 2006-07-02
Medium Priority
Last Modified: 2012-08-13
I asked this question, but I must say that I'm not satisfied with the answer.
How to record from Microphone ~~>Save in to file and process.
Buy component, look Example CaptureSound, and another solution that too old, required directx7 or too difficult Solution,
I"m not an experts at all.

The best answer is that: if you can modify this code?  It seems work, but it automatically save this file in "C:\test.wav"
Can't here anything. Please help me. If this code is good, I can easily use this by call. "MyVar.StartRecord()" for example.
Please checked it carefully for me?
Thanks a lot.

Here is the code:

Imports Microsoft.VisualBasic
Imports System
Imports Microsoft.DirectX.DirectSound
Imports System.Windows.Forms
Imports Buffer = Microsoft.DirectX.DirectSound.Buffer
Imports System.IO
Imports System.Collections

Namespace DirectSoundRecording
    ''' <summary>
    ''' Class used to handle the sound capture qualities of the program
    ''' </summary>
    Public Class SoundRec
        Private devices As CaptureDevicesCollection = New CaptureDevicesCollection
        Private MyCapture As Capture = New Capture(devices(0).DriverGuid)  ' Am I right to choose this device?
        Private MySndBuf As CaptureBuffer
        ''' <summary>
        ''' Sets a default format capture buffer with no effects; 22KHz 8bit/sample, mono
        ''' </summary>
        Public Sub New()
            Dim MySBufDesc As CaptureBufferDescription = New CaptureBufferDescription()
            'setting the default wave capture format for use
            'by the buffer descriptor
            Dim DefaultFormat As WaveFormat = New WaveFormat()
            DefaultFormat.SamplesPerSecond = 22000 'default freq 22khz
            DefaultFormat.Channels = 1
            DefaultFormat.BitsPerSample = 8
            DefaultFormat.AverageBytesPerSecond = 22000
            DefaultFormat.BlockAlign = 1

            'setting the buffer descriptor to tell the capture buffer object how the
            'buffer should perform            
            MySBufDesc.Format = DefaultFormat
            MySBufDesc.BufferBytes = 2000000
            MySBufDesc.ControlEffects = False
            MySBufDesc.WaveMapped = True

            MySndBuf = New CaptureBuffer(MySBufDesc, MyCapture)
        End Sub

        ''' <summary>
        ''' Constructor that sets format and buffersize, as well as enables
        ''' echo cancellation and noise suppression effects
        ''' </summary>
        ''' <param name="MyFormat"></param>
        ''' <param name="bufsize"></param>
        Public Sub New(ByVal MyFormat As WaveFormat, ByVal bufsize As Integer)
            Dim MySBufDesc As CaptureBufferDescription = New CaptureBufferDescription()
            'Format has been defined in MainForm
            MySBufDesc.Format = MyFormat
            MySBufDesc.BufferBytes = bufsize
            MySBufDesc.ControlEffects = True
            MySBufDesc.WaveMapped = True

            '            CaptureAcousticEchoCancellationEffect AECEffect;
            '            MySBufDesc.CaptureEffectDescription = new CaptureEffectDescription[1];
            '            MySBufDesc.CaptureEffectDescription[0].LocateInSoftware = true;
            '            MySBufDesc.CaptureEffectDescription[0].GuidEffectsClass = DSoundHelper.CaptureEffectsMsAcousticEchoCancellation;
            '            MySBufDesc.CaptureEffectDescription[0].GuidEffectsInstance = DSoundHelper.InterfaceCaptureEffectsAcousticEchoCancellation;
            '            MySBufDesc.CaptureEffectDescription[1].LocateInSoftware = true;
            '            MySBufDesc.CaptureEffectDescription[1].GuidEffectsClass = DSoundHelper.CaptureEffectsMsNoiseSuppression;

                'Create the CaptureBuffer
                MySndBuf = New CaptureBuffer(MySBufDesc, MyCapture)
            Catch se As SoundException
                MessageBox.Show("There is a " & se.ErrorString & " sound exception", "DirectSound Error")
            End Try
        End Sub
        ''' <summary>
        ''' Starts the capture from the capture device
        ''' </summary>
        Public Sub StartRecord()
        End Sub

        ''' <summary>
        ''' Stops the recording of sound.
        ''' </summary>
        Public Sub StopRecord()
        End Sub

        ''' <summary>
        ''' Saves the data in the capture buffer into a wave file
        ''' </summary>
        Public Sub ReadData()
            Dim readposition, writeposition As Integer
            Dim byteArrayList As ArrayList = New ArrayList()
            Dim ascii As System.Text.ASCIIEncoding = New System.Text.ASCIIEncoding()

            'Create a new wav file to store the capture buffer data.
            'if already exists will overwrite filename is test.wav
            Dim path As String = "c:\test.wav"
            Dim MemStream As Stream = New MemoryStream()
            MySndBuf.GetCurrentPosition(writeposition, readposition)
            MySndBuf.Read(0, MemStream, writeposition, LockFlag.None)
            Dim MyStream As Stream = New FileStream(path, FileMode.Create)
            'begin to write the wave file header. for more details
            'Search google.com for "wave formats"
            'RIFF header

                byteArrayList.AddRange(ToBytes(36 + CInt(Fix(MemStream.Length)), 4))

                'fmt  chunk
                byteArrayList.AddRange(ascii.GetBytes("fmt "))
                'length of fmt chunk (never changes)
                byteArrayList.AddRange(ToBytes(16, 4))
                '"1" for pcm encoding
                byteArrayList.AddRange(ToBytes(1, 2))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.Channels, 2))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.SamplesPerSecond, 4))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.AverageBytesPerSecond, 4))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.BlockAlign, 2))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.BitsPerSample, 2))

                'the data chunk
                byteArrayList.AddRange(ToBytes(CInt(Fix(MemStream.Length)), 4))
                Dim buffer As Byte() = New Byte(MemStream.Length - 1) {}
                MemStream.Read(buffer, 0, CInt(Fix(MemStream.Length)))
                buffer = New Byte(byteArrayList.Count - 1) {}
                MyStream.Write(buffer, 0, buffer.Length)
            Catch ae As ArgumentException
                MessageBox.Show("Argument Exception with Message:" & Constants.vbLf + Constants.vbTab + ae.Message)
            End Try

        End Sub

        ''' <summary>
        ''' returns capture status (boolean)
        ''' </summary>
        ''' <returns></returns>
        Public Function Capturing() As Boolean
            Return MySndBuf.Capturing
        End Function

        ''' <summary>
        ''' Recursive method that returns a target number in the form
        ''' of an ArrayList of bytes with designated number of bytes. If not enough
        ''' bytes to hold the targetnumber, will throw argumentexception.
        ''' Should be used in a try-catch clause
        ''' </summary>
        ''' <param name="targetnumber">the value intended to convert</param>
        ''' <param name="numofbytes">number of bytes needed</param>
        ''' <returns></returns>
        Private Function ToBytes(ByVal targetnumber As Integer, ByVal numofbytes As Short) As ArrayList
            Dim remainder, result As Integer
            Dim returningarray As ArrayList

            Dim wrongnumofbytes As ArgumentException = New ArgumentException("Not enough bytes to represent number", "numofbytes")
            result = Math.DivRem(targetnumber, 256, remainder)

            'if not enough bytes specified to represent target number
            If targetnumber >= Math.Pow(256, CDbl(numofbytes)) Then
                Throw wrongnumofbytes
            End If

            'if there are higher significant hexadecima, run a recursion
            If result >= 1 Then
                returningarray = ToBytes(result, CShort(Fix(numofbytes - 1)))
                returningarray.Insert(0, Convert.ToByte(remainder))
                Return returningarray

            Else 'if (result < 1) recursion terminating condition
                returningarray = New ArrayList(numofbytes)
                Dim i As Integer = 0
                Do While i < numofbytes - 1
                    returningarray.Add(Convert.ToByte(0)) 'fill up most significant hexadecima with 0's
                    i += 1
                Return returningarray
            End If
        End Function
    End Class 'end class

End Namespace
Question by:cutoi
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3

Author Comment

ID: 17027186
Please help me.

Author Comment

ID: 17027249
OK, My purpose is very simple.
Instead of chosing a lot of choice to record.
I just want to record:
- from Microphone
-saved to "c:\test.wav"

please help me.

Accepted Solution

jrscherer earned 1500 total points
ID: 17027330

Author Comment

ID: 17027530
Oh, I'm doing with it, But I don't want all the Form, What I need is not a form, It has 2 button:
StartRecording and StopRecording(and save file in C:\test.wav) - 44100,16bit,stereo.
To read all code and translate is too difficult for me. I've just learn VB and need it to do my work. That's all.
Please help me.

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
If you're writing a .NET application to connect to an Access .mdb database and use pre-existing queries that require parameters, you've come to the right place! Let's say the pre-existing query(qryCust) in Access takes a Date as a parameter and l…
Michael from AdRem Software outlines event notifications and Automatic Corrective Actions in network monitoring. Automatic Corrective Actions are scripts, which can automatically run upon discovery of a certain undesirable condition in your network.…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
Suggested Courses
Course of the Month10 days, 12 hours left to enroll

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question