有没有支持播放MPEG电影的控件？介绍一个来听听

Question

Delphi自带的MediaPlayer就可以！
深度历险上有好多http://vcl.vclxx.org

Answer 1

我在深度那里看过，好像找不到
自带那个不能放MPEG的，只能放AVI,DAT

Answer 2

MPEG可利用Delphi的mediaplayer组件直接播放，组件在system页下。我用它来播放各种各样的media。以下是我的多媒体播放器中，为播放MPG按钮所写的程序，它几年来一直工作很正常，可供您参考（我的MPG文件和其他媒体文件都放在G盘）：
procedure TForm1.SpeedButton6Click(Sender: TObject);   
begin
  openDialog5.InitialDir:='G:\Video';
  openDialog5.DefaultExt:='MPG';
  openDialog5.filterIndex:=1;
  if opendialog5.execute then
  begin
   mediaplayer1.filename:=Opendialog5.filename;
   mediaplayer1.open;
   mediaplayer1.enabled:=false;
   mediaplayer1.display:=form1;
   mediaplayer1.displayRect:=Rect(0,28,image1.width,image1.height-3);
   mediaplayer1.enabled:=true;
   showstatus;
 end

Answer 3

可以用INSTALL ACTIVEX CONTROLS的构件，装上REALAUDIOY构件。
前提是你的机器上必须先装了REALPLAY。