怎样用TMediaPlay播放VCD文件和MPEG文件?(50分)

  • 主题发起人 主题发起人 小咪
  • 开始时间 开始时间

小咪

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样用TMediaPlay播放VCD文件和MPEG文件?
我知道TMediaPlay可播放的MediaType有多种,但不知道怎样用TMediaPlay播放
VCD文件和MPEG文件及其他文件?(我仅能用它播放AVIVideo和WaveAudio文件)
 
不能.
TMediaPlayer不支持这两种格式.
 
例子如下:

Form 中放 Panel1,MediaPlayer1,Button1,OpenDialog1 ;

MediaPlayer1.deviceType=dtAutoSelect;
MediaPlayer1.Display =Panel1;

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute then begin //你可以选择VCD的dat文件或Mpg文件
MediaPlayer1.FileName:= OpenDialog1.FileName;
MediaPlayer1.Open;
end;
end;

运行后,单击Button1, 选取文件, 就可以播放VCD或Mpg文件。

注意, 你的Windows 中的MCI 接口必须有VCD或Mpg文件媒体类型。


 
导入一个Acrive Movie不就行了。
奔腾影音不就是用Actice Movie做的吗??,mpeg,Mp3都可以放的啊
 
非常简单:只要对它的“FileName”赋上VCD文件或MPEG文件的文件名就可以了!
我想大概是你把它的“DeviceType”设置错了!把它设成“dtAutoSelect”
一切搞定!
 
hehe:
Seasky的例子很不错,不过要装XING,或者支持MPEG的驱动。
 
sorry, 我好象除了 XING,没见过支持 MPEG 的 MCI 驱动,还有其它吗?
 
我曾经用TMediaPlayer播放过MPEG文件,并不需要什么XING之类特别的驱动,
程序和Seaskyg给的例子差不多。
 
TMediaplayer是使用MCI播放的,如果你的windows没有安装过相应的驱动的
话,它就放不了.也就是说,你的windows能直接播放的东东,它也能播放.
要放MPEG和VCD的话,devicetype:=dtautoselect.
 
确实需要安装MCI驱动,如XING或海航VCD97等。
 
用Actice Movie很据说编这个很简单。不知有谁知道。
 
后退
顶部