Delphi_6程序设计及其应用开发--第5章__多媒体与动

1、第第5章章 多媒体与动画操作多媒体与动画操作本章要点本章要点 5.1 5.1 动画控件动画控件animateanimate的使用的使用 5.2 5.2 多媒体控件多媒体控件mediaplayermediaplayer的使的使 5.35.3制作图片浏览器实例制作图片浏览器实例本章要点本章要点 动画控件动画控件animateanimate的功能说明及其使用。的功能说明及其使用。 多媒体控件多媒体控件mediaplayermediaplayer的功能说明及其使用。的功能说明及其使用。 使用使用imageimage控件制作图片浏览器。控件制作图片浏览器。返回本章首页5.1 动画控件动画控件animat

2、e的使用的使用n5.1.1 5.1.1 动画控件动画控件animateanimate功能简介功能简介n5.1.2 5.1.2 使用使用animateanimate控件实现动画播放控件实现动画播放的实例程序的实例程序返回本章首页5.1.1 动画控件动画控件animate功能简介功能简介animateanimate控件使用两种不同的资源：控件使用两种不同的资源： 它可以基于上面所描述的它可以基于上面所描述的aviavi文件，通过为文件，通过为filenamefilename属性设置相应的值就能实现。属性设置相应的值就能实现。 它可以使用一种特殊的它可以使用一种特殊的windows 95window

3、s 95内部动画，这是内部动画，这是通用控件的一部分。通过选择通用控件的一部分。通过选择commandavicommandavi属性的一属性的一个可能值就能实现。个可能值就能实现。animateanimate控件位于控件板的控件位于控件板的win32win32页中，如图页中，如图5-15-1所示。所示。图5-1 animate控件的位置返回本节5.1.2 使用使用animate控件实现动画播放的实例程序控件实现动画播放的实例程序1 1向设计窗体中添加控件向设计窗体中添加控件 如图如图5-25-2所示，在窗体的上半部分添加三个所示，在窗体的上半部分添加三个tgroupboxtgroupbox控件

4、、一个控件、一个topendialogtopendialog控件、七控件、七个个tbuttontbutton控件、三个控件、三个tlabeltlabel控件、三个控件、三个tspinedittspinedit控件，在窗体下半部分添加一个控件，在窗体下半部分添加一个tlistboxtlistbox控件和一个控件和一个animateanimate控件。其中，控件。其中，animateanimate控件的位置应根据运行程序时，需控件的位置应根据运行程序时，需要出现的位置来放置。要出现的位置来放置。 图5-2 例5-1程序的设计界面2 2设定项目中控件的属性（见表设定项目中控件的属性（见表5-15-1

5、）（1 1）设置分组框）设置分组框groupboxgroupbox控件的属性控件的属性（2 2）设置）设置buttonbutton控件的属性控件的属性（3 3）设置）设置labellabel控件的属性控件的属性（4 4）设置）设置spineditspinedit控件的属性控件的属性( (见表见表5-2)5-2)（5 5）设置）设置listboxlistbox控件的属性控件的属性( (见表见表5-3)5-3)（6 6）设置）设置opendialogopendialog控件的属性（见表控件的属性（见表5-45-4）（7 7）animateanimate控件的常用属性和方法控件的常用属性和方法表5-

6、1 控件groupbox的属性控件属性属性值groupbox1captionheightwidth 120240groupbox2captionheightwidth 120240groupbox3aligncaptionheightwidthaltop 145800表5-2 spinedit控件的属性属性属性值icrement1minvalue0表5-3 listbox控件的属性属性属性值items.stringsuse an avi file find folder find file find computer copy files copy file recycle file empt

7、y recycle delete file表5-4opendialog控件的属性属性属性值defaultextavioptionsofpathmustexist , offilemustexistfilteravi file (*.avi)|*.avi 3 3各个方法的实现代码各个方法的实现代码当用户第一次运行这个程序时，希望列表框中的有一当用户第一次运行这个程序时，希望列表框中的有一个默认选项被选中。一般不希望是个默认选项被选中。一般不希望是 use an avi fileuse an avi file选选项项，所以将第二项作为缺省选项。这一要求可以通过，所以将第二项作为缺省选项。这一要求可

8、以通过窗体的窗体的oncreateoncreate事件来实现，为了告诉用户这个动画事件来实现，为了告诉用户这个动画所拥有的动画帧数，可以调用所拥有的动画帧数，可以调用animateanimate的的framecountframecount属属性来设置性来设置“帧数帧数”标签的值。因为标签的值。因为animateanimate控件没有提控件没有提供现成的方法。我们可以使用供现成的方法。我们可以使用seekseek方法，用一个方法，用一个downtodownto型的循环语句来实现。型的循环语句来实现。返回本节5.2 多媒体控件多媒体控件mediaplayer的使用的使用n5.2.1 5.2.1 多

9、媒体控件多媒体控件mediaplayermediaplayer功能简介功能简介n5.2.2 5.2.2 使用使用mediaplayermediaplayer控件制作一个控件制作一个vcdvcd播放程序播放程序返回本章首页5.2.1 多媒体控件多媒体控件mediaplayer功能简介功能简介mediaplayermediaplayer控件不仅可以播放控件不仅可以播放aviavi文件，还可文件，还可以通过以通过mcimci播放很多媒体文件，比如播放很多媒体文件，比如wavwav，midimidi，cdcd音乐文件和音乐文件和datdat文件。它位于控文件。它位于控件板的件板的systemsyste

10、m页中，如图页中，如图5-35-3所示。所示。图5-3mediaplayer控件的位置返回本节5.2.2 使用使用mediaplayer控件制作一个控件制作一个vcd播放程序播放程序1 1向窗体中添加控件（向窗体中添加控件（其窗体及控件其窗体及控件布局如图布局如图5-45-4所示）。所示）。2 2主要控件分析主要控件分析3 3为控件添加代码为控件添加代码图5-4窗体与控件的布局图5-5mediaplayer控件名 称按钮代号作 用playbtplay开始播放多媒体文件pausebtpause如果正在播放或录音，则暂停播放或录音，如果已经停止了，则重新开始播放或录音stopbtstop停止播放与

11、录音prevbtprev跳到上一个音轨，如果此多媒体不支持音轨，则跳到文件的开始处stepbtstep向前跳过一帧backbtback向后跳过一帧recordbtrecord开始录音ejectbteject弹出媒体文件（比如说弹出光盘）表5-5mediaplayer控件的按钮功能属性属性值autoenabletrueautoopenfalseautorewindtrueenablebuttons. btrecordenablebuttons. btejectfalsefalsedevicetypedtautoselectdisplayolecontainer1timeformattfmilli

12、secondsvisiblefalse表5-6mediaplayer的属性设置图5-6 mediaplayer1控件布尔值设置 图5-7mediaplayer1可播放的设备类型取值取值意义意义tfmilliseconds以毫秒来计算长度以毫秒来计算长度tfhms以小时分钟秒的方式计算长度以小时分钟秒的方式计算长度tfmse以分钟秒帧计算长度以分钟秒帧计算长度tfframes以帧数计算长度以帧数计算长度表5-7 timeformat部分取值及意义图图5-8mediaplayer1可选择的映像控件可选择的映像控件图图5-9 panels编辑框编辑框返回本节5.3制作图片浏览器实例制作图片浏览器实例

13、n5.3.1 5.3.1 窗体及其控件的布局窗体及其控件的布局n5.3.2 5.3.2 控件的属性设置控件的属性设置n5.3.3 5.3.3 为控件添加事件驱动程序为控件添加事件驱动程序n5.3.4 5.3.4 图片浏览及其保存图片浏览及其保存返回本章首页5.3.1 窗体及其控件的布局窗体及其控件的布局n创建一个新的项目。创建一个新的项目。n在主窗体中放置一个映像控件在主窗体中放置一个映像控件image1image1。n放置一个打开文件对话框放置一个打开文件对话框opendialog1opendialog1，用于打开图片文件的路径搜索。用于打开图片文件的路径搜索。n放置一个保存文件对话框放置一

14、个保存文件对话框savedialog1savedialog1，用用于对图片进行保存。于对图片进行保存。 n 放置一个容器控件放置一个容器控件bevel1bevel1，用于衬托两个按钮。用于衬托两个按钮。n 放置一个面板控件放置一个面板控件panel1panel1，用于说明图片浏览器。用于说明图片浏览器。n 放置两个按钮控件，一个用于打开图片，另一个用放置两个按钮控件，一个用于打开图片，另一个用于保存图片。于保存图片。n 其窗体及其控件布局如图其窗体及其控件布局如图5-105-10所示。所示。图图5-10 图片浏览器的窗体及控件布局图片浏览器的窗体及控件布局返回本节5.3.2 控件的属性设置控件

15、的属性设置本范例所使用的控件属性设置如表本范例所使用的控件属性设置如表5-105-10所示。所示。（1 1）image1image1（2 2）opendialog1opendialog1和和savedialog1savedialog1表5-10 控件属性设置表属性属性值image1.centerimage1.strechtruetrueopendialog1.filterbitmaps(*.bmp)|*.bmpsavedialog1filterbitmaps(*.bmp)|*.bmppanel1.caption欢迎使用图片浏览器button1.captionbutton21.caption打开文件保存文件返回本节5.3.3 为控件添加事件驱动程序为控件添加事件驱动程序（1 1）“打开文件打开文件”按钮的事件驱动程序。按钮的事件驱动程序。（2 2）“保存文件保存文件”按钮的事件驱动程序。按钮的事件驱动程序。返回本节5.3.4 图片浏览及其保存图片浏览及其保存对于已经制作的简易图片浏览器，可以对于已经制作的简易图片浏览器