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

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

1、11.1 动画组件TAnimate1用途 DelphiDelphi提供了一个提供了一个TMediaPlayerTMediaPlayer组件，使得程序员可组件，使得程序员可以使用它快速开发音频或者视频播放器。以使用它快速开发音频或者视频播放器。TMediaPlayerTMediaPlayer组件提供了一个组件提供了一个MCIMCI（Media Control Media Control InterfaceInterface，媒体控制界面），它可以轻松地在程序中，媒体控制界面），它可以轻松地在程序中加入多媒体功能。完整的加入多媒体功能。完整的MCIMCI驱动程序能够支持驱动程序能够支持*.wav.

2、wav、*.dat.dat、*.midi.midi和和*.cda.cda等格式的文件。等格式的文件。11.1 动画组件TAnimate2主要属性(1)Active(1)Active属性属性(2)Center(2)Center属性属性(3)FileName(3)FileName属性属性 (4)FrameCount(4)FrameCount属性属性 (5)FrameHeight(5)FrameHeight和和 FrameWidth FrameWidth属性属性 (6)Open(6)Open属性属性 (7)Repetitions(7)Repetitions属性属性 (8)StartFrame(8)S

3、tartFrame属性和属性和StopFrameStopFrame属性属性 (9)Timers(9)Timers属性属性 11.1 动画组件TAnimate注意：注意：在使用在使用PlayPlay方法时应用注意以下几点：方法时应用注意以下几点：FromFrameFromFrame的值应该小于或等于的值应该小于或等于ToFrameToFrame的值。的值。CountCount参数值为参数值为0 0的时候代表持续播放，直到使用的时候代表持续播放，直到使用StopStop方法时停止。方法时停止。StartFrameStartFrame和和StopFrameStopFrame的值将在使用的值将在使用P

4、layPlay方法时被方法时被FromFrameFromFrame和和ToFrameToFrame的值覆盖。的值覆盖。11.1 动画组件TAnimate【例例11-111-1】使用使用TanimateTanimate组件设计一个简单的动组件设计一个简单的动画播放程序。画播放程序。11.1 动画组件TAnimate11.1.2 11.1.2 媒体播放器组件媒体播放器组件TMediaPlayerTMediaPlayer 1 1用途用途 DelphiDelphi提提供供了了一一个个TMediaPlayerTMediaPlayer组组件件，使使得得程程序序员员可可以以使使用用它它快快速速开开发发音音频

5、频或或者者视视频频播播放放器器。TMediaPlayerTMediaPlayer组组件件提提供供了了一一个个MCIMCI（Media Media Control Control InterfaceInterface，媒媒体体控控制制界界面面），它它可可以以轻轻松松地地在在程程序序中中加加入入多多媒媒体体功功能能。完完整整的的MCIMCI驱驱动动程程序序能能够够支支持持*.wav.wav、*.dat.dat、*.midi.midi和和*.cda.cda等格式的文件。等格式的文件。11.1 动画组件TAnimate2主要属性 (1)AutoEnable(1)AutoEnable属性属性 (2)En

6、abledButtons(2)EnabledButtons属性属性 (3)AutoOpen(3)AutoOpen属性属性 (4)AutoRewind(4)AutoRewind属性属性 (5)ColoredButton(5)ColoredButton属性属性 (6)DeviceType(6)DeviceType属性属性 (7)Display(7)Display属性属性 (8)DisplayRect(8)DisplayRect属性属性(9)Mode(9)Mode属性属性 (10)FileName(10)FileName属性属性 (11)StartPos(11)StartPos属性属性 (12)En

7、dPos(12)EndPos属性属性 (13)Position(13)Position属性属性 (14)Length(14)Length属性属性 11.1 动画组件TAnimate【例例11-211-2】使用使用TMediaPlayerTMediaPlayer组件编写一个简组件编写一个简单的单的AVIAVI文件播放器程序。文件播放器程序。11.2 简单的动画播放程序的设计 为了更好地理解为了更好地理解TAnimateTAnimate组件的属性、方法和事件，这一节创建组件的属性、方法和事件，这一节创建一个简单的动画播放程序。通过实例一个简单的动画播放程序。通过实例3 3，更好地掌握，更好地掌握T

8、AnimateTAnimate组组件的应用以及多媒体程序的设计思路。件的应用以及多媒体程序的设计思路。11.2 简单的动画播放程序的设计11.2.1 界面设计 新新建建一一个个工工程程PrjTAnimate.dprPrjTAnimate.dpr，按按图图11-611-6设设计计动动画画播播放放程程序序的的界界面面。窗窗体体及及其其组组件件属属性性的的设设置置值值如如表表11-211-2所示。所示。11.2 简单的动画播放程序的设计图图11-611-6设计动画播放程序的界面设计动画播放程序的界面11.2 简单的动画播放程序的设计11.2.2 代码编写 1 1定义存放起始帧、结束帧、循环次数和总帧

9、数定义存放起始帧、结束帧、循环次数和总帧数 varvar Form1:TForm1;Form1:TForm1;StartFrame,StopFrame,RepeatFrame,SumFrame:integerStartFrame,StopFrame,RepeatFrame,SumFrame:integer;11.2 简单的动画播放程序的设计 2 2TAnimate1TAnimate1组件的组件的OnOpenOnOpen事件处理程序代码事件处理程序代码 procedure TForm1.Animate1Open(Sender:TObject);procedure TForm1.Animate1O

10、pen(Sender:TObject);beginbegin ShowMessage(TAnimaetShowMessage(TAnimaet组件触发组件触发OnOpenOnOpen事件，初始化事件，初始化变量变量!);!);(*(*初始化变量初始化变量*)StartFrame:=Animate1.StartFrame;StartFrame:=Animate1.StartFrame;StopFrame:=Animate1.StopFrame;StopFrame:=Animate1.StopFrame;RepeatFrame:=Animate1.Repetitions;RepeatFrame:=

11、Animate1.Repetitions;SumFrame:=Animate1.FrameCount;SumFrame:=Animate1.FrameCount;Estartframe.Text:=IntToStr(StartFrame);Estartframe.Text:=IntToStr(StartFrame);Estopframe.Text:=IntToStr(StopFrame);Estopframe.Text:=IntToStr(StopFrame);Esumframe.Text:=IntToStr(SumFrame);Esumframe.Text:=IntToStr(SumFram

12、e);Erepeatframe.Text:=IntToStr(RepeatFrame);Erepeatframe.Text:=IntToStr(RepeatFrame);end;end;11.2 简单的动画播放程序的设计 3 3“开始播放开始播放”按钮的按钮的OnClickOnClick事件处理程序代码事件处理程序代码 procedure TForm1.playClick(Sender:TObject);procedure TForm1.playClick(Sender:TObject);beginbegin StartFrame:=StrToInt(Estartframe.text);Sta

13、rtFrame:=StrToInt(Estartframe.text);StopFrame:=StrToInt(Estopframe.text);StopFrame:=StrToInt(Estopframe.text);RepeatFrame:=StrToInt(Erepeatframe.text);RepeatFrame:=StrToInt(Erepeatframe.text);(*(*验证动画属性设置编辑框的数据合法性验证动画属性设置编辑框的数据合法性*)if(StartFrameStopFrame)or(StopFrameSumFrame)if(StartFrameStopFrame)o

14、r(StopFrameSumFrame)thenthen 11.2 简单的动画播放程序的设计 begin /begin /输入范围错误输入范围错误 ShowMessage(ShowMessage(输入帧的范围错误，所有设置复位！输入帧的范围错误，所有设置复位！););Animate1.StartFrame:=1;Animate1.StartFrame:=1;Animate1.StopFrame:=Animate1.FrameCount;Animate1.StopFrame:=Animate1.FrameCount;Animate1.Repetitions:=0;Animate1.Repetit

15、ions:=0;Estartframe.Text:=1;Estartframe.Text:=1;Estopframe.Text:=IntToStr(Animate1.FrameCount);Estopframe.Text:=IntToStr(Animate1.FrameCount);Erepeatframe.Text:=0;Erepeatframe.Text:=0;end end elseelse 11.2 简单的动画播放程序的设计 beginbegin （*设置组件的设置组件的EnabledEnabled属性属性*）play.Enabled:=False;play.Enabled:=Fals

16、e;stop.Enabled:=True;stop.Enabled:=True;Estartframe.Enabled:=False;Estartframe.Enabled:=False;Estopframe.Enabled:=False;Estopframe.Enabled:=False;Erepeatframe.Enabled:=False;Erepeatframe.Enabled:=False;（*设置设置TAnimateTAnimate组件的属性，然后进行播放组件的属性，然后进行播放*）Animate1.StartFrame:=StartFrame;Animate1.StartFram

17、e:=StartFrame;Animate1.StopFrame:=StopFrame;Animate1.StopFrame:=StopFrame;Animate1.Repetitions:=RepeatFrame;Animate1.Repetitions:=RepeatFrame;Animate1.Active:=True;/Animate1.Active:=True;/进入播放状态进入播放状态 end;end;end;end;11.2 简单的动画播放程序的设计4 4“停止播放停止播放”按钮的按钮的OnClickOnClick事件的处理程事件的处理程序代码序代码procedure TForm

18、1.stopClick(Sender:TObject);procedure TForm1.stopClick(Sender:TObject);beginbegin(*(*停止播放停止播放*)Animate1.Stop;Animate1.Stop;play.Enabled:=True;/“play.Enabled:=True;/“开始播放开始播放”按钮可用按钮可用stop.Enabled:=False;stop.Enabled:=False;(*(*设置文本框为可用设置文本框为可用*)Estartframe.Enabled:=True;Estartframe.Enabled:=True;Esto

19、pframe.Enabled:=True;Estopframe.Enabled:=True;Erepeatframe.Enabled:=True;Erepeatframe.Enabled:=True;end;end;11.2 简单的动画播放程序的设计 运行程序，在运行程序，在EstopframeEstopframe文本框中输入结束帧为文本框中输入结束帧为9 9，单击，单击“开开始播放始播放”按钮，结果如图按钮，结果如图11-711-7所示。所示。11.2 简单的动画播放程序的设计 图图11-7 11-7 运行结果运行结果11.3 简单的简单的CD播放器的制作播放器的制作 11.3.1 界面设计

20、 新建一个工程新建一个工程PrjPcd.dprPrjPcd.dpr，设计如图，设计如图11-811-8所示的所示的CDCD播播放器的界面，窗体及其组件属性的设置值如表放器的界面，窗体及其组件属性的设置值如表11-311-3所所示。示。11.3 简单的简单的CD播放器的制作播放器的制作图图11-8 CD11-8 CD播放器的界面播放器的界面11.3 简单的简单的CD播放器的制作播放器的制作11.3.2 11.3.2 代码编写代码编写 1 1初始化程序初始化程序 procedure TForm1.FormCreate(Sender:TObject);procedure TForm1.FormCre

21、ate(Sender:TObject);beginbegin with MediaPlayer1 do with MediaPlayer1 do begin begin Visible:=True;Visible:=True;DeviceType:=dtCDAudio;/DeviceType:=dtCDAudio;/设置多媒体设备的类型设置多媒体设备的类型 Open;/Open;/通过通过OpenOpen方法打开方法打开CDCD播放设备播放设备 end;end;end;end;11.3 简单的简单的CD播放器的制作播放器的制作 2 2按钮的按钮的OnClickOnClick事件处理程序代码事件

22、处理程序代码 procedure TForm1.Button1Click(Sender:TObject);procedure TForm1.Button1Click(Sender:TObject);beginbegin MediaPlayer1.play;/“MediaPlayer1.play;/“播放播放”按钮的按钮的OnClickOnClick事件处理事件处理 end;end;procedure TForm1.Button3Click(Sender:TObject);procedure TForm1.Button3Click(Sender:TObject);beginbegin Media

23、Player1.Pause;/“MediaPlayer1.Pause;/“暂停暂停”按钮的按钮的OnClickOnClick事件处理事件处理 end;end;11.3 简单的简单的CD播放器的制作播放器的制作 procedure TForm1.Button2Click(Sender:TObject);procedure TForm1.Button2Click(Sender:TObject);beginbegin MediaPlayer1.Stop;MediaPlayer1.Stop;滞不前滞不前 /“/“停止停止”按钮的按钮的OnClickOnClick事件处理事件处理 end;end;pro

24、cedure TForm1.Button4Click(Sender:TObject);procedure TForm1.Button4Click(Sender:TObject);beginbegin MediaPlayer1.Previous;/“MediaPlayer1.Previous;/“前一曲前一曲”按钮的按钮的OnClickOnClick事件处理事件处理 end;end;procedure TForm1.Button6Click(Sender:TObject);procedure TForm1.Button6Click(Sender:TObject);beginbegin Media

25、Player1.Next;/“MediaPlayer1.Next;/“后一曲后一曲”按钮的按钮的OnClickOnClick事件处理事件处理 end;end;procedure TForm1.Button7Click(Sender:TObject);procedure TForm1.Button7Click(Sender:TObject);beginbegin MediaPlayer1.Eject;MediaPlayer1.Eject;勤部勤部 /“/“弹出弹出”按钮的按钮的OnClickOnClick事件处理事件处理 end;end;11.3 简单的简单的CD播放器的制作播放器的制作(*“(

26、*“打开打开”按钮的按钮的OnClickOnClick事件处理事件处理*)procedure TForm1.Button5Click(Sender:TObject);procedure TForm1.Button5Click(Sender:TObject);beginbegin if OpenDialog1.Execute then if OpenDialog1.Execute then begin begin MediaPlayer1.FileName:=OpenDialog1.FileName;MediaPlayer1.FileName:=OpenDialog1.FileName;Medi

27、aPlayer1.Open;MediaPlayer1.Open;end;end;end;end;11.3 简单的简单的CD播放器的制作播放器的制作 3 3Timer1Timer1组件的组件的Timer1TimerTimer1Timer事件处理程序代码事件处理程序代码 窗体中的窗体中的TimerTimer组件的作用是为程序的运行提供事件的组件的作用是为程序的运行提供事件的控制，例如显示控制，例如显示CDCD播放的当前位置、状态等信息。这播放的当前位置、状态等信息。这里利用里利用MemoMemo组件显示相关的信息。组件显示相关的信息。procedure TForm1.Timer1Timer(Sen

28、der:TObject);procedure TForm1.Timer1Timer(Sender:TObject);varvar i,j,k:integer;i,j,k:integer;pos1,pos2:longint;pos1,pos2:longint;flag:Boolean;flag:Boolean;str1:string;str1:string;11.3 简单的简单的CD播放器的制作播放器的制作 beginbegin memo1.lines0:=memo1.lines0:=总曲目数：总曲目数：+inttostr(MediaPlayer1.Tracks);+inttostr(Media

29、Player1.Tracks);MediaPlayer1.TimeFormat:=tfMilliseconds;MediaPlayer1.TimeFormat:=tfMilliseconds;pos1:=0;pos1:=0;pos2:=0;pos2:=0;flag:=true;flag:=true;for i:=0 to MediaPlayer1.Tracks-1 do /for i:=0 to MediaPlayer1.Tracks-1 do /显示正在播放的显示正在播放的第几首曲目第几首曲目 beginbegin for j:=0 to i-1 do for j:=0 to i-1 do

30、begin begin pos1:=pos1+MediaPlayer1.TrackLengthj;pos1:=pos1+MediaPlayer1.TrackLengthj;pos2:=pos1;pos2:=pos1;end;end;11.3 简单的简单的CD播放器的制作播放器的制作 pos2:=pos2+MediaPlayer1.TrackLengthi;pos2:=pos2+MediaPlayer1.TrackLengthi;if MediaPlayer1.Positionpos1 then if MediaPlayer1.Positionpos1 then begin begin if M

31、ediaPlayer1.Positionpos2 then if MediaPlayer1.Positionpos2 then begin begin memo1.lines1:=memo1.lines1:=正在播放的曲目：第正在播放的曲目：第 +inttostr(i+1)+inttostr(i+1)+首首;flag:=False;flag:=False;end;end;end;end;end;end;11.3 简单的简单的CD播放器的制作播放器的制作 if flag thenif flag then memo1.lines1:=memo1.lines1:=正在播放的曲目：第正在播放的曲目：第

32、 1 1 首首;k:=round(MediaPlayer1.Length/60000);k:=round(MediaPlayer1.Length/60000);memo1.lines2:=memo1.lines2:=曲目长度：曲目长度：+inttostr(k);+inttostr(k);str1:=str1:=当前状态：当前状态：;(*(*显示显示CDCD播放的当前状态播放的当前状态*)Case MediaPlayer1.Mode of Case MediaPlayer1.Mode of mpNotReady:Memo1.Lines3:=str1+mpNotReady:Memo1.Lines3

33、:=str1+准备未绪准备未绪;mpStopped:Memo1.Lines3:=str1+mpStopped:Memo1.Lines3:=str1+已停止已停止;mpPlaying:Memo1.Lines3:=str1+mpPlaying:Memo1.Lines3:=str1+正在播放正在播放;mpRecording:Memo1.Lines3:=str1+mpRecording:Memo1.Lines3:=str1+正在记录正在记录;mpSeeking:Memo1.Lines3:=str1+mpSeeking:Memo1.Lines3:=str1+正在搜索正在搜索;mpPaused:Memo1

34、.Lines3:=str1+mpPaused:Memo1.Lines3:=str1+已暂停已暂停;mpOpen:Memo1.Lines3:=str1+mpOpen:Memo1.Lines3:=str1+打开打开;end;end;end;end;11.3 简单的简单的CD播放器的制作播放器的制作图11-9 运行结果习习 题题 1 1利用利用TAnimateTAnimate组件编写一个简单的动画播放程序。组件编写一个简单的动画播放程序。2 2利用利用TMediaPlayerTMediaPlayer组件制作一个简易的媒体播放器，组件制作一个简易的媒体播放器，具有播放、暂停、停止、播放前一曲、播放后一曲的功具有播放、暂停、停止、播放前一曲、播放后一曲的功能。能。