在delphi内有没有办法播放的视频文件?請給點建議,謝謝

Question

有没有控件可以播放*.mp?，*.mpeg，*.dat，*.wav，*.wma，*.wmv，*.avi，*.m2v等文件
同时,程序可以知道现在是播放第几秒的,也可以从第几秒开始播放的?
請給點建議,謝謝

Answer 1

用WindowsMediaPlayer ActiveX控件

Answer 2

Component-Import ActiveX-WindowsMediaPlayer-Install,之后在ActiveX页可以看到

Answer 3

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Caption:=WindowsMediaPlayer1.controls.currentPositionString; //获取当前播放时间
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  WindowsMediaPlayer1.URL:='c:\1.mp3';//指定播放文件路径
  WindowsMediaPlayer1.controls.currentPosition:=20;//从第20秒开始
  WindowsMediaPlayer1.controls.play;//播放
end;

Answer 4

谢谢楼上的,WindowsMediaPlayer有没有事件知道正在播放到第几秒的?

Answer 5

有没有这样的事件就不清楚了。你去下载WindowsMediaPlayer SDK来看看：
http://msdn.microsoft.com/windowsmedia/downloads/default.aspx

Answer 6

DELPHI MediaPlayer控件支持的视频格式很少 你可以用RealAudio  
这个控件不是默认安装的，你要自己添加，添加后会出现在ActiveX控件包里  

Answer 7

如果你想自己写一个播放器且你对directx编程有兴趣,你可用它来写播放器(不过有相当的难度,具体可参考directX SDK的手册及它的例子,不过是C/C++的,网上也有用delphi来开发directX应用的例子,你可找一下)

Answer 8

DELPHI MediaPlayer控件支持的视频格式不算少了.
它实际就和windows的媒体播放器功能一样.

Answer 9

至少
.mp3，.mpeg，.dat，.wav，.avi，
几种格式文件是可以播放的(我以前实际编过).