13 replies to this topic

[wakillon]

TinyClipToSpeech v 1.0.0.9

Read Clipboard Text Content using Sapi Voice




Access to all commands by Tray menu.

If you doesn't have Sapi5 installed, script ask for download it.
I know there is already some Text to speech scripts,
but i wanted an easy access ( clipboard content and tray menu )
and the possibility to change voice and settings while reading.
Text can be displayed on desktop gradually as what is read.
You can also save text to mp3 without need of read it.
My preference goes to Scansoft voices, easy to found and install and with a good pronunciation qualty.

As usual, some externals files are downloaded at first execution.

Previous download : 112

Update of 2012-07-01

 TinyClipToSpeech v 1.0.0.9.au3   27.8K   249 downloads

Scripts and executables with full embeded files are available on GoogleCode ( link is in my signature. )

Tested on XP, Vista and Seven 32 bit.
Hope you like it !

Edited by wakillon, 01 July 2012 - 04:15 PM.

[Mikeman27294]

Nice little script, well done.

[wakillon]

Nice little script, well done.

Thanks, glad you like it

[joseLB]

Hi wakillon,
Do you know if there is portuguese from Brazil on this sapi5 or Scansoft voices of wherever?
Thanks
Jose

[wakillon]

Hi wakillon,
Do you know if there is portuguese from Brazil on this sapi5 or Scansoft voices of wherever?
Thanks
Jose

Hi joseLB

Yes, there is one named "NextUp-ScanSoft Raquel Brazilian Portuguese Voice.msi"
You can find it easily

[wakillon]

Updated

Added my own Sapi5 Voice installer for Xp users who don't have it installed.

[joseLB]

Hi wakilon,
#Include <WinAPIEx.au3> and #Include <APIConstants.au3> where not found on my includes file. It´s a new version of au3 that I need?
Thanks again,
Jose

[wakillon]

Hi wakilon,
#Include <WinAPIEx.au3> and #Include <APIConstants.au3> where not found on my includes file. It´s a new version of au3 that I need?
Thanks again,
Jose

Hi joselB

Download the WinAPIEx UDF of Yashield and copy all the files in your include dir

[joseLB]

Hi Wakillon
My PC is speaking in portuguese Great! Thanks for sharing!
It´s win7, 64 bits...

I have some extra questions/points:
1- at start, your program tries to write in registry. Do you know why? I didn´t allow but it worked OK.
2- option "open ...panel" opens no window
3- you told "...and the possibility to change voice and settings while reading ...". I too. There are any "commands" whe can insert at text to control speech?

I found Loquendo at least in protuguese has a much better speech. Probably in other languages too, it´s more natural.
If you want, give a try live at http://www.oddcast.com/home/demos/tts/tts_example.php?sitepal

Do you believe that your program would work with Loquendo?
Thanks
Jose

Edited by joseLB, 05 February 2013 - 11:33 PM.

[wakillon]

HI joseLB

RegWrite with EnableBalloonTips key is for enable traytip display.
It seems the reg key i use for get sapi.cpl path doesn't exists on x64, so you can replace _OpenSpeechProperties function by this one :

Func _OpenSpeechProperties ( )    
    TrayItemSetState ( $_SpeechItem, $TRAY_UNCHECKED )
    Local $_SapiCplPath = RegRead ( 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Control Panel\Cpls', 'Speech' )
    If FileExists ( $_SapiCplPath ) Then
        ShellExecute ( $_SapiCplPath )
        Return
    EndIf
    If StringInStr ( @OSArch, 64 ) Then ShellExecute ( @WindowsDir & '\SysWOW64\Speech\SpeechUX\sapi.cpl' )
EndFunc ;==> _OpenSpeechProperties ( )

i have tried text to speech of oddcast.com and the Loquendo Démo TTS Interactive and you are right, voices ( french for me ) are better.
But oddcast is based on Flash and Loquendo returns wav files, so no chances to get it working with my script !

Thanks.

Edited by wakillon, 06 February 2013 - 08:34 PM.

[joseLB]

Thanks wakillon!

[joseLB]

Hi wakillon

I´m starting to use your code... it´s a great contribution, thanks
But as always, we need something else...

Do you know how I can know when it finish the talk? I mean, I don´t want to sotp waiting it to finish, but from time to time "ask" if it finished the talk?

second, what about to do an UDF with these functions?
Thanks
Jose

[wakillon]

Do you know how I can know when it finish the talk? I mean, I don´t want to stop waiting it to finish, but from time to time "ask" if it finished the talk?

second, what about to do an UDF with these functions?

Hi joseLB

You can do like this for ask if it finished to talk.

If $ospeech.Status.RunningState = $SRSEIsSpeaking Then
    ; is talking
Else
    ; is not talking
EndIf

And If i remember well there is already several Udf for sapi voice !

[joseLB]

thanks wakillon !
Jose

Edited by joseLB, 17 March 2013 - 04:07 AM.