mciSend-Musik in der Schleife

Joachim Roth

Derzeit experimentiere ich mal wieder mit der MCISend Funktion von XProfan. Eine MP3 Datei soll in der Schleife abgespielt werden. Da während des Abspielens das Programm weiter abarbeitet, muss vor dem nächsten PLAY Befehl zunächst gewartet (geprüft) werden, ob die Datei noch spielt, sonst funktioniert die Schleife nicht. Das geht mit zwei unterschiedlichen Methoden: While/EndWhile Schleife nebst Statusprüfung oder per Play 'song' Wait Befehl direkt via MCISend (siehe Code unten).

Problem bei dieser Sache: Dieser Vorgang lässt sich nicht unterbrechen! Gibt es hier eine elegante Variante, die das trotzdem erlaubt?

Code

Declare sound$, i&, loop&

WindowTitle "MP3 - Musik in der Schleife"
Window 20,20-600,400
Cls

sound$ ="sound.mp3"


'Möglichkeit 1 per WhileNot/EndWhile Schleife
loop& = 3
i& = 0

While i& < 3
   
   'Laden und abspielen
   Print MciSend$("open \q" + sound$ +"\q type mpegvideo alias mysong")
   MciSend$("play mysong")

  'Warten bis Sound abgespielt ist
   WhileNot MciSend$("status mysong mode") = "stopped"
   Endwhile
 
   i& = i& + 1
   MciSend$("close mysong") 
Endwhile
MciSend$("close mysong") 
WaitInput


'Möglichkeit 1 per MCISEND wait - Flag
Print "fertig"
i& = 0
While i& < 3
   
   'Laden und abspielen
   Print MciSend$("open \q" + sound$ +"\q type mpegvideo alias mysong")
   MciSend$("play mysong wait")
   i& = i& + 1
   MciSend$("close mysong") 

Endwhile


MciSend$("close mysong") 

End

Alles anzeigen

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

H.Brill

Die Pause und der Resume - Befehle gibt es ja auch.

Ich habe es jetzt mal so gemacht :

Code

Cls

Declare sound$, status%, ende%
ende% = 0
sound$ ="sound.mp3"
Locate 1,1
Print "ESC zum Beenden... 0 = Pause           1 = Resume...."
MciSend$("open \q" + sound$ +"\q type mpegvideo alias mysong")
MciSend$("play mysong")
WhileNot ende%
    waitkey
    If %Key = 27
       ende% = 1
    ElseIf %Key  = 48
        status% = 0
        MciSend$("pause mysong")
    ElseIf %Key = 49
        status% = 1
        MciSend$("resume mysong")
    EndIf
Endwhile
MciSend$("close mysong")
End

Alles anzeigen

Ich hätte zwar gerne die Pause-Taste gehabt, aber %Key scheint diesen virt. Tastencode

nicht zu kennen. Deshalb die 0 und die 1.

Natürlich kann man auch noch ein status% = 1 / 0 setzen, um den Status zu setzen

bzw. abzufragen. Ist im Code schon drin.

Schau mal, ob es bei dir auch so funktioniert, bzw. hast du das gemeint ?

Joachim Roth

Vielen Dank.

Die play/stop/pause/resume/ Funktionen sind nicht das eigentliche Problem, sondern der Kniff besteht darin, die Datei z.B. 2 o. 3 mal hintereinander abgespielt zu bekommen ohne zusätzlichen Eingriff ins Geschehen. Das geht auch (s.o.), jedoch kann ich dann das ganze nicht mehr stoppen, weil ich in einer Schleife hänge.

H.Brill

Vielleicht geht sowas auch, wenn man den Sound in einem Prozess (Multiprozessing)

abspielt. Den Prozess (pExec) könnte man ja auch mit Process("Suspend", Pid%),

Process("Resume", Pid%) und Process("Kill", Pid%) steuern. Oder auch über eine

Filemap mit dem Prozess kommunizieren. Da das Abspielen wahrscheinlich in einem

nochmals eigenen Prozess läuft, könnte man eine Bereichsvariable im Hauptprogramm

mit einem Wert bestücken und im Prozess auswerten und dann je nach Wert die Befehle

MciSend$("pause mysong") und MciSend$("resume mysong") entsprechend

ausführen.

mciSend-Musik in der Schleife

Abifiz 9. März 2023 um 17:40

Jetzt mitmachen!

Tags