Hi David,
I had sent you the SAPI 45 class and I labeled it 45 because it includes
all SAPI 4 commands as well.
In a class you have a list of hidden variables you need for immediate
storage and access to. In the main body of the class is the exposed or public
methods and properties. So just search down the list at the Initialization
section inside my class and you will find an area where I make a list of, an
array of, of all the voices both for SAPI 5 and 4.
If you were to look at all the properties and methods you will find in each
the selection of or an if statement to which voice you want. There you will
find all the SAPI 4 equivalents of the SAPI 5 voices.
So read the class I sent you and I had entitled it as SAPI45Class.vbs and
sent it to you as a .txt so the anti virus protection does not strip it
thinking it is just a virus.
So take a look at it and I will send you another copy if you need it.
Bruce
Sent: Tuesday, February 11, 2014 10:22 AM
Subject: Re: Using a SAPI voice?
Thanks, again.
Have one more question, if anyone could help in clarifying something. Here is
a code snip:
Dim SVoice: Set SVoice = CreateObject( "Sapi.SpVoice")
Dim SItem
For Each SItem In SVoice.GetVoices
MsgBox SItem.GetDescription
Next 'SItem.
OK, the code is not very useful as it stands, it simply just lists the names
of all the SAPI voices on your system. Or, rather, that is what I hoped it did.
Yet, it seems from my observation, that only Sapi5 voices are being recognized.
Is that the case? What is the correct syntax, to include Sapi4 voices? Or,
could there be other reasons, why not all my SAPI voices are listed with the
above code? Not a big deal, And I know I could go the more thorough way, around
the Synthesizer objects in Window-Eyes, but I just wanted to make sure I
understand the nature of the SAPI.SpVoice class. Sometimes, you just have
better luck in going directly to an object or class, rather than use the WE
objects. No critics here, simply just asking for some clarification on the
matter. Smile.
Thanks again, everyone.
----- Original Message -----
From: LB
To: GW Scripting
Sent: Tuesday, February 11, 2014 6:18 AM
Subject: Re: Using a SAPI voice?
Hi David,
As usual I said the opposite of what I meant, the async method is what
you want and is the value of 1.
Purge clears out the speech buffer and stops the existing speech.
So the Speak method is the opposite of the default since it speaks in
the background and the default does not since you had asked the question why
and what.
Correction:
Inside my Sapi class I had changed the statements to no wait until
done format. Where the speak statement inside the class defaults to Async mode
which sets the wait until done to false. I did this to enable the purge
statement to cancel speech during the talk for it requires both flags.
For the sync mode ignores any interrruptions, thus any purge is
ignored.
So my Sapi class has the Speak method doing what you want with the
default of shutting off any existing speech.
I added another version of this by saying or calling it SpeakNext
which does not erase the buffer but does what is says, it speaks next in queue.
So in my Sapi class just use:
oTTSEngine.Speak text 'If you want existing speech stopped.
oTTSEngine.SpeakNext text 'Speaks this text after the existing stops.
oTTSEngine.Speaking text 'speaks text and xml tags with existing speech
stopped.
Example:
oTTSEngine.Speaking "To spell your name David: " & <spell> & "David" &
"</spell>"
oTTSEngine.SpeakAsIs text, flags 'defaults to the default, sync mode
speech. It also allows you to pass any of the flags in just like the standard
Sapi Speak method does.
Or when you do not want to use my class then just do it as a standard
format and instead of using SpeakAsIs text, flags just use the built in format:
oTTS.Speak text, flags (where flags are or together: async, purge, xml, or punc)
Bruce
Sent: Monday, February 10, 2014 7:58 PM
Subject: Re: Using a SAPI voice?
Hi David,
There is a flag to set asynchronous calls and in my SAPI class I
set up the calls in public statements,
Format:
(Without Pitch)
oTTS.Speak txt, async Or xml
(With Pitch)
oTTS.Speak "<pitch absmiddle=""" & CStr( getPitch) & """>" & txt &
"</pitch>", flags
Flags:
Everything is and or or together in one line for the flags which are
below:
The default is sync and is 0, I don't know what your flag settings are
but it should be the default if no flags sent.
default_spk = 0
sync = 0 ' Default: CONTINUOUS SPEECH!
async = 1 ' Comes back after spoken phrase.
purge = 2 'STOP BEFORE SPEAK only if async is used!
isfile = 4 'OPEN TEXT AS TEXT FILE NAME AND SPEAK FILE TEXT!
xml = 8 'USE XML TAGS!
no_xml = 16 'IGNORE XML TAGS!
persist = 32 'XML NEW TAGS PERSIST IN ALL SPEECH!
punc = 64 'SAY ALL PUNCTUATIONS!
Sent: Monday, February 10, 2014 4:33 PM
Subject: Using a SAPI voice?
In my app, I am using a SAPI voice, to read out a certain amount of
text. the very basics of the code, is:
Dim SVoice: Set SVoice = CreateObject( "SAPI.SpVoice")
SVoice.Speak "blah-blah-blah!"
Allright, all of this works fine. Yet, since the text is somehow
lengthy, and I want other processes not to wait for all that text to be spoken,
I have this one question for you experienced developers.
Is there any instruction I can use, to send the text to the Sapi
voice, and immediately have the next line of code carried out? That is, some
kind of an instruction for the Sapi Object, to know that it is not supposed to
wait for the voice to finish speaking, before the code can move on.
Thanks for any response, and hope the above somehow made sense.
------------------------------------------------------------------------
This email is free from viruses and malware because avast!
Antivirus protection is active.
--------------------------------------------------------------------------
This email is free from viruses and malware because avast!
Antivirus protection is active.
----------------------------------------------------------------------------
This email is free from viruses and malware because avast!
Antivirus protection is active.
---
This email is free from viruses and malware because avast! Antivirus protection
is active.
http://www.avast.com
