FiveTech Support Forums

oNarrator                := CreateObject( "Sapi.SPVoice" , "WithEvents" ) 
oNarrator:EventInterests := SVEPhoneme
oNarrator:Speak( Main.RichEdit_1.VALUE, SVSFlagsAsync)
While ..
...
end

   oGetText:SetSel({StreamPosition , StreamPosition + Length})
   oGetText:SetFocus()

#include "FiveWin.ch"

static aEvents := {}

function Main()

    local oVoice := TOleAuto():New( "Sapi.SPVoice" )
    
    oVoice:__hSink = __axRegisterHandler( oVoice:__hObj, { | ... | AAdd( aEvents, { ... } ) } )
 
    oVoice:Speak( "hello my friend", 1 )  // 1 means asynch so events can arrive. Instead of 1, 3 can be used to cancel what is being said and start again in asynch mode
    MsgInfo( "waiting" ) // we wait and process windows messages so events can arrive

    XBrowser( aEvents )
 
 return nil

Function ChangeVoice()  //cambiar voz desde un doble click sobre la lista de narradores
local nGrid   := Main.List_1.Value 
local cName := aAvoice [ nGrid , 1 ]
Local oVoice
 /* oNarrator:voice   := oNarrator:GetVoices():Item( nGrid - 1)  // Fumciona
    oNarrator:Speak( "Narrador " + cName, SVSFlagsAsync )          */
  For Each oVoice In oNarrator:GetVoices()                       
     If (oVoice:GetDescription(0) == Main.List_1.item(Main.List_1.Value))
      oNarrator:voice := oVoice        
      oNarrator:Speak( "Narrador " + cName, SVSFlagsAsync ) 
     endif
  Next  

RETURN

Function Play() 
local  nStreamNumber , nStreamPosition , nCharacterPosition, nLength , ISpeechVoiceStatus
 oNarrator:EventInterests := SVEPhoneme
 
 oNarrator:Speak( Main.RichEdit_1.VALUE, SVSFlagsAsync)
 ISpeechVoiceStatus := oNarrator:Status  
      
      DO WHILE .not. ISpeechVoiceStatus:RunningState == SRSEDone 
               
               nCharacterPosition := ISpeechVoiceStatus:InputWordPosition
               nLength            := ISpeechVoiceStatus:InputWordLength
               Main.RichEditBox_1.CaretPos     := nCharacterPosition
               Main.RichEdit_1.SelectRange     := { nCharacterPosition, nLength }
               
      ENDDO
 
Return

    V.Speak "this is stream number<bookmark mark='2two'/> two.", SVSFlagsAsync + SVSFIsXML
    List1.AddItem "LastStreamNumberQueued is " & V.Status.LastStreamNumberQueued
    DoEvents

    Do
        V.WaitUntilDone (500) 'Wait for 0.5 second so we won't get too many outputs

        List1.AddItem ""
        List1.AddItem "LastStreamNumberQueued is " & V.Status.LastStreamNumberQueued
        List1.AddItem "CurrentStreamNumber is " & V.Status.CurrentStreamNumber
        List1.AddItem "InputSentenceLength is " & V.Status.InputSentenceLength
        List1.AddItem "InputSentencePosition is " & V.Status.InputSentencePosition
        List1.AddItem "InputWordLength is " & V.Status.InputWordLength
        List1.AddItem "InputWordPosition is " & V.Status.InputWordPosition
        List1.AddItem "RunningState is " & V.Status.RunningState
        List1.AddItem "LastBookmark is " & V.Status.LastBookmark
        List1.AddItem "LastBookmarkId is " & V.Status.LastBookmarkId
        List1.AddItem "VisemeId is " & V.Status.VisemeId
        List1.AddItem "PhonemeId is " & V.Status.PhonemeId
        List1.AddItem "LastHResult is " & V.Status.LastHResult
        DoEvents

    Loop Until V.Status.RunningState = SRSEDone 'Exit when voice stops

  oSpVoice:__hSink := __axRegisterHandler( oSpVoice:__hObj, { | a,b,c,d,e | OnEvent( a,b,c,d,e ) } )


FUNCTION OnEvent()
LOCAL iMax  := PCOUNT()
LOCAL i
LOCAL aPara := ARRAY(5)

   FOR i := 1 TO iMax
     aPara[i] := PValue( i ) ) )
   NEXT

   DO CASE
     CASE aPara[1] = 2
         OffSet := aPara[3]
         oSpVoice_Word(aPara[2],aPara[3],0, 0)
      CASE aPara[1] = 5
         oSpVoice_Word(aPara[2],aPara[3],aPara[4], aPara[5])
   ENDCASE
RETURN NIL

PROCEDURE oSpVoice_Word(StreamNumber, StreamPosition , CharacterPosition , Length )
   oGetText:SetSel({CharacterPosition , CharacterPosition + Length})
   oGetText:SetFocus()
   SYSRefresh()
RETURN