| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как заставить TMediaPlayer воспроизводить видео?

Джон ©   (2005-12-16 21:35:00) 

(delphi 2005 - architect edition)
Пишу программу, которая бы воспроизводила avi файлы из папки, при выборе на Radiobutton. Программа запускается, переключатели щелкаются, кнопка нажимается, а на плеере работает только play, ff и rew. но самое главное на панели ничего нет. Вот код проги:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, MPlayer, ExtCtrls;

type
 TForm1 = class(TForm)
   GroupBox1: TGroupBox;
   RadioButton1: TRadioButton;
   RadioButton2: TRadioButton;
   RadioButton3: TRadioButton;
   RadioButton4: TRadioButton;
   RadioButton5: TRadioButton;
   RadioButton6: TRadioButton;
   RadioButton7: TRadioButton;
   Panel1: TPanel;
   MediaPlayer1: TMediaPlayer;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure RadioButton7Click(Sender: TObject);
   procedure RadioButton6Click(Sender: TObject);
   procedure RadioButton5Click(Sender: TObject);
   procedure RadioButton4Click(Sender: TObject);
   procedure RadioButton3Click(Sender: TObject);
   procedure RadioButton2Click(Sender: TObject);
   procedure RadioButton1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 vid: string;
implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);

begin
vid:= 'C:\OH\v1.avi';
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
vid:= 'C:\OH\v2.avi';
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
vid:= 'C:\OH\b2.avi';
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
vid:= 'C:\OH\atam.avi';
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
begin
vid:= 'C:\OH\sust.avi';
end;

procedure TForm1.RadioButton6Click(Sender: TObject);
begin
vid:= 'C:\OH\sh.avi';
end;

procedure TForm1.RadioButton7Click(Sender: TObject);
begin
vid:= 'D:\Консультация 1.avi';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.FileName:= vid;
end;

end.

Спасибо за помощь!!!

---

Джон   (2005-12-18 22:07:00) [1]

Anatoly Podgoretsky ©, так я и использую, в качестве дисплея устанавливаю панель, а он не показывает (и звука не слышно)... :(  
Но все-равно спасибо огромное за помощь!!!

---

Anatoly Podgoretsky   (2005-12-18 21:21:00) [2]

В таком случае используй TMediaPlayer, он играет все, что играет Windows Media Player, поскольку это обертка.

---

Джон   (2005-12-18 21:16:00) [3]

Но компонент TAnimate не поддерживает воспроизведение звука, а это необходимо. В итоге я так и не понял: как обеспечить просмотр (и прослушивание) видео?

---

Anatoly Podgoretsky   (2005-12-18 16:01:00) [4]

Джон   (18.12.05 15:47) [2]
Поддерживает, только без сжатия и звука (точнее звук игнорируется).
Из справки
The files you use must be either uncompressed AVI files or AVI clips compressed using run-length encoding (RLE).

---

Джон   (2005-12-18 15:47:00) [5]

Спасибо огромное за совет, XCoder ©  !!!
Я поменял пенель на TAnimate, в результате программа выдает исключенеие "Cannot open AVI". В чем тут может быть дело? Может TAnimate не поддерживает воспоизведение AVI? Усли да, то какие форматы видео она поддерживает?

---

XCoder   (2005-12-17 17:29:00) [6]

Чтобы проигрывать видео, нужно положить на форму компонент TAnimate и установить его в свойстве Dispaly плеера.

---

Наверх