Проиграть wav

[Altera]

Привет всем!
Как мне проигрывать wav так, чтоб можно было контролировать воспроизведение. Собственно нужно только PLAY и STOP.
Я знаю, что код будит не маленький, поэтому киньте его как pas файл во вложение. Или дайте ссылку туда, где это хорошо обясняеться.

з.ы. Прошу простить, если такая тема уже была.

[Kashp]

Сообщение от Altera

Привет всем!
Как мне проигрывать wav так, чтоб можно было контролировать воспроизведение. Собственно нужно только PLAY и STOP.
Я знаю, что код будит не маленький, поэтому киньте его как pas файл во вложение. Или дайте ссылку туда, где это хорошо обясняеться.

з.ы. Прошу простить, если такая тема уже была.

Ну так разве TMediaPlayer не подходит?

Play:

begin
 MediaPlayer1.FileName:='sound.wav';
 MediaPlayer1.Open;
 MediaPlayer.Play
end;

Stop:

 MediaPlayer1.Stop;

[Altera]

А как узнать, что воспроизведение окончено?

[Kashp]

Сообщение от Altera

А как узнать, что воспроизведение окончено?

По таймеру:

if MediaPlayer1.Position=MediaPlayer1.Length then
.......   // твой код

[Gorychev]

TMediaPlayer.OnNotify вызывается при любых событиях медиаплеера (пауза, остановка и т.д).
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with Sender as TMediaPlayer do
if NotifyValue = nvSuccessful
then ShowMessage('Воспроизведение окончено!');
end;