?
Solved

500 POINTS, Please help me as soon as possible.

Posted on 2006-07-02
4
Medium Priority
?
708 Views
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;

            Try
                '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()
            MySndBuf.Start(True)
        End Sub

        ''' <summary>
        ''' Stops the recording of sound.
        ''' </summary>
        Public Sub StopRecord()
            MySndBuf.Stop()
        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
            Try

                byteArrayList.AddRange(ascii.GetBytes("RIFF"))
                byteArrayList.AddRange(ToBytes(36 + CInt(Fix(MemStream.Length)), 4))
                byteArrayList.AddRange(ascii.GetBytes("WAVE"))

                '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(ascii.GetBytes("data"))
                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)))
                byteArrayList.AddRange(buffer)
                buffer = New Byte(byteArrayList.Count - 1) {}
                byteArrayList.CopyTo(buffer)
                MyStream.Write(buffer, 0, buffer.Length)
            Catch ae As ArgumentException
                MessageBox.Show("Argument Exception with Message:" & Constants.vbLf + Constants.vbTab + ae.Message)
            Finally
                MemStream.Close()
                MyStream.Close()
            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)
                returningarray.Add(Convert.ToByte(targetnumber))
                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
                Loop
                Return returningarray
            End If
        End Function
    End Class 'end class

End Namespace
0
Comment
Question by:cutoi
  • 3
4 Comments
 

Author Comment

by:cutoi
ID: 17027186
Please help me.
0
 

Author Comment

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

please help me.
0
 
LVL 9

Accepted Solution

by:
jrscherer earned 1500 total points
ID: 17027330
0
 

Author Comment

by:cutoi
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.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Microsoft Reports are based on a report definition, which is an XML file that describes data and layout for the report, with a different extension. You can create a client-side report definition language (*.rdlc) file with Visual Studio, and build g…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Look below the covers at a subform control , and the form that is inside it. Explore properties and see how easy it is to aggregate, get statistics, and synchronize results for your data. A Microsoft Access subform is used to show relevant calcul…
When cloud platforms entered the scene, users and companies jumped on board to take advantage of the many benefits, like the ability to work and connect with company information from various locations. What many didn't foresee was the increased risk…
Suggested Courses
Course of the Month14 days, 19 hours left to enroll

840 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