This routine runs without errors, but what should happen?
I expected every phrase spoken by DECtalk Access32 (Window-Eyes) to be
preceded with "DecTalk Says "
 
' Determines if the selected synthesizer is the DECtalk Access32
(Window-Eyes), and if so
' prepends the phrase "DECtalk Says:" to the string about to be spoken.
 
ConnectEvent Speech, "OnSpeak","OnSpeak"
Function OnSpeak(originalString)
OnSpeak = OriginalString
 
If SynthesizerDescription = "DECtalk Access32   (Window-Eyes)" Then
OnSpeak = "DECtalk Says: " & OriginalString
End If
End Function

Reply via email to