TinyClipToSpeech v 1.0.0.9 Update of 2012-07-01

[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 downloads : 199

Update of 2012-07-01

Source : TinyClipToSpeech v 1.0.0.9.au3

Executable : TinyClipToSpeech.exe.html

(Once this html file downloaded, double click on it for start the download)

Hope you like it !

Edited October 11, 2014 by wakillon

[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 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 February 5, 2013 by joseLB

[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 February 6, 2013 by wakillon

[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 March 17, 2013 by joseLB