Einzelnen Beitrag anzeigen

Benutzerbild von mcmichael
mcmichael

Registriert seit: 5. Jun 2008
Ort: Bremen
79 Beiträge
 
Delphi 10.1 Berlin Professional
 
#1

mciSendString - wie Ausgabe anhalten? /wie notify auswerten?

  Alt 5. Dez 2009, 18:11
Hallo Experten,

nachdem ich mir einiges nützliches Wissen aus diesen Forum angesammelt habe kann
ich nun gleichzeitig mehrere Audiodateien ausgeben und auch eine Benachrichtigung
einschalten wenn die Ausgabe beendet ist.


Delphi-Quellcode:
SendMCICommand('open waveaudio shareable');
SendMCICommand('open "b.mp3"');
SendMCICommand('play "b.mp3" notify');
SendMCICommand('open "a.wav"');
SendMCICommand('play "a.wav" notify');
Benachrichtigung:
Delphi-Quellcode:
procedure TForm1.MMNotify(var Message: TMessage);
begin
ListBox1.Items.Add('Fertig um '+TimeToStr(now));
end;
Die Benachrichtigung klappt. Aber wie stelle ich fest, welche
der vielen Audiodateien nun gerade beendet wurde?


Anhalten:
SendMCICommand('stop "b.mp3"'); hiermit kann ich explizit die Ausgabe von b.mp3 anhalten.
Aber wie kann ich einfach alle derzeit ausgegebenen Audiodateien anhalten?
Bei Beendigung des Programms werden alle angehalten.
Stop oder Close funktionieren m.E. nur mit Nennung einer expliziten Datei
oder Aliasnamen der sich auf eine Datei bezieht...

Hat jemand eine Idee?
  Mit Zitat antworten Zitat