Other suggestions:

• Try to see if you can glean anything from print Dumper($winmm);
• Take a look at the source code.
• Super Search for other examples of Win32::MediaPlayer usage.

Looking at the source of the module, it sets: $self->{play} = 0; in new().

And it issues the warning you are seeing from ->length() in line 58:

warn 'No File Loaded' if($self->{play}==0);
[download]

and ->volume() in line 44:

warn 'No File Loaded' if($self->{play}==0);
[download]

But ->load(), successful or not, doesn't set that variable:

sub load {
my $self = shift;
my $file = shift;
$result = doMM("open \"$file\" type mpegvideo alias ".$self->{alias});
return $result;
}
[download]

Only ->play() does:

sub play {
my $self = shift;
my $pos = shift || $self->{pos};
$self->{play} = 1;
$result = doMM("play ".$self->{alias}." from $pos");
return $result;
}
[download]

And it sets it regardless of whether the attempt to play the file was successful or not.

This doesn't help you fix your program, but it -- along with the lack of indentation and other clues in the source code; the age of the bug reports on RT; -- may give you an indication of the quality of this module and your chances of solving the problem.

I've not used Win32::MediaPlayer, but Win32::Sound seems to work for me, it may be worth a try.

I would try using the older wheel Win32::MCI::Basic / Win32::MCI::CD , it comes with mciGetErrorString

site:perlmonks.org Win32::MCI -> Get CDDB info on Win32

update: And it works on WinXP :)

#!/usr/bin/perl --
use strict; use warnings;
use Win32::MCI::Basic;

Main( @ARGV );
exit( 0 );

sub Main {
    my $sFileName = shift or die "Usage: $0  C:\media\sh-boom.mp3 \n";
    
    Shabba( qq{open "$sFileName" alias MediaFile } ); # OK!
## http://msdn.microsoft.com/en-us/library/ms709461%28v=VS.85%29.aspx#
+ MCI
    
    my $length = Shabba( qq{status MediaFile length } );
    
    Shabba( qq{play MediaFile from 0 } );
    
    my $position = Shabba( qq{status MediaFile position} );
    
    while ( $position < $length ){
        sleep 1;
        $position = Shabba( qq{status MediaFile position} );
    }
    
    Shabba( qq{close MediaFile } );
}

sub Shabba {
    my $lpszCommand = shift;
    my ( $APICallReturnValue, $lpszReturnString ) = mciSendString($lps
+zCommand);
    my $lpszErrorText = mciGetErrorString( $APICallReturnValue );
    no warnings 'uninitialized';
    print "
\$lpszCommand        : $lpszCommand 
\$APICallReturnValue : $APICallReturnValue
\$lpszReturnString   : $lpszReturnString 
\$lpszErrorText      : $lpszErrorText 
----
";
    return $lpszReturnString ;
}
__END__
[download]

update: Win32::MediaPlayer has $mciSendString = new Win32::API( "winmm", "mciSendString", ['P', 'P', 'N', 'N'], 'N' )

Where as Win32::MCI::Basic has  new Win32::API('winmm',    'mciSendString',    ['P','P','I','P'],    'N');

Sometimes old wheels are better :)

The log output is something like

Read more... (1375 Bytes)