CHMlib Logo Leading Translation Management System for Translation Agencies, Top Translation Management Software for Freelance Translators, Time Tracking Software, Word Count, Character Count and Line Count Software, Computer Assisted Translation Tool for Easy Word Count, Clipboard Character Count Software, User-Friendly Translation Memory Software, Terminology Management Software, Terminology Management Server, Microsoft Glossary Software, Dictionary of Acronyms, Social Network for Translators and Translation Agencies, Acronyms and Abbreviations Search Engine, Russian Translation Lab, Ukrainian Translation Lab.
You are reading help file online using chmlib.com
CrisisHelper - First Aid in Tough Times of World Economic Crisis


Intelligent Interface Technologies Home Page Microsoft Speech SDK

Speech Automation 5.1

Interface: ISpeechBaseStream

Example

The following Visual Basic form code demonstrates the use of the ISpeechBaseStream methods Read, Write and Seek. These ISpeechBaseStream methods are inherited by SpCustomStream, SpFileStream and SpMemoryStream. This example uses SpFileStream, but the methods work the same in all three objects.

To run this code, create a form with the following controls:

  • Two command buttons called Command1 and Command2
  • Paste this code into the Declarations section of the form.

    The Form_Load procedure creates a voice object and two SpFileStream objects. The Command1_Click procedure speaks the words "one," "point," "five," and "SAPI" into the first file stream, using the Seek method to find the ending byte position of each word. It then reads the audio data for each word separately, and writes a new stream with the order of the words reversed. The Command2_Click procedure plays back the two files created by Command1.


    Option Explicit
    
    Const FILENAME1 = "c:\First.wav"
    Const FILENAME2 = "c:\Second.wav"
    
    Dim V As SpeechLib.SpVoice
    Dim S1 As SpeechLib.SpFileStream
    Dim S2 As SpeechLib.SpFileStream
    
    Private Sub Command1_Click()
        
        Dim varT(3) As Variant      'text to be spoken
        Dim varP(3) As Variant      'positions in output stream
        Dim varD(3) As Variant      'audio data chunks
        Dim varStart As Variant
        Dim ii As Integer
    
        varT(0) = "one": varT(1) = "point": varT(2) = "five": varT(3) = "SAPI"
        
        'Create WAV file of "one point five SAPI"
        'Speak the words into a single filestream object,
        'and remember the end-of-stream position of each word.
        
        S1.Open FILENAME1, SSFMCreateForWrite
        Set V.AudioOutputStream = S1
        For ii = 0 To UBound(varT)
            V.Speak varT(ii)
            varP(ii) = S1.Seek(0, SSSPTRelativeToCurrentPosition)
        Next ii
        S1.Close
        
        'Read the words from the first file into the variant array;
        'Write them back into the second file in reverse order.
        
        S1.Open FILENAME1, SSFMOpenForRead
        S2.Open FILENAME2, SSFMCreateForWrite
        
        varStart = 0
        For ii = 0 To UBound(varT)
            S1.Read varD(ii), varP(ii) - varStart
            varStart = varP(ii)
        Next ii
        
        For ii = UBound(varT) To 0 Step -1
            S2.Write varD(ii)
        Next ii
        
        S2.Close
        S1.Close
        
        'After using AudioOutputStream, reset voice AudioOutput property
        Set V.AudioOutput = V.GetAudioOutputs("").Item(0)
        
        Command1.Enabled = False
        Command2.Enabled = True
        
    End Sub
    
    Private Sub Command2_Click()
    
        S1.Open FILENAME1, SSFMOpenForRead
        S2.Open FILENAME2, SSFMOpenForRead
    
        'Use first male voice to announce the results
        Set V.Voice = V.GetVoices("gender=male").Item(0)
        
        V.Speak "This is the first sound file", SVSFlagsAsync
        V.SpeakStream S1, SVSFlagsAsync
        
        V.Speak "This is the second sound file", SVSFlagsAsync
        V.SpeakStream S2, SVSFlagsAsync
        
        Do
            DoEvents
        Loop Until V.WaitUntilDone(1)
        
        S1.Close
        S2.Close
    
    End Sub
    
    
    Private Sub Form_Load()
        Set V = New SpeechLib.SpVoice
        Set S1 = New SpFileStream       'Create stream1
        Set S2 = New SpFileStream       'Create stream2
        Command2.Enabled = False
    End Sub


    You are reading help file online using chmlib.com

    If you want your help file to be removed or added please send e-mail to chmlibcom@gmail.com
    Partner sites: Logo Design, Simple Anti-Crisis Accounting Software, Voice Search for Web