Greetings,

Ive been a member some years but never posted until now. I'm an admitted terrible Perl coder. So please be gentle.

I've read the MS SAPI documentation and have tested the python version with success but still haven't got a Perl version to work. Being weak with Oops, I blindly hacked what I think is on the right track. I blended two non-functional code solutions to this problem, one from the Python Cokbook and the other from Jorke Visser of pvoice. I've sent Jorke a copy at his request but never heard back.

Could some Monk take mercy on this lost soul and help me interpret these events? I believe event 7 points to a set of probable word or phrase matches.

Thanks.

#!/usr/bin/perl
use strict;
use warnings;
use Win32::OLE qw( EVENTS );
use Win32::SAPI5;

use constant SGDSActive   => 1;
use constant SREAllEvents => 393215;
use constant SpSharedRecoContext => "{47206204-5ECA-11D2-960F-00C04F8E
+E628}";

my $speaker = Win32::SAPI5::SpVoice->new() 
        or die "      \$^E => $^E\nLastError => ".Win32::OLE->LastErro
+r() ;
$speaker->speak("Hello");

my $context  = Win32::OLE->new(SpSharedRecoContext) || die "Can't star
+t OLE: ".Win32::OLE->LastError;

$context->SetProperty('EventInterests', SREAllEvents);

Win32::OLE->WithEvents( $context, \&ProcessEvents,  "{7B8FCB42-0E9D-4F
+00-A048-7B04D6179D3D}" );  ## Works

my $grammar = $context->CreateGrammar(1);
$grammar->DictationLoad();
$grammar->DictationSetState(SGDSActive);

while( 1 ) {
   Win32::OLE->SpinMessageLoop();
   Win32::Sleep( 10 );
}

sub ProcessEvents {
  my( $Obj, $Event, @Args ) = @_;
    if ($Event == 7) {
        \&OnRecognition(@_);
    }
    if ($Event == 8) {
        \&OnRecognition(@_);
    }
}

sub  OnRecognition {
    print("Inside = @_\n");
    my($self, $Event, $StreamNumber, $StreamPosition, $RecognitionType
+, $Result) = @_;
    my $newResult = $self->Invoke('Dispatch', $Result);
    # print "\$newResult = $newResult\n\n}";
}
[download]

20070730 Janitored by Corion: Fixed code tags, as per Writeup Formatting Tips