VB MMControl and Recording.

mk6705

I've made an app in VB for recording, works fine. It'll record from whatever the default recording device is and saves it before the app ends. The code (Very basic at the moment, just trying to prove the concept) is here if that would be of benefit to anyone:

Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path &"\Recorded Audio 42.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Record"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Save"
MMControl1.Command = "Close"
End Sub

However, when it records it records in shameful quality. Just above a telephone conversation. Is there any way I can change the sample rate and bitrate or is it doomed to record in quality this bad forever?

Ginger

You can do this, but its not as easy as .Bitrate = 16 for example

So

Public Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


dim RetLng as long
RetLng = mciSendString("set recwav time format ms bitspersample 16 channels 1 samplespersec 16000", 0, 0, 0)

This will set for 16Khz recording

mk6705

Thanks Ginger,
I added a module to the project and put the following into it:

Dim RetLng As Long

Public Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Then, in the actual form I put:

Private Sub Form_Load()
RetLng = mciSendString("set recwav time format ms bitspersample 16 channels 2 samplespersec 44100", 0, 0, 0)
End Sub

As you can see, I changed the channels and samplerate to suit me.
However, it's still recording in the default. Anything I'm going wrong that you can see?

Thanks for your help again.

Ginger

Have a goo at this

http://www.vbarchiv.net/tipps/tipp_2041-wave-dateien-aufnehmen.html

Or http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_20968162.html

If you cant see the second one I will post the code for you

mk6705

Ginger wrote: »

Have a goo at this

http://www.vbarchiv.net/tipps/tipp_2041-wave-dateien-aufnehmen.html

Or http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_20968162.html

If you cant see the second one I will post the code for you

Hi Ginger, I saw it said recwav instead of recwave so I changed this, to no avail...
Will it affect an active MMControl on the form or will this only work for commanding the DLL to record directly?

mk6705

Ok I ditched the MMControl and am now sending commands to winmm.dll. It won't accept spaces in the filename (I don't think there's anything I can do with this so I'll use underscores) but I set all the settings...and it still records in bad quality. It makes a big file but it only fills in a small bit then fills the rest of it with crap so I have a big file yet in crap quality. Is there some bit rate setting I should set that I'm missing?

c0ldfyr3

Check out some of these: http://pscode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria=sound+recording&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick+Search&optSort=Alphabetical