Page 1 of 1

MciSendStr()

Posted: Sat Jul 21, 2007 12:10 am
by reinaldocrespo
Hi.

I'm trying to implement voice recording and playback. Using something like this:

Code: Select all

::cCmnd := "Record RecWavFile"

if ( nResult := MciSendStr( ::cCmnd, @::cResult ) ) > 0
	MsgStop( "MCI Error " + ::cResult, cValToChar( nResult ) )
Endif
I get error 263 on nResult every single time for all MCI commands.

Can someone help?

Is there some fw + xharbour implementation or class available for voice recording and playback?

Thank you,


Reinaldo.

Posted: Sat Aug 11, 2007 9:59 am
by Antonio Linares
Reinaldo,

Try it this way:

Code: Select all

local cResult := ::cResult
...
if ( nResult := MciSendStr( ::cCmnd, @cResult ) ) > 0 
   ::cResult = cResult