基于Delphi的新型多媒体播放器的制作

维普资讯 http://www.cqvip.com ７卷　２删　浙江工贸职业技术学院学报　Ｖｌ０１．７　ＮＯ．２　２００７年６月　ＪＯＵＲＮＡＬ　ＯＦ　ＺＨＥＪＩＡＮＧ　ＩＮＤＵＳＴＲＹ＆ＴＲＡＤＥ　ＰＯ【　ＹＴＥＣＨＮＩＣ　Ｊｕｎ．２００７　基于Ｄｅｌｐｈｉ的新型多媒体播放器的制作　钱冬云　（浙江工贸职业技术学院，浙江温州　３２５００３）　摘要：针对现有常用多媒体播放器功能不全的局面，本文开发制作了基于Ｄｅｌｐｈｉ的新型多媒体播放器。此　播放器能实现多种常见的音频、视频格式和ＩＤ３ｖ１标签格式的播放，并具有歌词下载、歌词音乐同步播放功能。　关键词：媒体播放器；Ｄｅｌｐｈｉ；控件；歌词下载；同步播放　中图分类号：ＴＰ３１１．５２　文献标识码：Ｂ　文章编号：１６７２－０１－０５（２００７）０２—００５０—０５　Ｍａｋｉｎｇ　Ｎｅｗ　Ｍｕｌｔｉ－ｍｅｄｉａ　Ｐｌａｙｅｒ　Ｂａｓｅｄ　ｏｎ　Ｄｅｌｐｈｉ　Ｑｉａｎ　Ｄｏｎｇｙｕｎ　（Ｚｈｑｉａｎｇ　Ｉｎｄｕｓｔｒｙ＆Ｔｒａｄｅ　Ｐｏｌｙｔｅｃｈｎｉｃ　Ｗｅｎｚｈｏｕ　Ｚｈ￣ｉａｎｇ　３２５００３）　Ａｂｓｔｒａｃｔ：Ｉｎ　ｖｉｅｗ　ｏｆ　ｔｈｅ　ｌｅｓｓ　ｆｕｎｃｔｉｏｎ　ｏｆ　ｔｈｅ　ｍｕｌｔｉ—ｍｅｄｉａ　ｐｌａｙｅｒ　ｃｏｍｍｏｎｌｙ　ｕｓｅｄ，ｔｈｉｓ　ｐａｐｅｒ　ｄｅｖｅｌｏｐｓ　ａｎｄ　ｍａｋｅｓ　ｈｔｅ　ｎｅｗ　ｍｕｌｔｉ—ｍｅｄｉａ　ｐｌａｙｅｒ　ｏｎ　ｔｈｅ　ｂａｓｉｓ　ｏｆ　Ｄｅｌｐｈｉ．Ｔｈｉｓ　ｐｌａｙｅｒ　Ｃａｎ　ｐｌａｙ　ｖｉｄｅｏ　ｆｒｅｑｕｅｎｃｙ，ａｕｄｉｏ　ｆｒｅｑｕｅｎｃｙ　ａｎｄ　ｔｈｅ　Ｉｄ３ｖｌ　ｌａｂｅｌ　ｆｏｒｍ　ｗｈｉｃｈ　ａｒｅ　ｃｏｍｍｏｎｌｙ　ｓｅｅｎ　ａｎｄ　ａｌｓｏ　ｈａｓ　ｔｈｅ　ｆｕｎｃｔｉｏｎ　ｏｆ　ｄｏｗｎｌｏａｄｉｎｇ　ｈｔｅ　ｌｙｒｉｃｓ，ｐｌａｙｉｎｇ　ｔｈｅ　ｌｙｒｉｃｓ　ａｎｄ　ｍｕｓｉｃ　ｓｙｎｃｈｒｏｎｏｕｓｌｙ．　Ｋｅｙ　ｗｏｒｄｓ：Ｍｅｄｉａ　ｐｌａｙｅｒ；Ｄｅｌｐｈｉ；Ｃｏｎｔｒｏｌｓ；Ｌｙｒｉｃｓ　ｄｏｗｎｌｏａｄｉｎｇ；Ｐｌａｙ　ｓｙｎｃｈｒｏｎｏｕｓｌｙ‘　１　引言　多媒体信息作为计算机相关的重要的数据资源，如何实现有效的管理，并高效地处理这方面的资源，　这就需要一个多种功能兼备的媒体播放器。就目前多媒体播放器市场情况来看，Ｍｅｄｉａ　Ｐｌａｙｅｒ、Ｒｅａｌ　Ｐｌａｙｅｒ、　暴风影音等播放器占据着媒体播放的重要地位，而国产软件如：千千静听、酷狗等则只占据了音乐媒体播　放的部分份额且功能参差不齐，较难满足用户对视频和音乐的双重需求，因此开发一个功能综合的媒体　播放器软件具有较大的实际应用意义。因此，本文基于Ｄｅｌｐｈｉ开发平台，利用其自带的Ｔｍｅｄｉａｐｌａｙｅｒ控　件的媒体播放功能，二次开发出能支持目前大部分的媒体文件类型的并具有自己特色的播放器。　２播放器的功能　衡量媒体播放器质量的重要标志是其媒体播放功能，也就是媒体播放器能够播放媒体文件类型的种　类的多少，以及媒体播放器的人机交互性能强弱，人性化界面设计的好坏。本文设计的媒体播放器具有　如下几项功能：　（１）歌曲列表操作：新建列表、编辑列表、删除列表、删除列表全部、导出列表和导人列表等功能。　（２）播放模式：单曲播放、单曲循环、顺序播放、随机播放和选择播放的功能。　收稿日期：２００７—０４—２３　作者简介：钱冬云（ｔ９６９一　），女，硕士研究生，讲师。主要研究方向：数据库和数据挖掘。　５０　维普资讯 http://www.cqvip.com 钱冬云：基于Ｄｅｌｐｈｉ的新型多媒体播放器的制作　（３）功能按钮：暂停按纽、播放按纽、上一曲按纽、下一曲按纽、全屏按纽、打开／关闭歌词秀、　打开　关闭视频和声音控制的功能。　（４）媒体文件的筛选操作：全部支持文件、视频文件、音乐文件、Ｒｅａｌ　Ｐｌａｙｅｒ文件、Ｍｅｄｉａ　Ｐｌａｙｅｒ文　件、ＲＭ格式文件、ＭＰ３格式文件、ＷＭＶ格式文件、ＷＭＡ格式文件等功能。　（５）曲目操作：增加本地文件、增加网络文件、编辑、删除、搜索歌词、文件属性、数据库浏览、　播放、暂停、停止、上一曲和下一曲等功能。　３播放器功能的实现　由于Ｔｍｅｄｉａｐｌａｙｅｒ控件可以播放．ｍｐ３、．ｗｍａ、．ｗｍｖ、．ｒｍ、．ｒｍｖｂ、．ａｓｆ、．ｍｐｇ、．ｍｐｅｇ等多种格式的媒　体文件，所以利用Ｔｍｅｄｉａｐｌａｙｅｒ控件能较方便地实现各种常见媒体文件类型的播放。本文开发的媒体播　放器主要包含了以下几种功能：左右声道的控制、歌曲的选取、播放时问和播放进程的显示、歌词的同　步和歌曲的下载。　３．１数据源　在媒体播放器中，将当前播放的媒体文件的相关信息组成歌曲列表形式存放在数据库中。数据源使　用Ａｃｃｅｓｓ数据库，数据库ｐｌａｙｌｉｓｔ．ｄａｔ文件中的数据表ｌｉｓｔ中存放歌曲列表的相关信息：歌曲名称（ＮＡＭＥ）、　歌曲存放地址（ＡＤＤＲＥＳＳ）和歌曲所属列表（ＧＲＯＵＰ　ｏ　Ｄｅｌｐｈｉ可以通过多种接口形式访问Ａｃｃｅｓｓ数据　库文件，在此本文使用了ＡＤＯ：接口，访问控件为Ｔａｄｏｑｕｅｒｙ，通过Ｔａｄｏｑｕｅｒｙ实现了动态数据源的链接。　通过设置ａｄｏｑｕｅｒｙ的属性实现动态链接数据源，代码如下：　ＡＤＯｑｕｅｒｙ　１．Ｃｏｎｎｅｃｔｉ０ｎＳｔｒｉｎｇ：＝’Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．Ｏ；　Ｄａｔａ　Ｓｏｕｒｃｅ＝’＋ＥｘｔｒａｃｔＦｉｌｅｔ　ａｔｈ（Ａｐｐｌｉｃａｔｉｏｎ．ＥｘｅＮａｍｅ）＋’／ｐｌａｙｌｉｓｔ．ｄａｔ；Ｐｅｒｓｉｓｔ　Ｓｅｃｕｒｉｔｙ　Ｉｎｆｏ＝Ｆａｌｓｅ。；　３．２播放方法的控制　在窗体创建时动态链接数据库文件ｐｌａｙｌｉｓｔ．ｄａｔ，形成最新的播放列表并存放到ｌｉｓｔ数据表中。播放列　表的编辑可以通过编辑ｌｉｓｔ数据表的记录来实现。　播放器界面上的播放功能可通过单击“播放”、“暂停”、“停止”、“上一曲”、“下一曲”、“全屏”等　按钮来实现播放功能。“播放”和“停止”按钮的功能可以通过Ｔｍｅｄｉａｐｌａｙｅｒ控件的ｐｌａｙ方法和ｓｔｏｐ方　法来实现。“上一曲”和“下－ｔｔｔ￣”按钮的功能相类似，则必须考虑媒体文件的存在性问题，所以通过自　定义函数ｐｌａｙ，实现播放功能。“上一曲”播放功能实现如下：　ｉｆ　ｍｕｓｉｃｎｕｍ＜＝ｌ　ｔｈｅｎ　——ＢｉｔＢｔｎ１．Ｅｎａｂｌｅｄ：＝ｆａｌｓｅ　ｅｌｓｅ　ｐｌａｙ（ｍｕｓｉｃ—ｉｔｅｍ［ｍｕｓｉｃ—ｎｉｌｍ—ｌ】）；　ｅｎｄ；　３－３播放模式的实现　此播放器有“单曲播放”、“顺序播放”、“随机播放”和“选择播放”等播放模式。要实现以上的　功能需要设置计时器的ｏｎｔｉｍｅ事件，以及通过设置播放文件列表ＩｔｅｍＩｎｄｅｘ和ｃｏｕｎｔ属性来实现。　“顺序播放”功能的实现。首先判断是否超过播放文件的总数，如果已超过文件总数，则显示相应　５１　维普资讯 http://www.cqvip.com 浙江工贸职业技术学院学报　的提示，否则将文件列表序号加１，再利用ｐｌａｙＯ￣数来实现：　ｉｆ　ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢ０ｘ１．ｈｅｍＩｎｄｅｘ＜ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢ０ｘ１．Ｉｔｅｍｓ．Ｃｏｕｎｔ　ｔｈｅｎ　ｂｅｇｉｎ　ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢ０ｘ１．：＝ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢ０ｘ１．ｈｅｍＩｎｄｅｘ＋１；　ｐｌａｙ（ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．ｈｅｍｓ［ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｌｎｄｅｘ］）；　ｅｎｄ　ｅｌｓｅ　ｆｏｒｍ１．１ａｂｅｌ１．Ｃａｐｔｉｏｎ：＝’文件已经播放完毕’；　“随机播放”的功能实现类似于“顺序播放”，不同的是播放列表的序号要随机产生。代码如下：　Ｒａｎｄｏｍｉｚｅ；　ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｌｎｄｅｘ：＝ｒａｎｄｏｍ（ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｓ．Ｃｏｕｎｔ）；　ｐｌａｙ（ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．ｈｅｍｓ［ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｌｎｄｅｘ］）　“选择播放”的功能实现也类似与“顺序播放”，不同点在于按顺序播放时要判断文件列表的ｃｈｅｃｋｅｄ　属性。实现代码如下：　ｆ０ｍｌ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｌｎｄｅｘ：＝ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢ０ｘ１．ｈｅｍｌｎｄｅｘ＋１；　ｗｈｉｌｅ　ｆ（ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｌｎｄｅｘ＜ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｓ．Ｃｏｕｎｔ—１）ａｎｄ　（ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｃｈｅｃｋｅｄ［ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．ＩｔｅｍＩｎｄｅｘ】＝ｆａｌｓｅ））ｄ０　ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢ０ｘ１．Ｉｔｅｍｌｎｄｅｘ：＝ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢ０ｘ１．ｈｅｍｌｎｄｅｘ＋１；　ｉｆｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｌｎｄｅｘ＜＞ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｓ．Ｃｏｕｎｔ一１　ｔｈｅｎ　ｐｌａｙ（ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．ｈｅｍｓ［ｆｏｒｍ１．ＣｈｅｃｋＬｉｓｔＢｏｘ１．Ｉｔｅｍｌｎｄｅｘ］１：　３．４声音与声道的控制　直接调用ＡＣ９７模块，进行声音控制。代码如下：　ＳｈｅｌｌＥｘｅｃｕｔｅ（ｈａｎｄｌｅ，’ｏｐｅｎ’，’Ｃ：＼ＷＩＮＮｒｎｓｙｓｔｅｍ３２＼ｓｎｄｖ０ｌ３２．ｅｘｅ’，ｎｉｌ，ｎｉｌ，ｓｗ＿ＳＨＯＷＮＯＲＭＡＬ）；　／／Ｗｉｎ９ｘ及ｗｉｎ２ｋ系统等。　ＳｈｅｌｌＥｘｅｃｕｔｅ（ｈａｎｄｌｅ，’ｏｐｅｎ’，’Ｃ：＼ｗＩＮＤＯＷＳ＼ｓｙｓｔｅｍ３２＼ｓｎｄｖ０ｌ３２．ｅｘｅ’，ｎｉｌ，ｎｉｌ，ＳＷ—ＳＨＯＷＮＯＲＭＡＬ）；　／／ＷｉｎＸＰ系统等。　在ｕ　ｅｓ单元中加入ＭＭＳｙｓｔｅｍ，然后调用ｍｃｉｓｅｎｄｓｔｒｉｎｇ函数，可以较为容易地实现声道的控制：　左声道：ｍｃｉｓｅｎｄｓｔｒｉｎｇ（’ｓｅｔ　ａｌｌ　ａｕｄｉｏ　ｌｅｆｔ　ｏｎ’，ｎｉｌ，０，ｈａｎｄｌｅ）；　右声道：ｍｃｉｓｅｎｄｓｔｒｉｎｇ（　ｓｅｔ　ａｌｌ　ａｕｄｉｏ　ｆｉｇｈｔ　ｏｎ　，ｎｉｌ，０，ｈａｎｄｌｅ）；　立体声：ｍｃｉｓｅｎｄｓｔｒｉｎｇ（’ｓｅｔ　ａｌｌ　ａｕｄｉｏ　ａｌｌ　ｏｎ’，ｎｉｌ，０，ｈａｎｄｌｅ）。　３．５歌词功能　在播放歌曲时可以同步播放对应的歌词，歌词可以存放在多个本地文件夹中并通过搜索得到，如果对　应的本地文件夹不存在，则可以通过网络搜索来下载歌词文件，并自动匹配。　如果要通过网络下载歌词，首先可利用ｉｄｈｔｔｐ控件的Ｃｏｎｎｅｃｔ属性来确定网络是否连接在线。如果网　络连接成功，则通过百度搜索此歌曲的歌词。下载歌词流程图，如下：　５２　维普资讯 http://www.cqvip.com 钱冬云：基于Ｄｅｌｐｈｉ的新型多媒体播放器的制作　图１下载歌词的流程图　代码实现如下：　ｔｒｙ　ｓｔｒｍ：＝ＴＭｅｍｏｒｙＳｔｒｅａｍ．Ｃｒｅａｔｅ；／／ｌ￣请内存流　ｓｔｒｍ．Ｃｌｅａｒ；　ｔｒｙ　ｉｆ　ｈａｎｇ＝０　ｔｈｅｎ　ｈａｎｇ：＝１；　ｉｆ　ｎｏｔ　ＤｉｒｅｃｔｏｒｙＥｘｉｓｔｓ（ＳｔｒｉｎｇＧｒｉｄ　１．Ｃｅｌｌｓ［２，ｈａｎｇ］）ｔｈｅｎ　ｂｅｇｉｎ　ＩｄＨＴＦＰ１．Ｇｅｔ（ＳｔｒｉｎｇＧｒｉｄ１．Ｃｅｌｌｓ［２，ｈａｎｇ］，ｓｔｒｍ）；　ｓｔｒｍ．ＳａｖｅＴｏＦｉ］＿ｅ　ｄｉｔ３．Ｔｅｘｔ）；　ｓｈｏｗｍｅｓｓａｇｅ（’下载成功！’）；　Ｌｙｒｉｃｓ２（ｅｄｉｔ３．Ｔｅｘｔ）；／／读取歌词文件　ｉ：＝０：　ｅｎｄ；　／／以下对歌词、歌曲进行匹配　ｗｈｉｌｅ　ｆｏｒｍ１．ｍｅｄｉａＰｌａｙｅｒ１．Ｐｏｓｉｔｉｏｎ＞＝ｕｎｉｔ１．１ｒｃ．ｎ［ｉ】ｄｏ　ｂｅｇｉｎ　ｕｎｉｔ１．ｉ：＝ｕｎｉｔ１．ｉ＋ｌ；　ｕｎｉｔ１．１ｒｃｈ：＝ｕｎｉｔ１．１ｒｃｈ＋１８；　————ＳｅｎｄＭｅｓｓａｇｅ（ｔｂｒｍ２．ｒｉｃｈｅｄｉｔ１．Ｈａｎｄｌｅ，ＷＭ＿ＶＳＣＲＯＬＬ，ＭａｋｅＷＰａｒａｍ（ＳＢ＿ＴＨＵＭＢＰＯＳＩＴＩＯＮ，　ｕｎｉｔ　１．１ｒｃ一　０）；　ｅｎｄ；　ｅｎｄ　５３　维普资讯 http://www.cqvip.com 浙江工贸职业技术学院学报　ｅｌｓｅ　ｓｈｏｗｍｅｓｓａｇｅ（’下载失败！’）；　ｅｘｃｅｐｔ　ｓｈｏｗｍｅｓｓａｇｅ（’下载失败！’）：　ｅｎｄ；　ｆｉｎａｌｌｙ　ｓｔｒｍ．Ｆｒｅｅ；　３．６媒体文件的属性显示　媒体文件的属性可以通过ＩＤ３ｖｌ控件的属性得到，实现如下：　ＩＤ３ｖ１．ＲｅａｄＦｒｏｍＦｉｌｅ（ａｄｏｑｕｅｒｙ１．ＦｉｅｌｄＢｙＮａｍｅ（’ａｄｄｒｅｓｓ’）．ＡｓＳｔｒｉｎｇ）；　ｉｆ　ｆｏｒｍ５＝ｎｉｌ　ｔｈｅｎ　Ａｐｐｌｉｃａｔｉｏｎ．ＣｒｅａｔｅＦｏｒｍ（ＴＦｏｒｍ５，Ｆｏｒｍ５）；　ｆｏｒｍ５．Ｅｄｉｔ　１．Ｔｅｘｔ：＝ａｄｏｑｕｅｒｙ　１．ＦｉｅｌｄＢｙＮａｍｅ（’ａｄｄｒｅｓｓ’）．ＡｓＳｔｒｉｎｇ；　ｆｏｒｍ５．Ｅｄｉｔ２．Ｔｅｘｔ：＝ＩＤ３ｖ１．Ｔｉｔｌｅ；　ｆｏｒｍ５．Ｅｄｉｔ３．Ｔｅｘｔ：＝ＩＤ３ｖ１．Ａｒｔｉｓｔ；　ｆｏｒｍ５．Ｅｄｉｔ４．Ｔｅｘｔ：＝ＩＤ３ｖ１．Ｇｅｎｒｅ；　ｆｏｒｍ５．Ｅｄｉｔ５．Ｔｅｘｔ：＝ＩＤ３ｖ　１．Ａｌｂｕｍ；　ｆｏｒｍ５．Ｅｄｉｔ６．Ｔｅｘｔ：＝ＩＤ３ｖ　１．Ｙｅａｒ；　ｆｏｒｍ５．Ｍｅｍｏ１．Ｔｅｘｔ：＝ＩＤ３ｖ１．Ｃｏｍｍｅｎｔ；　ｓｈｏｗｍｅｓｓａｇｅ（’艺术家：’＋ＩＤ３ｖ１．Ａｒｔｉｓｔ＋’标题：’＋ＩＤ３ｖ１．Ｔｉｔｌｅ＋’专辑：’＋ＩＤ３ｖ１．Ａｌｂｕｍ＋’年代：’＋ＩＤ３ｖ１．Ｙｅａｒ＋’备　注：’＋ＩＤ３ｖ１．Ｃｏｍｍｅｎｔ＋’流派’＋ＩＤ３ｖ１．Ｇｅｎｒｅ）；　ｆｏｒｍ５．ｓｈｏｗ；　ＩＤ３ｖ　１．Ｆｒｅｅ；　４结束语　此多媒体播放器不仅可以实现媒体文件的播放，而且具备媒体文件的浏览功能，媒体文件的属性显　示、歌词同步、歌词的在线下载等功能。文章讨论了多媒体播放器制作的几个关键技术，并给出了程序　流程图和部分代码，此多媒体播放器的制作成功可为多媒体课件制作人员、网页开发人员及其他相关人　员提供借鉴。　参考文献：　［１］网冠科技．ＤＥＬＰＨＩ程序开发触类旁通百例［Ｍ］．北京：机械工业出版社，２００５．　［２］杨学全．Ｄｅｌｐｈｉ７．０程序设计［Ｍｌ北京：科学出版社，２００４．　［３］［澳］艾而斯．ＤｅｌｐｈｉＷｉｎ３２核心ＡＰＩ参考［Ｍ］．陈锐译．北京：中国电力出版社，２００４．　［４］明日科技．Ｄｅｌｐｈｉ开发技术大全——软件工程师典藏［Ｍ］．北京：人民邮电出版社，２００７．　【责任编辑：王积建）