PurESpeak, an ESpeak wrapper

[erion]

Hi all,

I have finished creating a wrapper for ESpeak, a free and open source speech synthesizer.
Features include speak on a selected audio device, into a wave file, or even a PureBasic sound object. Change speed, volume, pitch, word gap, voice, add variants.
Info and the download link: http://erion.tdrealms.com/software/pb/purespeak

Sample:

Code: Select all

 initspeak(".") ;Initialize ESpeak. Use a full datapath, or . for current directory.
 speaktext("Hello, world! This is ESpeak from PureBasic!") ;speak some text. 2nd parameter can be path/filename.
delay(5000) ;wait 5 secs
closeSpeak() ;free up resources

Audio works the same way, except 'SpeakMemory' returns a pointer that you can use to catch the sound from. Remember to free up this memory block afterwards.

Cheers,
Erion

[electrochrisso]

, Thanks for sharing.

[Kwai chang caine]

Thanks works good !!

[SFSxOI]

Good job.

How do you set the voice to female?

[erion]

Thanks everyone.
Voice switching works by specifying the language+variant. So, for instance switching to the first female english voice you would say

Code: Select all

SetVoiceName("en+f1")

, before calling SpeakText.

Erion

[rsts]

Very nice

Thanks for sharing.

[SFSxOI]

Thanks everyone.
Voice switching works by specifying the language+variant. So, for instance switching to the first female english voice you would say

Code: Select all

SetVoiceName("en+f1")

, before calling SpeakText.

Erion

Ahhh, ok. Thanks.

[dige]

Wow, sounds good even with the German language!

SetVoiceName("de+m1")

Thx erion!

[erion]

It seems I have a small problem. I'm trying to implement a stop procedure, but the program completely hangs at waveOutReset_(). I suspect this is an API level freeze, and despite the many topics about this on the internet I did not manage to find a definite answer. Does anyone know why this is happening? This is the Stop code:

Code: Select all

Procedure Stop()
    eSpeak_cancel()
waveOutPause_(hDevice)
waveOutReset_(hDevice) ;Hangs here
EndProcedure

Erion