audio recorder project

[splat78423]

i am customizing an existing project which simply records audio from a sound card. what i would like to do is have the Record command button automatically be "clicked" as soon as the app loads. I tried the simple method of putting the command_click code into the form_load code area but i get the following error:

Run-Time '13'
Type mismatch

I think the problem has something to do with the way i am calling the RecordSound function. Some type of bad Ref. I figure it is the txtfilename string.

i am using the code below:
Private 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

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

Dim RecdTime As Boolean
Private sBits As String
Private sBytes As String
Private sSample As String
Private lSeconds As Long
Private start As Long

Private Function RecordSound(filename As String) As Boolean


cmdRecord.Enabled = False

Dim Result&
Dim errormsg%
Dim ReturnString As String * 1024
Dim ErrorString As String * 1024
Dim mssg As String * 255
Dim i As Long

Result& = mciSendString("open new Type waveaudio Alias recsound", ReturnString, Len(ReturnString), 0)

If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If

Result& = mciSendString("set recsound time format ms bitspersample " & CInt(sBits) & " channels 2 bytespersec 22500 samplespersec " & sSample, ReturnString, 1024, 0)

If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If

Result& = mciSendString("record recsound", ReturnString, Len(ReturnString), 0)

If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If

RecdTime = True

start = Timer

Do Until Not RecdTime
WaveStatus
DoEvents
Loop

Result& = mciSendString("save recsound " & filename, ReturnString, Len(ReturnString), 0)

If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If

Result& = mciSendString("close recsound", ReturnString, 1024, 0)

If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If

End Function

Private Sub cmdClose_Click()

End

End Sub

Private Sub cmdRecord_Click()

MsgBox "Enjoy Sound Recorder from Gagu"

cmdStop.Enabled = True
lSeconds = 1
Call RecordSound(txtFileName)

End Sub

Private Sub cmdStop_Click()

If cmdRecord.Enabled = False Then
RecdTime = False
End If

cmdRecord.Enabled = True
cmdStop.Enabled = False

MsgBox "Enjoy Sound Recorder from Gagu"

End Sub

Private Sub Form_Load()

cmdStop.Enabled = True
lSeconds = 1
Call RecordSound(txtFileName)
cmdStop.Enabled = False
sBytes = "172000"
sBits = "16"
sSample = "44100"

End Sub
Private Sub WaveStatus()

Dim mssg As String * 255
Dim i As Long
Dim elapsed As Long
Dim intSec As Integer
Dim sngMin As Single
Dim TotalTime As String

elapsed = Timer - start

intSec = elapsed Mod 60
sngMin = elapsed \ 60
TotalTime = sngMin & ":" & intSec

lblTime.Caption = TotalTime

i = mciSendString("set recsound time format bytes", 0&, 0, 0)
If i <> 0 Then RecdTime = False

i = mciSendString("status recsound length", mssg, 255, 0)
If i <> 0 Then RecdTime = False

mssg = CStr(CLng(mssg) / 1024)
lblSize.Caption = mssg & " kb"

End Sub


'Any ideas would be appreciated even if they are for
'adding different functions, etc...
'

 

[Error7]

Try putting your code in the Form_Activate event instead of Form_Load.

Alan

[gray]Experience is something you don't get until just after you need it.[/gray]

 

[splat78423]

i'll try that as soon as i get a chance to step out of the office and work on my own projects at home. Thanks bro
I'll keep you updated...

 

[splat78423]

i tried what you said and it worked. however the program is not recording any sound from my microphone. Maybe i should try another mic or maybe i dont have the logic right to record from the input on my sound card....I'm not sure yet. Any ideas?

 

[Error7]

A couple of things to try.

First the most obvious, make sure the mic input isn't muted in Windows volume control and set the level quite high.

Second check your code against the examples I posted in thread222-1168784
I used this to record via a mic and it worked for me albeit I was using the built in mic on my laptop. Unfortunately this was several years ago and I don't have the working code with me.

Alan

[gray]Experience is something you don't get until just after you need it.[/gray]