ClipTalk

[James]

Lol, its ok Cyber, advertise EVERYTHING.. BE MY GUEST. hehe..

i543, drop it, its CHAT FORUM.

[i542]

Lol, its ok Cyber, advertise EVERYTHING.. BE MY GUEST. hehe..

i543, drop it, its CHAT FORUM.

But it is always better to post in a existing thread than making a new one

[ConsultingJoe]

wow, cool your jets guys, sorry to cause all the cammotion.

Did you know that you can also use tags in the speech?

http://msdn.microsoft.com/library/default....TS_Tutorial.asp

and you can save the speech to a file like this:

;By: SolidSnake
_SpeakToWAV("hello",@ScriptDir&"\TEST.wav")

Func _SpeakToWAV($sText,$sFile)
    $ObjVoice=ObjCreate("Sapi.SpVoice")
    $ObjFile=ObjCreate("SAPI.SpFileStream.1")
    $objFile.Open($sFile,3)
    $objVoice.AudioOutputStream = $objFile
    $objVoice.Speak ($sText)
EndFunc

Edited June 15, 2007 by CyberZeroCool

[James]

That's cool..

I knew you could save spoken text to a .wav file thanks to SolidSnake.

[i542]

cool

[zfisherdrums]

Great find. I'm going to implement this into LazyReader with creds to all y'all!

Edited June 16, 2007 by zfisherdrums

[zfisherdrums]

Added functions to Pause and Resume.

expandcollapse popup

#include <Misc.au3>

HotKeySet("^t", "_Talk")
HotKeySet("^e", "_Exit")
HotKeySet("^+{PAUSE}", "_Pause")
HotKeySet("^r", "_Resume")
HotKeySet("^s", "_Stop")

Global $voice = ObjCreate("Sapi.SpVoice")

Local $Talk = 0

While 1
    Sleep(100)
WEnd

Func _Talk()
    $Clip = ClipGet()
    Do
        Speak($Clip, 0, 100)
        $Talk = 1
    Until $Talk = 1 Or _IsPressed(12) & _IsPressed(53)
EndFunc   ;==>_Talk

Func _Stop()
    $voice = ObjCreate("Sapi.SpVoice")
EndFunc 

Func _Pause()
    $voice.Pause
EndFunc

Func _Resume()
    $voice.Resume()
Endfunc

Func Speak($text, $Rate, $Volme)
    Local Const $SVSFlagsAsync = 1
    If IsObj($voice) Then
        $voice.Voice = $voice.GetVoices("Name=Microsoft Sam", "Language=409").Item(0)
        $voice.Rate = $Rate
        $voice.Volume = $Volme
        $voice.Speak ($text, $SVSFlagsAsync)        
    EndIf
EndFunc   ;==>Speak

Func _Exit()
    Exit
EndFunc   ;==>_Exit

Edited June 16, 2007 by zfisherdrums

[i542]

thats great

[James]

Cool, thanks zfisherdrums

[James]

By the way, do any of you know how you can find the different voices currently installed on the system?

[zfisherdrums]

Cool, thanks zfisherdrums

Hey, I know I mentioned that my script was meant as more of a joke/commentary on the marketing of useless software - but could I use part of your script in my re-write of LazyReader? I would of course credit you, CyberZeroCool, i542, SolidSnake, et al.

[James]

Yeah sure. Anytime.

[i542]

By the way, do any of you know how you can find the different voices currently installed on the system?

Look at my very first (or it was second ) topic here and gafrosts answer here.

It uses

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler

_TalkOBJ('This is auto it beta speaking.', 1)
_TalkOBJ('This is auto it beta speaking.', 2)
_TalkOBJ('This is auto it beta speaking.', 3)

;voice params:
;
;1 - Microsoft Mary
;1 - Microsoft Sam
;3 - Microsoft Mike

Func _TalkOBJ($s_text, $s_voice = 3)
    Local $o_speech = ObjCreate ("SAPI.SpVoice")
        Select
            Case $s_voice == 1
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mary", "Language=409").Item(0)
            Case $s_voice == 2
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mike", "Language=409").Item(0)
            Case $s_voice == 3
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Sam", "Language=409").Item(0)
        EndSelect
    $o_speech.Speak ($s_text)
    $o_speech = ""
EndFunc  ;==>_TalkOBJ

; This is my custom error handler
Func MyErrFunc()
   $HexNumber=hex($oMyError.number,8)
   Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
               "Number is: " & $HexNumber & @CRLF & _
               "Windescription is: " & $oMyError.windescription )

   SetError(1); something to check for when this function returns
Endfunc

Hey, I know I mentioned that my script was meant as more of a joke/commentary on the marketing of useless software - but could I use part of your script in my re-write of LazyReader? I would of course credit you, CyberZeroCool, i542, SolidSnake, et al.

no problems at all Edited June 16, 2007 by i542

[James]

No, I mean is there away to determine what voices have been installed. That just lets you pick a voice.

[i542]

No, I mean is there away to determine what voices have been installed. That just lets you pick a voice.

AFAIK, no

[James]

Time to look in the registry.

[Skrip]

What happends if you copy an image?

[James]

Yeah, I'm gonna need to make an error function to determine that.

Edit: Dont need to. It doesnt do anything when an image is in the clipboard.

Edited June 16, 2007 by Secure_ICT

[lordofthestrings]

dear SecureICT:

$objVoice = ObjCreate("SAPI.SpVoice")

For $strVoice in $objVoice.GetVoices
    msgbox(0, "", $strVoice.GetDescription, 10)
Next

[James]

Well, I could Return the values and then Array them. I needed to put them in a Combo Box.