Delphi编写媒体播放器两步曲

王焱
1997-01-01

#3　　１．屏幕界面制作
　　进入Ｄｅｌｐｈｉ集成环境后，屏幕将自动产生一个名为Ｆｏｒｍ１的窗体（该窗体可以任意改变大小）。我们首先在元件模板（Ｃｏｍｐｏｎｅｎｔ　Ｐａｌｅｔｔｅ）中的Ｓｙｓｔｅｍ页上选取ＭｅｄｉａＰｌａｙｅｒ（媒体播放器）组件加在Ｆｏｒｍ１中作为播放器的播放控制界面。在Ｓｔａｎｄａｒｄ页中选取ＭａｉｎＭｅｎｕ（主菜单）组件作为播放器的外部控制菜单。在Ｄｉａｌｏｇ页中选取ＯｐｅｎＤｉａｌｏｇ（打开对话框）组件并放入Ｆｏｒｍ１中。
　　在Ｆｏｒｍ１中双击ＭａｉｎＭｅｎｕ组件后并在Ｏｂｊｅｃｔ　Ｉｎｓｐｅｃｔｏｒ（对象检测器）中将其Ｃａｐｔｉｏｎ属性改为“文件＆Ｆ”，这时可以看见在Ｆｏｒｍ１．ＭａｉｎＭｅｎｕ１中第一个菜单项已成为“文件Ｆ”，用同样方法我们可以写出“文件”的子菜单“打开文件”、“关闭文件”、“ＣＤ播放”、“退出系统”，另外还可以写一个“帮助”菜单并在其子菜单中写入“关于．．．”。此外你还可以在Ｏｂｊｅｃｔ　Ｉｎｓｐｅｃｔｏｒ中的ＳｈｏｒｔＣｕｔ属性中选择你喜好的快捷方式。
　　在Ｆｏｒｍ１中双击ＯｐｅｎＤｉａｌｏｇ组件，在Ｏｂｊｅｃｔ　Ｉｎｓｐｅｃｔｏｒ中选择Ｆｉｌｔｅｒ属性，单击后面的图标“．．．”，在弹出的表格中填入多媒体文件类型及过滤器。如下表所示。
　　ＦｉｌｔｅｒＮａｍｅ　　Ｆｉｌｔｅｒ
　　所有文件（＊．＊）　　　＊．＊
　　声音文件（＊．ｗａｖ）　＊．ｗａｖ
　　ＭＩＤＩ序列发生器　　　＊．ｍｉｄ
　　　　　　　　　　　　　　＊．ｒｍｉ
　　ＶＣＤ播放　　　　　　　＊．ｄａｔ
　　Ｖｉｄｅｏｆｏｒ
　　Ｗｉｎｄｏｗｓ　　　　　＊．ａｖｉ
　　ＭｐｅｇＦｉｌｅｓ　　　＊．ｍｐｇ
　　　　　　　　　　　　　　＊．ｍｐｖ
　　　　　　　　　　　　　　＊．ｖｂｓ
　　最后把Ｆｏｒｍ１的Ｃａｐｔｉｏｎ属性改为“我的媒体播放器”。至此播放界面制作全部完成。
#3　　２．编写事件处理程序
　　①打开文件事件处理
　　单击文件菜单，选中并双击“打开文件”，填入下列语句：
　　ＯｐｅｎＤｉａｌｏｇ１．Ｅｘｅｃｕｔｅ；
　　ＭｅｄｉａＰｌａｙｅｒ１．ＤｅｖｉｃｅＴｙｐｅ：＝ｄｔＡｕｔｏＳｅｌｅｃｔ；
　　ＭｅｄｉａＰｌａｙｅｒ１．ＦｉｌｅＮａｍｅ：＝ＯｐｅｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ；
　　ｉｆ　ＭｅｄｉａＰｌａｙｅｒ１．ＦｉｌｅＮａｍｅ＜＞
　　ｔｈｅｎ　ＭｅｄｉａＰｌａｙｅｒ１．ｏｐｅｎ；
　　②关闭文件事件处理
　　单击“文件”菜单，选中并双击“关闭文件”，填入下列语句：
　　ＭｅｄｉａＰｌａｙｅｒ１．ＦｉｌｅＮａｍｅ：＝；
　　ＭｅｄｉａＰｌａｙｅｒ１．ｃｌｏｓｅ；
　　③ＣＤ播放事件处理
　　单击“文件”菜单，双击“ＣＤ播放”，填入下列语句：
　　ＭｅｄｉａＰｌａｙｅｒ１．ＤｅｖｉｃｅＴｙｐｅ：＝ｄｔＣＤＡｕｄｉｏ；
　　ＭｅｄｉａＰｌａｙｅｒ１．ＦｉｌｅＮａｍｅ：＝；
　　ＭｅｄｉａＰｌａｙｅｒ１．ｏｐｅｎ；
　　④退出系统事件处理
　　单击“文件”菜单，选中并双击“退出系统”，填入下列语句：
　　ｃｌｏｓｅ；
　　⑤关于．．．事件处理
　　在Ｄｅｌｐｈｉ的Ｆｉｌｅ主菜单中选择Ｎｅｗ．．．中的Ｆｏｒｍｓ下Ａｂｏｕｔ　ｂｏｘ。按照对话框中提示在Ｃａｐｔｉｏｎ属性中填入产品名、版本号，双击位图后出现一个Ｐｉｃｔｕｒｅ　Ｅｄｉｔｏｒ对话框，然后加载一个位图（＊．ｂｍｐ）。双击Ａｂｏｕｔ　ｂｏｘ对话框中ＯＫ按钮填入语句：
　　ＡｂｏｕｔＢｏｘ．ｃｌｏｓｅ；
　　回到Ｆｏｒｍ１，选中并双击“帮助”菜单下“关于．．．”，填入下列语句：
　　ＡｂｏｕｔＢｏｘ．ｓｈｏｗ；
　　至此，播放程序全部制作完毕。
　　（本程序在Ｄｅｌｐｈｉ　２．０下运行通过。）
 