Delphi程序设计及实验指导电子教案.pptx

《Delphi程序设计及实验指导电子教案.pptx》由会员分享，可在线阅读，更多相关《Delphi程序设计及实验指导电子教案.pptx（31页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、11.1 动画组件TAnimate1用途 Delphi提供了一个TMediaPlayer组件，使得程序员可以使用它快速开发音频或者视频播放器。TMediaPlayer组件提供了一个MCI（Media Control Interface，媒体控制界面），它可以轻松地在程序中加入多媒体功能。完整的MCI驱动程序能够支持*.wav、*.dat、*.midi和*.cda等格式的文件。第1页/共31页11.1 动画组件TAnimate2主要属性(1)Active属性(2)Center属性(3)FileName属性(4)FrameCount属性(5)FrameHeight和 FrameWidth属性(6)

2、Open(6)Open属性属性 (7)Repetitions(7)Repetitions属性属性 (8)StartFrame(8)StartFrame属性和属性和StopFrameStopFrame属性属性 (9)Timers(9)Timers属性属性 第2页/共31页11.1 动画组件TAnimate注意：在使用Play方法时应用注意以下几点：FromFrame的值应该小于或等于ToFrame的值。Count参数值为0的时候代表持续播放，直到使用Stop方法时停止。StartFrame和StopFrame的值将在使用Play方法时被FromFrame和ToFrame的值覆盖。第3页/共31页

3、11.1 动画组件TAnimate【例11-1】使用Tanimate组件设计一个简单的动画播放程序。第4页/共31页11.1 动画组件TAnimate11.1.2 媒体播放器组件TMediaPlayer1用途Delphi提供了一个TMediaPlayer组件，使得程序员可以使用它快速开发音频或者视频播放器。TMediaPlayer组件提供了一个MCI（Media Control Interface，媒体控制界面），它可以轻松地在程序中加入多媒体功能。完整的MCI驱动程序能够支持*.wav、*.dat、*.midi和*.cda等格式的文件。第5页/共31页11.1 动画组件TAnimate2主要

4、属性(1)AutoEnable属性(2)EnabledButtons属性(3)AutoOpen属性(4)AutoRewind属性(5)ColoredButton属性(6)DeviceType属性(7)Display属性(8)DisplayRect(8)DisplayRect属性属性(9)Mode(9)Mode属性属性 (10)FileName(10)FileName属性属性 (11)StartPos(11)StartPos属性属性 (12)EndPos(12)EndPos属性属性 (13)Position(13)Position属性属性 (14)Length(14)Length属性属性 第6页

5、/共31页11.1 动画组件TAnimate【例11-2】使用TMediaPlayer组件编写一个简单的AVI文件播放器程序。第7页/共31页11.2 简单的动画播放程序的设计为了更好地理解TAnimate组件的属性、方法和事件，这一节创建一个简单的动画播放程序。通过实例3，更好地掌握TAnimate组件的应用以及多媒体程序的设计思路。第8页/共31页11.2 简单的动画播放程序的设计11.2.1 界面设计新建一个工程，按图11-6设计动画播放程序的界面。窗体及其组件属性的设置值如表11-2所示。第9页/共31页11.2 简单的动画播放程序的设计图图11-611-6设计动画播放程序的界面设计动

6、画播放程序的界面第10页/共31页11.2 简单的动画播放程序的设计11.2.2 代码编写1定义存放起始帧、结束帧、循环次数和总帧数varForm1:TForm1;StartFrame,StopFrame,RepeatFrame,SumFrame:integer;第11页/共31页11.2 简单的动画播放程序的设计2TAnimate1组件的OnOpen事件处理程序代码procedure TForm1.Animate1Open(Sender:TObject);beginShowMessage(TAnimaet组件触发OnOpen事件，初始化变量!);(*初始化变量*)StartFrame:=An

7、imate1.StartFrame;StopFrame:=Animate1.StopFrame;RepeatFrame:=Animate1.Repetitions;SumFrame:=Animate1.FrameCount;:=IntToStr(StartFrame);:=IntToStr(StopFrame);:=IntToStr(SumFrame);:=IntToStr(RepeatFrame);end;第12页/共31页11.2 简单的动画播放程序的设计3“开始播放”按钮的OnClick事件处理程序代码procedure TForm1.playClick(Sender:TObject);

8、beginStartFrame:=);StopFrame:=);RepeatFrame:=);(*验证动画属性设置编辑框的数据合法性*)if(StartFrameStopFrame)or(StopFrameSumFrame)then 第13页/共31页11.2 简单的动画播放程序的设计begin /输入范围错误 ShowMessage(输入帧的范围错误，所有设置复位！);Animate1.StartFrame:=1;Animate1.StopFrame:=Animate1.FrameCount;Animate1.Repetitions:=0;:=1;:=IntToStr(Animate1.Fr

9、ameCount);:=0;endelse 第14页/共31页11.2 简单的动画播放程序的设计begin （*设置组件的Enabled属性*）:=False;:=True;:=False;:=False;:=False;（*设置TAnimate组件的属性，然后进行播放*）Animate1.StartFrame:=StartFrame;Animate1.StopFrame:=StopFrame;Animate1.Repetitions:=RepeatFrame;Animate1.Active:=True;/进入播放状态 end;end;第15页/共31页11.2 简单的动画播放程序的设计4“停

10、止播放”按钮的OnClick事件的处理程序代码procedure TForm1.stopClick(Sender:TObject);begin(*停止播放*)Animate1.Stop;:=True;/“开始播放”按钮可用:=False;(*设置文本框为可用*):=True;:=True;:=True;end;第16页/共31页11.2 简单的动画播放程序的设计运行程序，在Estopframe文本框中输入结束帧为9，单击“开始播放”按钮，结果如图11-7所示。第17页/共31页11.2 简单的动画播放程序的设计图11-7 运行结果第18页/共31页11.3 简单的CD播放器的制作 11.3.1

11、 界面设计 新建一个工程，设计如图11-8所示的CD播放器的界面，窗体及其组件属性的设置值如表11-3所示。第19页/共31页11.3 简单的CD播放器的制作图11-8 CD播放器的界面第20页/共31页11.3 简单的CD播放器的制作11.3.2 代码编写1初始化程序procedure TForm1.FormCreate(Sender:TObject);begin with MediaPlayer1 do begin Visible:=True;DeviceType:=dtCDAudio;/设置多媒体设备的类型 Open;/通过Open方法打开CD播放设备 end;end;第21页/共31页

12、11.3 简单的CD播放器的制作2按钮的OnClick事件处理程序代码procedure TForm1.Button1Click(Sender:TObject);beginMediaPlayer1.play;/“播放”按钮的OnClick事件处理end;procedure TForm1.Button3Click(Sender:TObject);beginMediaPlayer1.Pause;/“暂停”按钮的OnClick事件处理end;第22页/共31页11.3 简单的CD播放器的制作procedure TForm1.Button2Click(Sender:TObject);beginMedi

13、aPlayer1.Stop;滞不前 /“停止”按钮的OnClick事件处理end;procedure TForm1.Button4Click(Sender:TObject);beginMediaPlayer1.Previous;/“前一曲”按钮的OnClick事件处理end;procedure TForm1.Button6Click(Sender:TObject);beginMediaPlayer1.Next;/“后一曲”按钮的OnClick事件处理end;procedure TForm1.Button7Click(Sender:TObject);beginMediaPlayer1.Eject

14、;勤部 /“弹出”按钮的OnClick事件处理end;第23页/共31页11.3 简单的CD播放器的制作(*“打开”按钮的OnClick事件处理*)procedure TForm1.Button5Click(Sender:TObject);begin if OpenDialog1.Execute then begin MediaPlayer1.FileName:=OpenDialog1.FileName;MediaPlayer1.Open;end;end;第24页/共31页11.3 简单的CD播放器的制作3Timer1组件的Timer1Timer事件处理程序代码窗体中的Timer组件的作用是为

15、程序的运行提供事件的控制，例如显示CD播放的当前位置、状态等信息。这里利用Memo组件显示相关的信息。procedure TForm1.Timer1Timer(Sender:TObject);vari,j,k:integer;pos1,pos2:longint;flag:Boolean;str1:string;第25页/共31页11.3 简单的CD播放器的制作begin memo1.lines0:=总曲目数：+inttostr(MediaPlayer1.Tracks);MediaPlayer1.TimeFormat:=tfMilliseconds;pos1:=0;pos2:=0;flag:=t

16、rue;for i:=0 to MediaPlayer1.Tracks-1 do /显示正在播放的第几首曲目 begin for j:=0 to i-1 do begin pos1:=pos1+MediaPlayer1.TrackLengthj;pos2:=pos1;end;第26页/共31页11.3 简单的CD播放器的制作pos2:=pos2+MediaPlayer1.TrackLengthi;if MediaPlayer1.Positionpos1 then begin if MediaPlayer1.Positionpos2 then begin memo1.lines1:=正在播放的曲

17、目：第+inttostr(i+1)+首;flag:=False;end;end;end;第27页/共31页11.3 简单的CD播放器的制作if flag then memo1.lines1:=正在播放的曲目：第 1 首;k:=round(MediaPlayer1.Length/60000);memo1.lines2:=曲目长度：+inttostr(k);str1:=当前状态：;(*显示CD播放的当前状态*)Case MediaPlayer1.Mode of mpNotReady:Memo1.Lines3:=str1+准备未绪;mpStopped:Memo1.Lines3:=str1+已停止;m

18、pPlaying:Memo1.Lines3:=str1+正在播放;mpRecording:Memo1.Lines3:=str1+正在记录;mpSeeking:Memo1.Lines3:=str1+正在搜索;mpPaused:Memo1.Lines3:=str1+已暂停;mpOpen:Memo1.Lines3:=str1+打开;end;end;第28页/共31页11.3 简单的CD播放器的制作图11-9 运行结果第29页/共31页习 题1利用TAnimate组件编写一个简单的动画播放程序。2利用TMediaPlayer组件制作一个简易的媒体播放器，具有播放、暂停、停止、播放前一曲、播放后一曲的功能。第30页/共31页感谢您的观看！第31页/共31页