Schrift
[thread]6948[/thread]

Sound abspielen



<< >> 5 Einträge, 1 Seite
Froschpopo
 2005-05-02 23:24
#54463 #54463
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
wie kann ich in Perl eine WAVE-Datei abspielen lassen? Es sollte nach möglichkeit möglichst auf jedem Windows-Rechner funktionieren und das programm nicht behindern wenn es dann doch nicht möglich ist weil z.b. kein soundkartarten-treiber installiert ist.
Crian
 2005-05-03 01:29
#54464 #54464
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
Nutzt Dir dies was? Habs gerade durch Suchen gefunden:

http://search.cpan.org/~acalpini/Win32-Sound-0.45/Sound.pm\n\n

<!--EDIT|Crian|1115069423-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Froschpopo
 2005-05-03 03:44
#54465 #54465
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
jetzt hab ich aber ein problemchen....

ich nutze Tk. Wenn ich Win32::Sound::Play("gong.wav"); mache, dann schläft die GUI solange bis der Sound zuende abgespielt wurde. Danach gehts dann erst weiter.
Mit Threads kann ich aber auch nicht arbeiten, da Par diese nicht unterstützt.
forken kann ich unter Windows auch nicht, also muss irgendwas anderes her...

wenn ichs mit after(1,sub{}) versuche auszulagern, dann wartet er trotzdem...\n\n

<!--EDIT|Froschpopo|1115077618-->
Froschpopo
 2005-05-03 03:47
#54466 #54466
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
Ok mit after(100,...) klappts
zipster
 2005-05-03 11:50
#54467 #54467
User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]
könntest es auch in ne extra Perlscript machen das nur für Sound zuständig ist und es mit "start sound.pl gong.wav" aufrufen.
(Nur so ne Idee)
<< >> 5 Einträge, 1 Seite



View all threads created 2005-05-02 23:24.