Прерывание синхронного воспроизведения звука.

[min@y™]

Кратко: есть простейший тред, внутри которого вызывается проигрывание звука из ресурса с помощью API- функции sndPlaySound(). Сам тред создаётся по тыку на кнопке "Start".
Задачи:
1) возможность остановить воспроизведение звука по тыку на кнопку "стоп";
2) если воспроизведение не прерывалось, корректно завершить тред, выйти из Execute() и вызвать тем самым событие OnTerminate.

Проблема: ни синхронное, ни асинхронное воспроизведение здесь оказалось неприменимо, т.к. при синхронном прервать исполнение цикла треда не получится, пока функция не проиграет звук полностью, а при асинхронном я не знаю, закончилось воспроизведение или нет, чтобы корректно выйти из цикла внутри Execute().

{$REGION 'TWaveResourcePlayer'}
{ TWaveResourcePlayer }

constructor TWaveResourcePlayer.Create(const AResourceName: string);
begin
  inherited Create(True);
  FID:= Pointer(WAVERESOURCE_PLAYER_TAG); // по умолчанию
  FResourceName:= AResourceName;
end;

destructor TWaveResourcePlayer.Destroy;
begin
  Stop();
  inherited;
end;

procedure TWaveResourcePlayer.Execute;
begin
  Play();
  try
    // цикл треда
    repeat
      Sleep(50);
      // при асинхронном воспроизведении неизвестен момент окончания
    until Terminated;
  finally
    Stop();
  end;
end;

procedure TWaveResourcePlayer.Play;
begin
  PlaySound(PChar(FResourceName), hInstance, SND_RESOURCE or SND_SYNC); // SND_ASYNC ?
end;

procedure TWaveResourcePlayer.Stop;
begin
  PlaySound(nil, 0, 0);
end;

{$ENDREGION}

Решения, основанные на других функциях и прочих bass.dll и т.п. не предлагайте, ибо я про них знаю. Исключение - mciSendString(), но, мне надо воспроизводить звук, в том числе, и из памяти и/или из ресурса и вроде бы эта функция работает только с файлами/устройствами.

Что скажете, господа?

[come-on]

решение с медиа плеером не подойдет?
http://codeverge.com/embarcadero.del...-files/1059748

иначе думаю что надо узнаваьт длительность и в каком то таймере проверять не закончилось ли еще проигрывание.

[Stilet]

Я может и не к месту, но думается мне что стоит обратить внимание на https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx и иже с ней?

[min@y™]

решение с медиа плеером не подойдет?
http://codeverge.com/embarcadero.del...-files/1059748

Теоретически, естественно, да. Но по условию задачи - нет.

иначе думаю что надо узнаваьт длительность и в каком то таймере проверять не закончилось ли еще проигрывание.

Да, это вариант. Квинтэссенция: где взять функцию

function GetMediaResourceDuration(const resname: string): double;

чтобы не писать её самому? Звук в программе - подзадача не приоритетная, поэтому влом напрягаться. Мож есть у кого чо?

[min@y™]

Я может и не к месту, но думается мне что стоит обратить внимание на https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx и иже с ней?

слишком круто для воспроизведения звука дверного звонка по кнопке. Необходим вариант сильно проще.

[DIONISKA]

Почему-бы не воспроизводить асинхронно, а в потоке просто ждать завершения проигрывания трэка?
предполагаю таким образом:
1) считывать ресурс с трэком в memorystream;
2) из него читать wave-заголовок и рассчитывать приблизительное время;
3) запустить асинхронное воспроизведение из того-же memorystream;
4) отсчитывать в цикле потока ранее рассчитанное время, периодически проверяя свойство "terminated" потока;
5) по завершению таймера/необходимости завершению потока корректно его завершить;
вот примерно так. единственный минус - это погрешность в отсчёте времени, но тут думаю это не так критично.

[min@y™]

Почему-бы не воспроизводить асинхронно, а в потоке просто ждать завершения проигрывания трэка?
предполагаю таким образом:
1) считывать ресурс с трэком в memorystream;
2) из него читать wave-заголовок и рассчитывать приблизительное время;
3) запустить асинхронное воспроизведение из того-же memorystream;
4) отсчитывать в цикле потока ранее рассчитанное время, периодически проверяя свойство "terminated" потока;
5) по завершению таймера/необходимости завершению потока корректно его завершить;
вот примерно так. единственный минус - это погрешность в отсчёте времени, но тут думаю это не так критично.

Спасибо.
Я уже так и сделал.
Могу предъявить кусок исходника.

[min@y™]

Вот эдакая хренотень: видеоскриншот.

[Filka]

----------

[zvygin1964]

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

ts.rar (196.7 Кб, 1 просмотров)
.

Ну у меня всё как обычно: при нажатии на F9 " [Fatal Error] sm.dpr(5): File not found: 'Vcl.Forms.dcu' "

Сообщение от min@y™

видеоскриншот

,- Красотища !