Wie spiele ich Musik-Dateien (.mp3,.wav,.wma) auf Windows ab?

Lösung

    use Win32::MediaPlayer;


    # erstelle eines neues objekt
    my $winmm = new Win32::MediaPlayer;  


    # Lade die Datei
    $winmm->load('d:/10.mp3');    


    # Spiel die Musik ab
    $winmm->play;

Zusatz

use strict;
use warnings;

use Tk;
use Win32::MediaPlayer;


my $mw   = MainWindow-> new ();


# erstelle eines neues objekt
my $winmm = new Win32::MediaPlayer;  


# Lade die Datei
$winmm->load('Track No10.wma');    


# Spiel die Musik ab
$winmm->play;
    
$mw-> Button (-text => 'Pause', -command => sub {$winmm-> pause ();})-> pack ();
$mw-> Button (-text => 'Weiter', -command => sub {$winmm-> resume ();})-> pack ();

MainLoop ();

Ergänzungen, Kommentare

---### Main.??? - 14 Jul 2003 - Betreff