TTS - TextToSpeech and SAPI

[Rolf Brandt]

Has anyone any experience with TextToSpeech under FF3 and PB10?

It seemed very simple with PB9 (found a beautiful example by Josè).

Code Select Expand

    LOCAL oSp AS DISPATCH

    LET oSp = NEW DISPATCH IN "SAPI.SpVoice"
    IF ISFALSE ISOBJECT(oSp) THEN EXIT FUNCTION

    LOCAL vRes AS VARIANT
    LOCAL vTxt AS VARIANT
    LOCAL vTime AS VARIANT

    vTxt = "Hello everybody! Are you sitting comfortable? Then please stand up."
    OBJECT CALL oSp.Speak(vTxt) TO vRes
    vTime = -1 AS LONG
    OBJECT CALL oSp.WaitUntilDone(vTime) TO vRes


But I am a little stuck now.


Rolf

[Jim Dunn]

Just change:

LET oSp = NEW DISPATCH IN "SAPI.SpVoice"

to:

LET oSp = NEWCOM "SAPI.SpVoice"

and it will run in PB10.  : )

[Rolf Brandt]

Thanks Jim, I had tried that to, but it did not work.

Rolf

[José Roca]

I have tried it and it works. Alternatively. you can add #INCLUDE "sapi.inc" and use:

Code Select Expand


SpSpeak("Hello everybody! Are you sitting comfortable? Then please stand up.")


[Rolf Brandt]

I must correct myself - It does run in PB10. But I do net get it to run in FF3 with PB10.

Any ideas?

Rolf

[Rolf Brandt]

Thanks Jim and Jose,

don't know why it won't work with Jim's code correction for me. I'll try to investigage.
SpSpeak (with SAPI.INC) works fine.

Rolf

[Elias Montoya]

How do you get it to speak in spanish?

[José Roca]

I guess that installing an Spanish voice and selecting it.

[Elias Montoya]

It's installed. But how do you select it programatically?

[Theo Gottwald]

Jose has wrappers for this in his includes for SAPI.

Welcome back, Elias!