После завершения воспроизведения файла иногда бывает нужно воспроизвести его снова не ограниченное количество раз. Сделать, так называемое, циклическое воспроизведение.
С помощью набора компонентов PasLibVLC это легко реализуется с помощью события OnMediaPlayerEndReached компонента TPasLibVlcPlayer. Это событие возникает, когда TPasLibVlcPlayer завершает воспроизведение файла.
Всё что нужно сделать для организации циклического воспроизведения – это в обработчике данного события снова запустить воспроизведение файла.
1 2 3 4 |
procedure TForm1.PlayerMediaPlayerEndReached(Sender: TObject); begin Player.Play('test.mp4'); end; |
Если необходимо реализовать возможность отключения режима циклического воспроизведения, то достаточно объявить переменную логического типа и выполнять запуск повторного воспроизведения в зависимости от её значения.
1 2 3 4 5 |
procedure TForm1.PlayerMediaPlayerEndReached(Sender: TObject); begin if Cycle = true then Player.Play('test.mp4'); end; |
Добавить комментарий