Ermitteln ob Sound noch abgespielt wird

[mz23]

Liebe DP Gemeinde,

ich habe folgendes Problem, für das ich eine Lösung suche.

In meinem Programm gibt es einen Button, der beim Anklicken
eine WAV-Datei abspielt. Diese Datei ist etwas länger, und
so habe ich mir gedacht, daß es nett wäre, wenn sich beim
Anklicken die Caption des Buttons ändert, also aus
"Abspielen" wird "Abspielen Anhalten".

Bis dahin so gut, das ist mir alles klar.
Jetzt kommt aber das eigentliche Problem hinzu und zwar,
wenn die WAV-Datei abgespielt wurde, also fertig ist, steht
der Caption des Buttons weiterhin auf "Abspielen Anhalten".

Frage: Wie kann ich feststellen, ob z.B. die Datei "123.WAV"
noch abgespielt wird, oder schon fertig ist?

Ich verwende momentan folgenden Code dazu:

Delphi-Quellcode:

uses mmSystem;
var sdN : string;
...
sdN:='123.WAV';
sndPlaySound(PChar(sdN),SND_ASYNC);
...

Um das Abspielen anzuhalten, wenn man also den Button
erneut drückt, setze ich als WAV-Datei einen Namen ein,
den es nicht gibt, z.B: '123_.WAV', dann stoppt das,
wenn ich SND_ASYNC als Parameter verwende.

Als Lösung habe ich mir schon gedacht, daß ich vor dem
Abspielen aus der '123.WAV' Datei die Spiellänge ermittle
und dann nach Ablauf dieser Zeit den Button Caption
automatisch auf "Abspielen" zurücksetze, aber irgendwie
muß es doch eine elegantere Lösung geben?

Ich danke für Eure Geduld und verbleibe
mit freundlichen Grüßen aus Nürnberg,
Manfred Zenns

[lbccaleb]

Zitat:

Zitat von mz23

... aber irgendwie
muß es doch eine elegantere Lösung geben?

Ja spiele die wav-Datei mit Hilfe einer Sound Ausgabe Komponente ab, wie Direct Sound, DSPack, Audorra oder der Bass.dll

Da kannst du auch überall kontrollieren ob die Datei noch spielt oder nicht.

[patti]

Oder auch die TMediaPlayer-Komponente, die sollte nämlich bei Delphi schon dabei sein. Da sollte das OnNotify-Ereignis ausgelöst werden, sobald die Datei abgespielt wurde.

[mz23]

Vielen, vielen Dank für die Tipps!
Werde ich gleich ausprobieren.
MfG Manfred Zenns

[lbccaleb]

Wie es über Direct Sound geht, kannst du dir hier ansehen:

Direct Sound Player

[mz23]

Zitat:

Zitat von lbccaleb (Beitrag 1009822)

Wie es über Direct Sound geht, kannst du dir hier ansehen:

Direct Sound Player

Oh, vielen Dank, das löst bestimmt eine ganze Menge
Fragen, die ich in Bezug auf Hilfetexte abspielen in
einem Programm habe.

MfG, Manfred Zenns