Asp Forum - need help with code translation from VB

Li Chen

10/13/2008 12:12:00 AM

Hello,

I copy the following scripts from
http://msdn.microsoft.com/en-us/librar...(VS.85).aspx
Can anyone kindly translate them into Ruby scripts ?

Thank you very much,

Li

###############################
Speak to a wav file in automation
The following example is written in Visual Basic. It has the same
functionality as the above in C++. After the creation of an SpFileStream
object, a default format, SAFT22kHz16BitMono, is assigned to the object
so that user does not need to explicitly assign a wav format to it
unless a specific wav format is needed. In this example,
ISpeechFileStream.Open creates a wav file, ttstemp.wav, and binds the
FileStream to the file. The third parameter of ISpeechFileStream.Open is
the Boolean, DoEvents. The default of this parameter is set to False.
However, the user should always set it to True to display SAPI events
while playing back the wav file. If the parameter is set to False, no
engine events will be stored in the file, resulting in that no engine
events will be fired during the wav file play back.

Dim FileName As String
Dim FileStream As New SpFileStream
Dim Voice As SpVoice

'Create a SAPI voice
Set Voice = New SpVoice

'The output audio data will be saved to ttstemp.wav file
FileName = "c:\ttstemp.wav"

'Create a file; set DoEvents=True so TTS events will be saved to the
file
FileStream.Open FileName, SSFMCreateForWrite, True

'Set the output to the FileStream
Set Voice.AudioOutputStream = FileStream

'Speak the text
Voice.Speak "hello world"

'Close the Stream
FileStream.Close

'Release the objects
Set FileStream = Nothing
Set Voice = Nothing

############################
Speak a Text File in Automation
The following code illustrates how to speak a text file in a specific
voice in Visual Basic. This example assumes a text file (ttstemp.txt)
containing the text to be spoken already exists.
ISpeechVoice.SpeakStream is used here to speak an SpFileStream that has
been bound to the file.

Dim FileName As String
Dim FileStream As New SpFileStream
Dim Voice As SpVoice

'Create SAPI voice
Set Voice = New SpVoice

'Assume that ttstemp.txt exists
FileName = "c:\ttstemp.txt"

'Open the text file
FileStream.Open FileName, SSFMOpenForRead, True

'Select Microsoft Sam voice
Set Voice.voice = voice.GetVoices("Name=Microsoft Sam",
"Language=409").Item(0)

'Speak the file stream
Voice.SpeakStream FileStream

'Close the Stream
FileStream.Close

'Release the objects
Set FileStream = Nothing
Set Voice = Nothing
--
Posted via http://www.ruby-....

2 Answers

Robert Klemme

10/13/2008 8:37:00 AM

2008/10/13 Li Chen <chen_li3@yahoo.com>:
> I copy the following scripts from
> http://msdn.microsoft.com/en-us/librar...(VS.85).aspx
> Can anyone kindly translate them into Ruby scripts ?

How much are you willing to pay?

robert

--
remember.guy do |as, often| as.you_can - without end

Josef 'Jupp' Schugt

10/13/2008 10:11:00 AM

On Mon, 13 Oct 2008 02:12:26 +0200, Li Chen <chen_li3@yahoo.com> wrote:

> http://msdn.microsoft.com/en-us/librar...(VS.85).aspx

Using properly encoded URLs makes life easier:

http://msdn.microsoft.com/en-us/librar...%28VS.85%29.aspx

Josef 'Jupp' Schugt
--
Blog: http://penpen.gooda...
PGP key (id 6CC6574F): http://wwwkeys.d...
Jabber - http://www.j... - contact information on request

comp.lang.ruby

need help with code translation from VB

Li Chen

Robert Klemme

Josef 'Jupp' Schugt

x Login to ForumsZone