MciSendStr()

[reinaldocrespo]

Hi.

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

Code: Select all  Expand view  RUN

::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.

[Antonio Linares]

Reinaldo,

Try it this way:

Code: Select all  Expand view  RUN

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