Как воспроизвести следующий трек в плеере TWindowsMediaPlayer после окончания текущего?

Delphi , ОС и Железо , Windows

Пользователи, работающие с компонентом TWindowsMediaPlayer в среде разработки Delphi, нередко сталкиваются с задачей автоматического воспроизведения следующего трека после завершения текущего. В данной статье мы рассмотрим, как решить эту проблему, опираясь на примеры кода на Object Pascal, которые можно использовать непосредственно в проектах на Delphi.

Проблема с воспроизведением следующего трека

Разработчики, использующие TWindowsMediaPlayer, могут столкнуться с ситуацией, когда после завершения воспроизведения одного трека, плеер не воспроизводит следующий трек автоматически. Это может быть вызвано неправильной обработкой событий изменения состояния воспроизведения.

Пример кода, вызывающего проблему

В коде ниже показан пример обработчика события изменения состояния воспроизведения, где после завершения трека (wmppsMediaEnded) происходит попытка загрузки следующего трека, но воспроизведение не запускается:

procedure TMainWinForm.WMPlayer1PlayStateChange(Sender: TObject;
              NewState: Integer);
begin
  if (NewState = wmppsMediaEnded) then
    begin
      WMPlayer1.URL := FileScanner.SelectSong;
      writeln('Play triggered on ', String(WMPlayer1.URL));
      WMPlayer1.controls.Play;  // DOES NOT PLAY THE SONG!
    end;
end;

Описание альтернативного подхода

Один из способов, предложенных в качестве альтернативы, заключается в использовании свойства WMPlayer1.uiMode := 'none', а также в проверке, не помогает ли установка свойства WMPlayer1.settings.autoStart := True перед изменением URL. Однако, как отмечено в комментариях, эти методы не решают проблему.

Подтвержденное решение

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

procedure TMainWinForm.WMPlayer1OpenStateChange(Sender: TObject;
      NewState: Integer);
begin
  if NewState = wmposMediaOpen then
    begin
      WMPlayer1.controls.play;
    end;
end;

procedure TMainWinForm.WMPlayer1PlayStateChange(Sender: TObject;
      NewState: Integer);
begin
  if (NewState = wmppsStopped) and (SpecialPlayListMode) then
    begin
      WMPlayer1.URL := FileScanner.SelectSong;
    end;
end;

Выводы

Используя данный подход, разработчики могут обеспечить автоматическое воспроизведение следующего трека после завершения текущего в плеере TWindowsMediaPlayer. Это решение основано на асинхронной природе работы плеера и правильной обработке событий его состояния.

Обратите внимание, что, несмотря на решение, остается открытым вопрос о том, почему возможно изменение URL во время воспроизведения другого трека без каких-либо проблем. Это может быть связано с внутренними особенностями работы компонента TWindowsMediaPlayer.

Создано по материалам из источника по ссылке.

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::