Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

17th
Июн

Проиграть wav

Posted by obzor under Delphi

Как мне проигрывать wav так, чтоб можно было контролировать воспроизведение. Собственно нужно только PLAY и STOP.

Kashp

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

Play:

Код:

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

Stop:

Код:

 MediaPlayer1.Stop;

Altera

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

Kashp

По таймеру:

Код:

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;