VB compile needed

[mila06]

Hi pBS

If i read this side correct http://www.microsoft.com/downloads/detai...structions,
you have to download/install the SpeechSDK51MSM.exe

If you want to redistribute the Speech API and/or the Speech engines to integrate and ship as a part of your product, download the Speech 5.1 SDK Redistributables file (SpeechSDK51MSM.exe).

It's 131 MB !!!!!!! The Showburner-dir will get very big

[pBS]

hmmm,that couldn't be so, i have an .exe that makes it work without installing anything,standard XP install.... [Dspeech]
http://dimio.altervista.org/eng/

although sapi4 you do have to install, if you want to use those voices, i'm thinking this works for only sapi4...hmmm..
i found a good sapi5 sample app that works within SHarpdevelop...
http://msdn.microsoft.com/coding4fun/win...eid=909044

maybe able to adjust that one? works without any redist...

[mila06]

You are right, it doesn't need the SDK

Here is a new one as-is, but for now the txt-file have to be C:\

Does it work?

[mila06]

This one says the parameter eg:

Code:

speak "Current compilation size is 3400 megs"

[pBS]

excellent! that was it
could i get the adjusted source for both?
i need to adjust the speed a bit..[slow it down to -2, more understandable] i thin i know how to change that...

thanx alot...i knew i was close...should work for anyone with winXP..
too cool!

[note: you can leave offf the trailing quote even..no prob..]
also i changed to gui mode app and it doesn't open a window when run from say, start/run
i tried to feed a file to the stdin but it didn't work...no biggie...plenty other ways to do it anyways..

[pBS]

it even works while a video is playing..
[tho harder to understand, behind the tv sound..hehe]

[pBS]

i got it working in my vb express, even with relative path names..
[using FileName = (System.IO.Path.GetFullPath("ttstemp.txt")) ]
[needed to cuz i'm gonna change speech properties, speed, pitch etc.]

but was wondering how to do the commandline args...i'm new to vb bigtime and after looking i can't find...and such a simple thing too...lol
thanx for all your help...

and yea, vb express was just what the dr. ordered..

[mila06]

First the commandline-parameter-one:

Code:

Imports System
Imports SpeechLib

Module Module1

    Sub Main()
        Dim FileName As String
        Dim FileStream As New SpFileStream
        Dim Voice As SpVoice

        Dim SaySource As String = My.Application.CommandLineArgs(0)

        'MsgBox(SaySource)

        'Create SAPI voice
        Voice = New SpVoice

        'Assume that ttstemp.txt exists
        'FileName = CurDir() & "\ttstemp.txt"

        'Open the text file
        'FileStream.Open(FileName, SpeechStreamFileMode.SSFMOpenForRead, True)

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

        'Speak the file stream
        'Voice.SpeakStream(FileStream)
        Voice.Speak(SaySource, SpeechVoiceSpeakFlags.SVSFDefault)

        'Close the Stream
        'FileStream.Close()

        'Release the objects
        'FileStream = Nothing
        Voice = Nothing
    End Sub

Then the file one (another way to relative path):

Code:

Imports System
Imports SpeechLib

Module Module1

    Sub Main()
        Dim FileName As String
        Dim FileStream As New SpFileStream
        Dim Voice As SpVoice

        'Dim SaySource As String = My.Application.CommandLineArgs(0)

        'MsgBox(SaySource)

        'Create SAPI voice
        Voice = New SpVoice

        'Assume that ttstemp.txt exists
        FileName = CurDir() & "\ttstemp.txt"

        'Open the text file
        FileStream.Open(FileName, SpeechStreamFileMode.SSFMOpenForRead, True)

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

        'Speak the file stream
        Voice.SpeakStream(FileStream)
        'Voice.Speak(SaySource, SpeechVoiceSpeakFlags.SVSFDefault)

        'Close the Stream
        FileStream.Close()

        'Release the objects
        FileStream = Nothing
        Voice = Nothing
    End Sub

You could easyly combine the two!!!

[pBS]

gotcha...also i found Command$ as the input commands raw so i just used that...
working great for me so far..thanx for all your help...

also, i found you don't need to specify the voice name in code, it will use user's default voice, or you can actually change any of the params of the voice or even pick a new one from within the spoken text itself...
speak this file and you'll see what i mean..

Code:

<VOICE REQUIRED="name=Microsoft Sam"> <Rate speed = "3"> DVD burning completed. </Rate> </voice>
<Pitch middle = "9"> DVD burning completed. </Pitch>
<VOICE REQUIRED="name=Microsoft Anna"> DVD burning completed. </voice>
<volume level="90"> DVD burning completed. </volume>

just take out the line

Code:

'Voice.Voice = Voice.GetVoices("Name=Microsoft Anna", "Language=409").Item(0)

and recompile...then speak that file..it will change voices,pitch etc in middle...

[mila06]

You are welcome.
I think I have some small projects that will start speaking soon