Database 版 (精华区)
发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标 题: 高效处理数据技巧
发信站: 哈工大紫丁香 (2000年12月30日19:41:20 星期六), 转信
高效处理数据技巧
Ｖｉｓｕａｌ Ｆｏｘ Ｐｒｏ（以下简称ＶＦＰ）是一种数据库应用程序开发
系统，可利用ＯＬＥ技术实现对象的链接与嵌入。本文介绍一个实现高效处理数据
的办法。
建立一个多媒体数据库Ｐｌａｙ．ＤＢＦ，设有三个字符型字段：ＢＭＰＦｉ
ｌｅ、ＷＡＶ—Ｆｉｌｅ、ＡＶＩＦｉｌｅ ，分别用于存放图片文件名（．ＢＭ
Ｐ）、声音文件名（．ＷＡＶ０和视频文件名（．ＡＶＩ）。
１、图片文件的快速处理建立表单Ｆｏｒｍ，放入图形控件Ｉｍａｇｅ１，
添加Ｐｌａｙ．ＤＢＦ至表单数据环境，将图形控件Ｉｍａｇｅ１的属性设置如下
：
Ｔｈｉｓｆｏｒｍ．Ｉｍａｇｅ１．Ｐｉｃｔｕｒｅ ＝Ｐｌａｙ．ＢＭＰＦ
ｉｌｅＴｈｉｓｆｏｒｍ．Ｒｅｆｒｅｓｈ（）
２、实现数字视频文件的快速播放利用ＶＦＰ 中：ＲＥＧＦＮ（）和Ｃａ
ｌｌＦＮ（）函数，可实现数字视频文件快速播放。Ｆｏｒｍ．ＩＮＩＴ事件中的
程序代码如下：
ｓｅｔ ｌｉｂｒａｒｙｔｏ Ｈｏｍｅ（）＋ｆｏｘｔｏｏｌｓ ．ｆｌｌ Ａｄｄ
ｉｔｉｖｅ
ｐｕｂｌｉｃ ｐｌａｙｆａｖｉ
ｐｌａｙｆａｖｉ ＝ｒｅｇｆｎ（″ＭＣＩＳｅｎｄＳｔｒｉｎｇ″，″ＣＣＩ
Ｉ＂，″Ｉ″，″ＭＭＳｙｓｔｅｍ″）
Ｏｐｅｎ ．Ｃｌｉｃｋ （打开视频文件操作）程序代码
ａｖｉｆｎａｍｅ ＝ｐｌａｙ．ａｖｉｆｉｌｅ
＝ｃａｌｌｆｎ（ｐｌａｙｆａｖｉ ，″Ｏｐｅｎ ＆ａｖｉｆｎａｍｅ ａｌｉ
ａｓ ＡＶＩ Ｔｙｐｅ ＡＶＩＶｉｄｅｏ″，″″，０，０）
＝ｃａｌｌｆｎ（ｐｌａｙｆａｖｉ ，″ｐｕｔ ＡＶＩ ｗｉｎｄｏｗａｔ １６
０１００３２０２４０″，″″，０，０）
ｔｈｉｓｆｏｒｍ．Ｒｅｆｒｅｓｈ（）
Ｐｌａｙ．Ｃｌｉｃｋ （播放ＡＶＩ 文件操作）程序代码：
＝ｃａｌｌｆｎ（ｐｌａｙｆａｖｉ ，″Ｐｌａｙ ＡＶＩ″，″″，０，０）
Ｔｏｐ ．Ｃｌｉｃｋ（回到片头操作，即影片的第一帧）程序代码：
＝ｃａｌｌｆｎ（ｐｌａｙｆａｖｉ ，″ＳＥＥＫ ＡＶＩ ＴＯ ＳＴＡＲＴ″，
″″，０，０）
Ｅｎｄ ．Ｃｌｉｃｋ（转到片尾操作，即影片的最后一帧）程序代码：
＝ｃａｌｌｆｎ（ｐｌａｙｆａｖｉ ，″Ｓｅｅｋ ＡＶＩ ｔｏ Ｅｎｄ″，″″
，０，０）
Ｃｏｎｆｉｇ ．Ｃｌｉｃｋ （显示视频处理配置操作）程序代码：
＝ｃａｌｌｆｎ （ｐｌａｙｆａｖｉ ，″ｃｏｎｆｉｇｕｒｅ ａｖｉ″，″″
，０，０）
Ｃｌｏｓｅ ．Ｃｌｉｃｋ （关闭视频文件操作）程序代码：
＝ｃａｌｌｆｎ（ｐｌａｙｆａｖｉ ，″ｃｌｏｓｅ ＡＶＩ″，″″，０，０）
３、声音文件的处理技巧ＶＦＰ 处理声音文件还可用编程方法控制播放．ＷＡ
Ｖ文件具体方法：
Ｓｅｔ Ｂｅｌｌ Ｔｏ Ｐｌａｙ．ＷＡＶＦｉｌｅ ，ＷＡＶ？？ＣＨＲ（７
）
若想通过键盘或鼠标中断ＷＡＶ文件的播放，可事先用Ｗｉｎｄｏｗｓ 的Ｒ
ｅｃｏｒｄｅｒ 录制一个“静音文件”Ｓｉｌｅｎｃｅ ．ＷＡＶ，即没有任何声
音的声音文件，同时在表单中设置“停止播放”的命令按钮，其Ｃｌｉｃｋ 代码
段为：Ｓｅｔ Ｂｅｌｌ Ｔｏ″Ｓｉｌｅｎｃｅ ．ＷＡＶ″，ＷＡＶ？？Ｃ
ＨＲ（７）操作者可通过“停止播放”按钮中断声音的播放。
（河北省任丘市９号信箱朱运喜０６２５５０）
返回首页
--
大海无边天做岸
山登绝顶我为风
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间：3.291毫秒