SR and TTS

[i542]

Help! I need function which will start/end SR or speech text. Is that possible?

i542

[i542]

No one who wants help me?

[slipperylobster]

Help! I need function which will start/end SR or speech text. Is that possible?

i542

download voiceflux pro for SR.. actual file is... VoiceFluxPro_Setup_en_3.1.114.exe

might be a new version. This is a standalone and you wont need autoit for SR but search the forums for some coding .

Also...Search forums for _Talk functions and speech. Plenty of help in there!!!

[PsaltyDS]

Help! I need function which will start/end SR or speech text. Is that possible?

i542

Don't know about complete screen reader functionality, but the following was generated by following conversations in the forum on SAPI:

expandcollapse popup

; ==> Commented out other voices not present by default
; _Speak("My name is Microsoft Mary. Rate is negative ten.", -10, 100, "Microsoft Mary")
; Sleep(1000)
; _Speak("My name is Microsoft Mike. Rate is zero.", 0, 100, "Microsoft Mike")
; Sleep(1000)
_Speak("My name is Microsoft Sam. Rate is ten.", 10, 100, "Microsoft Sam")
Sleep(1000)
; _Speak("My name is Microsoft Mary. Volume is thirty three.", 0, 33, "Microsoft Mary")
; Sleep(1000)
; _Speak("My name is Microsoft Mike. Volume is sixty seven.", 0, 67, "Microsoft Mike")
;Sleep(1000)
_Speak("My name is Microsoft Sam. Volume is one hundred.", 0, 100, "Microsoft Sam")

; ---------------------------
;   Function _Speak()
;       Voice text reader using native SAPI
;   Call with _Speak($sText, $iRate, $iVol, $sVoice) where:
;       $sText = The text to read
;       $iRate = (optional) the rate at which to read, 10=fastest, 0=normal (default), -10=slowest
;       $iVol = Volume from 0 to 100 (default = 100, full)
;       $sVoice = Name of the voice to use, by default only "Microsoft Sam" is loaded,
;           optional voices like "Microsoft Mary" or "Microsoft Mike" may be present
;   On success returns 1
;   On fail returns 0 and:
;       @Error = 1, parameter error
;       @Error = 2, object creation error
;       @Error = 3, speaking error
; ---------------------------
Func _Speak($sText, $iRate = 1, $iVol = 100, $sVoice = "Microsoft SAM")
    If IsString($sText) And IsNumber($iRate) And $iVol <= 100 And IsString($sVoice) Then
        Local $objSpeech = ObjCreate ("Sapi.SpVoice")
        If @error = 0 Then
            $ObjSpeech.Voice = $objSpeech.GetVoices ("Name=" & $sVoice).Item (0)
            $objSpeech.Rate = $iRate
            $objSpeech.Volume = $iVol
            $objSpeech.Speak ($sText)
            If @error = 0 Then
                Return 1
            Else
                Return SetError(3, 0, 0)
            EndIf
        Else
            Return SetError(2, 0, 0)
        EndIf
    Else
        Return SetError(1, 0, 0)
    EndIf
EndFunc   ;==>_Speak