Форум: "Media";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Джон   (2005-12-16 21:35) [0]

(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.

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

---

← →
XCoder ©   (2005-12-17 17:29) [1]

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

---

← →
Джон   (2005-12-18 15:47) [2]

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

---

← →
Anatoly Podgoretsky ©   (2005-12-18 16:01) [3]

Джон   (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 21:16) [4]

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

---

← →
Anatoly Podgoretsky ©   (2005-12-18 21:21) [5]

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

---

← →
Джон   (2005-12-18 22:07) [6]

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

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.01 c