Hi,
Octavian Rasnita wrote:
Hi,
I have tried the following script under Windows 2000 (probably SAPI 4), but
it doesn't speak anything.
Can you give me the right code?
Thank you much.
Teddy
use strict;
use Win32::OLE;
my $voice = Win32::OLE->new("Speech.VoiceText");
$voice->Register('', 'Perl');
$voice->speak("hello world");
<STDIN>; # wait til it finishes speaking
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Take a look at
http://opensource.activestate.com/authors/jandubois/Perl/TPC3/fun.html#Can_I_access_COM_OLE_objects_f
and
http://www.archivum.info/perl-win32-users@listserv.activestate.com/2005-06/msg00126.html
regards,
Reinhard
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
