Как заставить TMediaPlayer проигрывать одно и тоже бесконечно (AVI например)

Delphi , Мультимедиа , Видео

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with MediaPlayer1 do
    if NotifyValue = nvSuccessful then
    begin
      Notify := True;
      Play;
    end;
end;

Передать медиаплеер для бесконечного воспроизведения AVI-файла можно с помощью цикла, повторно вызывая метод Play. Однако, это может быть неэффективным решением, так как оно будет потреблять значительные ресурсы CPU.

Более элегантное решение - установить свойство Loop компонента TMediaPlayer в True. Это заставит игрок вернуться к началу файла после достижения конца.

Вот обновленная версия вашего кода:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.Looping := True; // Установка свойства Looping в True
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with MediaPlayer1 do
    if NotifyValue = nvEndOfStream then
      Play; // Перезапустить файл, когда он достигнет конца
end;

В этом коде мы устанавливаем свойство Looping в True в обработчик события FormCreate. Это говорит игроку вернуться к началу файла после достижения конца.

Также обновляем обработчик события MediaPlayer1Notify, чтобы перезапустить файл, когда он достигнет конца потока (nvEndOfStream уведомление). Это обеспечивает бесконечное воспроизведение файла.

Обратите внимание, что вам может потребоваться добавить ошибку обрабатывания для случаев, когда файл не может быть проигран или поврежден.

Автор статьи предлагает решение для бесконечного воспроизведения одного и того же видеофайла (например, AVI) в приложении с помощью компонента TMediaPlayer.

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

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

:: Главная :: Видео ::