用Delphi 制作播放器.docVIP

用Delphi 制作播放器 　　摘要：随着高清视频资源的日益丰富和用户对高清视频播放的需求，传统的播放器已不能满足高清视频播放的要求。以Windows XP作为开发平台，Delphi XE6为开发工具，采用FFOCX控件，编程实现播放音视频文件的功能是容易的。 　　关键词： Delphi；播放器；FFOCX控件 　　中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2016）10-0182-03 　　Abstract：As the high-definition video resources increasingly rich and user demand for high-definition video playback， traditional players cannot meet the requirements of the hd video playback. In Windows XP as a development platform， Delphi XE6 as development tool， using FFOCX control， programming is easy to realize the function of play audio and video files. 　　Key words：Delphi； Player； FFOCX Control 　　随着互联网的快速发展和多媒体的广泛应用，FLV、MP4等已成为网络主流媒体格式，Window附带的Media Player播放器必须升级才能播放此类媒体，这给没有即时升级该播放器就希望直接使用的用户带来了困难，尽管暴风影音、QQ影音和迅雷等能播放此类媒体，但前提是所用电脑必须安装了此类播放器，而且该类播放器的体积较大[1]。针对此问题，作者在Delphi XE6（简称XE6）中利用FFmpeg的功能编写了一个能播放目前主流媒体格式的播放器，且体积小，运行效果好，开发成本低，能够满足用户需求。 　　FFmpeg 不仅编解码速度高，而且功能强大，即可以处理音频、视频，又可以用于录制和转换，目前得到了普遍的应用，许多流行的影音播放器是基于FFmpeg开发的。FFmpeg包含一组领先的音频、视频编码解码库，其编解码库名为 libavcodec[2]。由于FFmpeg是在Linux平台下开发的， Windows用户使用不方便。FFOCX是FFmpeg的ActiveX OCX（控件名：ActiveFFmpegControls.ocx）版，用户可以直接在Windows下使用。FFOCX工具包含有编解码模块，用户根据需要使用相应的模块，就可实现要求的功能。 　　具体环境：Windows XP简体中文版和Delphi XE6。 　　控件下载地址：http：///。 　　1 建立开发环境 　　开发播放器有两种方法： 　　方法一：开发一个能播放音视频文件的控件， 然后用此控件开发播放器。 　　方法二：利用第三方控件开发播放器。 　　采用第一种方法，除需要较多的专业知识外，开发周期较长；采用第二种方法，不仅控件有现存的，开发周期短，而且因为控件开发者较专业，质量可保证。因此本文采用第二种方法。 　　FFOCX控件是ActiveX控件，不包含在XE6中，因此不能在XE6中直接使用， XE6中必须正确安装才能使用。XE6中安装FFOCX控件的步骤如下： 　　1.1 注册控件 　　Windows中注册FFOCX控件是通过运行regsvr32命令来实现的。命令格式： 　　regsvr32 ActiveFFmpegControls.ocx。 　　若该控件不在当前目录下，还需指明该控件的路径。 　　1.2 XE6中添加FFOCX控件 　　（1） 启动XE6。 　　（2） 新建一个默认名为Package的包。 　　（3） 运行部件（Component）菜单下的导入部件（Import Component）命令，打开导入部件（Import Component）对话框。 　　（4） 选择导入ActiveX 控件（Import ActiveX Control）单选项，单击按钮，显示已注册的ActiveX 控件（Registered ActiveX Controls）对话框。 　　（5） 在Registered ActiveX Controls对话框的部件列表框中选择选项，如图1所示。 　　（6） 单击按钮，弹出部件存放位置对话框，选中复选框。 　　（7） 单击按钮，弹出“创建单元”（Create Unit）对话框，如图2所示。 　　（8） 选择单选项，单击按钮，完成安装。 　　（9） 鼠标右击X