Folks, This Perl grasshopper finally went back and looked over my code and SAPI5 documentation. In three hours I was able to hack the following. It is a (crappy) but functional Windoze SAPI5 speech recognition script. It will do for today. Have fun! If using Vista, be sure and plug in a mic before starting voice recognition, otherwise it will not start. 

#!/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(@_);
    }
}

sub  OnRecognition {
    my($self, $Event, $StreamNumber, $StreamPosition, $RecognitionType
+, $Result) = @_;
    my $newResult = $self->Invoke('Dispatch', $Result);
    print $Result->PhraseInfo->GetText() . "\n";;
}

[download]

In reply to Re^2: Speech Recognition with SAPI5 by snake_mountain
in thread Speech Recognition with SAPI5 by johnnywang

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.