Проигрывать 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-программе раздела Мультимедиа Видео может быть полезна для разработчиков на Delphi и FreePascal.

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

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