Speak error 6005

[ellano]

When using the Speak program the following error occurs:

Application Internal Error - d:\fwh\samples\speak.exe
Terminated at: 2013.08.18 11:19:49
Unrecoverable error 6005: Exception error:

Windows 7 64 bits, FWH 13.07, Borland C 582, Harbour_bcc582_20130617

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
function Main()

   local oVoice := TOleAuto():New( "Sapi.SPVoice" )

   oVoice:Speak( "Hi there!" )
*   oVoice:Speak( "texto.txt", 4 ) // 4 significa que es un fichero externo
   oVoice= nil

return nil

[Antonio Linares]

Here it errors:

Error description: (DOS Error -2147352567) WINOLE/1007 (0x800C000D): SPEAK
Args:
[ 1] = C test.txt
[ 2] = N 4

I am going to review the Speak() method

[Antonio Linares]

http://msdn.microsoft.com/en-us/library/ms723609(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/ms720892(v=vs.85).aspx

[Antonio Linares]

If you specify the path name of the file then it works fine

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oVoice := TOleAuto():New( "Sapi.SPVoice" )

   oVoice:Speak( "Hi there!" )
   oVoice:Speak( "c:\fwh\samples\test.txt", 4 ) // 4 significa que es un fichero externo

return nil
 

[ellano]

Thanks for your kind help , but I'm not even using a file for the time being (as you can see in my code the line has been commented out with an asterisk)