Speech from textbox

[codeman]

Hi , how to make speech from a textbox ?


Im using this code

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
    SpVoice: Variant;
begin
    SpVoice := CreateOleObject('SAPI.SpVoice');
    SpVoice.Speak('bla bla', 0);
end;


[avra]

I guess your code is from here:
http://www.lazarus.freepascal.org/index.php/topic,3603.msg16903.html#msg16903

You can take a look at these posts:
http://www.lazarus.freepascal.org/index.php/topic,13401.msg70299.html#msg70299
http://stackoverflow.com/questions/3032739/delphi-sapi-text-to-speech
http://stackoverflow.com/questions/207653/text-to-speech-in-vista

You can also call espeak from the command line which would proabably be most cross platform and many languages friendly solution. I think I have seen somewhere a simple example for Lazarus but I could not find it now. This one is with different feature (creates WAV), but I am sure you can adapt it after studying espeak command line switches:
http://www.delphipages.com/forum/showthread.php?t=208598
http://espeak.sourceforge.net/commands.html

EDIT: I didn't find a simple one I was looking for, but here is another espeak example:
http://www.rolfware.de/delphi/espeak_example.html

[codeman]

Thanks a lot .. i will take a look on those

[Boleeman]

Came across an interesting typescript speech synthesizer source (which would probably drive someone crazy if used too often) at
https://github.com/chdh/pink-trombone-mod

A demonstration webpage showing it working is here:  https://chdh.github.io/pink-trombone-mod

[jamie]

I know I posted this before: