在FoxPro中放映位图文件

Author: 金寿日 Date: 1997-01-01

　　很多看图软件（如ＳＥＡ或ＱＰＥＧ等）都提供了图片的幻灯片播放功能，使我们能非常方便地查看图片文件。笔者在使用Ｆｏｘｐｒｏ　２．５　ｆｏｒ　Ｗｉｎｄｏｗｓ开发多媒体档案管理程序时，可利用系统提供的ＡＤＩＲ（）函数以及ＡＰＰＥＮＤ　ＦＲＯＭ　ＡＲＲＡＹ等命令设计一个程序，对硬盘、软盘及光盘中任意目录下的位图文件进行幻灯片式播放。实现方法如下：
#3　　１．建立一个文件名为ＳＪＫ．ＤＢＦ的数据库文件，库结构如下：
　　字段　字段名　类型　　长度
　　１　　ＷＪＭ　　Ｃ　　１２
　　２　　ＷＪＣＤ　Ｎ　　１０
　　３　　ＷＪＲＱ　Ｄ　　８
　　４　　ＷＪＳＪ　Ｃ　　８
　　５　　ＷＪＳＸ　Ｃ　　５
#3　　２．用ＡＤＩＲ（）函数将指定目录中所有的位图文件的信息（包括文件名、长度、日期、时间和属性）存放在数组中。其命令格式为：
#2　　ＡＤＩＲ（＜Ａｒｒａｙ，［，＜ｅｘｐＣ１＞，［，ｅｘｐＣ２＞］］）
　　其中ａｒｒａｙ为存放文件信息的数组名。数组中的列分别存放位图文件的５种信息（对应上述数据库的５个字段）。
#3　　３．用ＡＰＰＥＮＤ　ＦＲＯＭ　ＡＲＲＡＹ命令自动把数组的每一行作为一个记录加入数据库ＳＪＫ．ＤＢＦ中，并根据数组的相应行对记录赋值。
#3　　４．从数据库中的ＷＪＭ字段中取值（位图文件名），用以显示位图文件。
　　程序代码如下：
　　程序文件名ＶＩＥＷ．ＰＲＧ
　　ｓｅｔ　ｔａｌｋ　ｏｆｆ
　　ｓｅｔ　ｓａｆｅ　ｏｆｆ
　　ｓｅｔ　ｅｓｃａｐｅ　ｏｎ
　　ｕｓｅ　ｓｊｋ
　　ｚａｐ
　　ｄｉｒｎ＝ｇｅｔｄ（′ｃ：＼′，′选择磁盘及目录′）＆＆返回磁盘及目录名
　　ｗｊｚｓ＝ａｄｉｒ（ａｒ－ｂｍｐ，ｄｉｒｎ－′＊．ｂｍｐ′）
　　ｉｆ　ｅｍｐｔｙ（ｄｉｒｎ）　ｏｒ　ｗｊｚｓ＝０
　　ｗａｉｔ［没有选择目录或当前目录中没有位图文件］　ｗｉｎｄ
　　ｒｅｔｕ
　　ｅｎｄｉ
　　ａｐｐｅ　ｆｒｏｍ　ａｒｒａｙ　ｒａ－ｂｍｐ
　　ｒｅｌｅ　ａｒ－ｂｍｐ
　　ｃｌｅａ
　　ｇｏ　ｔｏｐ
　　ｏｎ　ｅｓｃａｐｅ　ｄｏ　ｆｈ　　＆＆按ＥＳＣ键停止并退出
　　ｍｏｒｅｌｏｏｐ＝．Ｔ．
　　ｓｃａｎ　ｗｈｉｌ　ｍｏｒｅｌｏｏｐ
　　ｎａｍｅ＝ｄｉｒｎ－ａｌｌｔ（ｗｊｍ）
　　＠０，０ｓａｙ　ｎａｍｅ　ｂｉｔｍａｐ　ｃｅｎｔｅｒ
　　ｗａｉｔ　［］　ｔｉｍｅｏｕｔ　２　　　＆＆设置延迟时间为２秒
　　ｃｌｅａ
　　ｅｎｄｓ
　　ｒｅｔｕ
　　ｐｒｏｃ　ｆｈ
　　ｍｏｒｅｌｏｏｐ＝．Ｆ．
　　ｒｅｔｕ
　　此外我们还可利用数据库中的文件名、长度、日期、时间和属性等信息设计一个位图文件列表用以选择一个位图文件进行查看操作。