Проигрывать MPEG файл в Delphi-программе

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

Если в системе Windows MMSystem установлен декодер MPEG - используя компонент TMediaPlayer

procedure TForm1.Button1Click(Sender: TObject);
begin
  with MediaPlayer1 do
  begin
    Filename := 'C:\Download\delphiworld.mpg';
    Open;
    Display := Panel1;
    DisplayRect := Panel1.ClientRect;
    Play;
  end;
end;

Программист и его жена: забавный разговор!

Теперь, когда мы готовы к задаче - воспроизведению файла MPEG в Delphi.

Код, предоставленный ниже, является базовым примером, как воспроизвести файл MPEG с помощью компонента TMediaPlayer. Вот что каждый строка делает:

1. with MediaPlayer1 do: Начинает блок "with", который позволяет доступаться к свойствам и методам объекта MediaPlayer1 без необходимости добавлять префикс.
2. Filename := 'C:\Download\delphiworld.mpg';: Устанавливает свойство filename медиаплеера в указанный путь и имя файла.
3. Open;: Открывает файл для воспроизведения.
4. Display := Panel1;: Определяет контроль, который будет отображать видео (в этом случае, панель с именем Panel1).
5. DisplayRect := Panel1.ClientRect;: Устанавливает прямоугольник области отображения в соответствии с размером панели.
6. Play;: Начинает воспроизведение файла.

Код должен быть размещен в обработчике события OnClick кнопки (в этом случае, Button1). Когда кнопка будет нажата, код будет выполнен и начнет воспроизводить указанный файл MPEG.

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

Альтернативное решение с использованием компонента TMediaStream:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with MediaStream1 do
  begin
    FileName := 'C:\Download\delphiworld.mpg';
    Open;
    Play;
  end;
end;

В этом примере мы создаем объект TMediaStream и устанавливаем свойство filename в указанный файл MPEG. Затем открываем файл и начинаем воспроизведение с помощью методов Open и Play.

Помните, что нужно добавить компонент TMediaPlayer или TMediaStream на вашу форму в средстве Delphi IDE и настроить его свойства соответствующим образом.

В статье описывается способ проигрывания MPEG-файла в Delphi-программе с помощью компонента TMediaPlayer и декодера MMSystem, установленного в системе Windows.

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

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

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