《Delphi程序设计及实验指导》电子教案–第11章.ppt

第十一章 多媒体编程 11.1 动画组件TAnimate 11.2 简单的动画播放程序的设计 11.3 简单的CD播放器的制作 习 题 11.1 动画组件TAnimate 1．用途 Delphi提供了一个TMediaPlayer组件，使得程序员可以使用它快速开发音频或者视频播放器。TMediaPlayer组件提供了一个MCI（Media Control Interface，媒体控制界面），它可以轻松地在程序中加入多媒体功能。完整的MCI驱动程序能够支持*.wav、*.dat、*.midi和*.cda等格式的文件。 11.1 动画组件TAnimate 11.1 动画组件TAnimate 注意： 在使用Play方法时应用注意以下几点： FromFrame的值应该小于或等于ToFrame的值。 Count参数值为0的时候代表持续播放，直到使用Stop方法时停止。 StartFrame和StopFrame的值将在使用Play方法时被FromFrame和ToFrame的值覆盖。 11.1 动画组件TAnimate 【例11-1】使用Tanimate组件设计一个简单的动画播放程序。 11.1 动画组件TAnimate 11.1.2 媒体播放器组件TMediaPlayer 1．用途 Delphi提供了一个TMediaPlayer组件，使得程序员可以使用它快速开发音频或者视频播放器。TMediaPlayer组件提供了一个MCI（Media Control Interface，媒体控制界面），它可以轻松地在程序中加入多媒体功能。完整的MCI驱动程序能够支持*.wav、*.dat、*.midi和*.cda等格式的文件。 11.1 动画组件TAnimate 2．主要属性 (1) AutoEnable属性 (2) EnabledButtons属性 (3) AutoOpen属性 (4) AutoRewind属性 (5) ColoredButton属性 (6) DeviceType属性 (7) Display属性 11.1 动画组件TAnimate 【例11-2】使用TMediaPlayer组件编写一个简单的AVI文件播放器程序。 11.2 简单的动画播放程序的设计 为了更好地理解TAnimate组件的属性、方法和事件，这一节创建一个简单的动画播放程序。通过实例3，更好地掌握TAnimate组件的应用以及多媒体程序的设计思路。 11.2 简单的动画播放程序的设计 11.2.1 界面设计 新建一个工程PrjTAnimate.dpr，按图11-6设计动画播放程序的界面。窗体及其组件属性的设置值如表11-2所示。 11.2 简单的动画播放程序的设计 11.2 简单的动画播放程序的设计 11.2.2 代码编写 1．定义存放起始帧、结束帧、循环次数和总帧数 var Form1: TForm1; StartFrame,StopFrame,RepeatFrame,SumFrame:integer; 11.2 简单的动画播放程序的设计 2．TAnimate1组件的OnOpen事件处理程序代码 procedure TForm1.Animate1Open(Sender: TObject); begin ShowMessage(TAnimaet组件触发OnOpen事件，初始化变量!); (*初始化变量*) StartFrame:=Animate1.StartFrame; StopFrame:=Animate1.StopFrame; RepeatFrame:=Animate1.Repetitions; SumFrame:=Animate1.FrameCount; Estartframe.Text:=IntToStr(StartFrame); Estopframe.Text:=IntToStr(StopFrame); Esumframe.Text:=IntToStr(SumFrame); Erepeatframe.Text:=IntToStr(RepeatFrame); end; 11.2 简单的动画播放程序的设计 3．“开始播放”按钮的OnClick事件处理程序代码 procedure TForm1.playClick(Sender: TObject); begin StartFrame:=StrToInt(Estartframe.text); StopFrame:=StrToInt(Estopframe.text); RepeatFrame:=StrToInt(Erepeatframe.text); (*验证动画属性设置编辑框的数据合法性*) if (StartFrameStopFrame) or(StopFrameSumFr