delphi零基础打造自己的播放器.docVIP

1 .MEDIAPLAYER 在DELPHI中我们可以用MEDIAPLAYER来管理媒体控件界面外部设备,如声卡,MIDI乐器,CD-ROM驱动器等. MEDIAPLAYER组件位于SYSTEM选项卡上.它是一组按钮的组合,其上有播放(PLAY),暂停(PAUSE),停止(STOP),下一标记(NEXT),上一标记(PREVIOUS),快进(STEP),快退(BACK),录制(STARTRECODING)与弹出(EJECT)等9个按钮. 其主要属性有: DEVICETYPE属性:用来指定或改变被MEDIAPLAYER组件控制的设备类型,选DTAUTOSELECT最合适为自动测试. DISPLAY:用来指定一个窗口控制来显示播放时的视屏输出.一般为PANEL元件,若缺省则自动打开一个窗体显示. FILENAME:用来指定或改变即将播放或录制的媒体文件名. LENGTH:指定在打开的多媒体设备中的媒体长度. STARTPOS:指定播放起始点. ENDPOS:指定播放中止点. AUTOOPEN:是否自动打开在DEVICETYPE属性中指定的多媒体设备. 主要方法有: BACK:调用该方法将使当前正在播放的媒体回退一定数量的帧.回退的帧数决定于FRAMES属性的值. CLOSE:用于关闭打开的多媒体设备. EJECT:用于弹出打开的多媒体设备中国的媒体. NEXT:用于移动当前位置到下一帧的开始处. OPEN:用于打开一个多媒体设备,在调用该方法之前必须在DEVICETYPE属性中指明所用的多媒体设备. PLAY:用于播放已经载入打开的多媒体设备中媒体. PAUSE:设置暂停或播放状态. PREVIOUS:前进到,前一帧开始处. REWIND:回到文件首部. STEP:前进一定数据量的帧 STOP:停止播放. 例: 制作超级播放器(WVD) 首先在SYSTEM选项卡上选择MEDIPLAYER在窗体上画出来. 设置属性. 设置MEDIPLAER的FILENAME属性指向某一个具体文件路径.例如: 设置DEVICETYPE为DTAUTOSELECT 设置AUTOOPEN为TRUE 也可以在窗体画出一个PANEL如图. 设置MEDIAPLAER的DISPLAY为PANEL1 2.实现”全屏播放”与”窗口播放” 改form1的BorderStyle属性值为：bsnone; procedure TForm1.Button1Click(Sender: TObject); begin button1.Visible:=false; form1.Left:=0; form1.top:=0; form1.Width:=screen.Width; form1.Height:=screen.Height; panel1.Left:=form1.Left; panel1.Top:=form1.top; panel1.Width:=form1.Width; panel1.Height:=form1.Height; mediaplayer1.DisplayRect:=rect(0,0,panel1.Width,panel1.Height); end; procedure TForm1.Formclick(Sender: TObject); begin close; end; 如要实现窗口可直接实现： mediaplayer1.DisplayRect:=rect(0,0,panel1.Width,panel1.Height); 如要实现窗口与全屏之间转换可直接定义PANEL1的宽度与高度，及边界。 3.弹出与关闭CD-ROM驱动器. 在使用之前必须先在引用单元文件,即系统调用处调用MMSYSTEM. 在USES WINDOWS,MESSGAE,MMSYSTEM,SYSUTILS,…… 然后加入代码. procedure TForm1.N2Click(Sender: TObject); begin mcisendstring(set cdaudio door open,nil,0,handle); end; procedure TForm1.N3Click(Sender: TObject); begin mcisendstring(set cdaud