浏览Windows下位图的小程序

Author: 张强 Date: 1997-01-01
　　通常，Ｗｉｎｄｏｗｓ中有很多的位图文件（后缀为．ＢＭＰ的文件），如果想一一查看这些位图文件，通常的做法是用画笔程序或其它的图形编辑软件来打开，这样做很麻烦，本人用Ｆｏｘｐｒｏ　２．５　ｆｏｒ　Ｗｉｎｄｏｗｓ编写了一个小程序，使这一过程变得很简单，具体过程如下：
　　一、建立一个名为ＢＭＰ．ＴＸＴ的文本文件，使其包含指定盘上的所有位图文件名。本人的做法是使用ＦＬ．ＥＸＥ，即键入ＦＬ　＊．ＢＭＰ＞ＢＭＰ．ＴＸＴ。
　　二、建立一个名为ＢＭＰＬＩＳＴ．ＤＢＦ的数据库，包括ＮＡＭＥ（字符型，长度为６０）字段，ＰＨＯＴＯ（通用型）字段。
　　三、编写一个小程序，将位图文件名转换成规范的格式存入ＮＡＭＥ字段，并将该文件存入通用型ＰＨＯＴＯ字段，源程序如下：
　　ＳＥＴ　ＴＡＬＫ　ＯＦＦ
　　ＵＳＥ　ＢＭＰＬＩＳＴ
　　ＡＰＰＥ　ＦＲＯＭ　ＢＭＰ．ＴＸＴ　ＳＤＦ　　　＆＆将ＢＭＰ．ＴＸＴ中的每一行作为记录存入ＮＡＭＥ字段
　　ＤＥＬＥ　ＡＬＬ　ＦＯＲ　ＥＭＰＴＹ（ＮＡＭＥ）　　　＆＆删除所有的空记录
　　ＰＡＣＫ
　　ＭＬ＝＂＂
　　ＤＯ　ＷＨＩＬＥ　！ＥＯＦ（）
　　　ＲＥＰＬ　ＮＡＭＥ　ＷＩＴＨ　ＡＬＬＴＲＩＭ（ＵＰＰＥ（ＮＡＭＥ））　　　＆＆将所有的记录转换成大写
　　　　ＮＵＭ＝ＡＴ（＂．ＢＭＰ＂，ＮＡＭＥ）　　　＆＆找出后缀ＢＭＰ在记录中的位置
　　　　ＩＦ　ＮＵＭ＝０　　　＆＆表示该记录记载的是目录而不是文件
　　　　　　ＭＬ＝ＡＬＬＴＲＩＭ（ＮＡＭＥ）＋＂＼＂
　　　　ＥＬＳＥ
　　
　　ＲＥＰＬ　ＮＡＭＥ　ＷＩＴＨ　ＭＬ＋ＳＵＢＳ（ＮＡＭＥ，１，ＮＵＭ＋３）　　　＆＆转换成位图文件含目录的全名
　　　　ＡＰＰＥ　ＧＥＮＥ　ＰＨＯＴＯ　ＦＲＯＭ　ＡＬＬＴＲＩＭ（ＮＡＭＥ）　　　＆＆将该位图文件存入ＰＨＯＴＯ字段
　　　　ＥＮＤＩＦ
　　　　ＳＫＩＰ
　　ＥＮＤＤＯ
　　ＤＥＬＥ　ＡＬＬ　ＦＯＲ　ＡＴ（＂．ＢＭＰ＂，ＮＡＭＥ）＝０　　　＆＆删除只表示目录的记录
　　ＰＡＣＫ
　　ＲＥＴＵ
　　四、编写显示位图文件的程序：
　　ＳＥＴ　ＴＡＬＫ　ＯＦＦ
　　ＤＥＦＩ　ＷＩＮＤ　ＭＡＩＮ　ＴＩＴＬ　＂Ｗｉｎｄｏｗｓ位图浏览＂；
　　ＦＬＯＡ　ＳＨＡＤ　ＧＲＯＷ；
　　ＣＯＬＯ　ＳＣＨＥ　１３；
　　ＦＯＮＴ　＂宋体＂，１２；
　　ＡＴ　２，２　ＳＩＺＥ　２０，７０　　　＆＆定义一个窗口用以显示位图
　　ＭＯＶＥ　ＷＩＮＤ　ＭＡＩＮ　ＣＥＮＴ　　　＆＆将该窗口置中
　　ＡＣＴＩ　ＷＩＮＤ　ＭＡＩＮ　　　＆＆打开该窗口
　　ＣＬＥＡ
　　ＵＳＥ　ＢＭＰＬＩＳＴ
　　ＣＯＰＹ　ＴＯ　ＡＲＲＡＹ　ＴＭ　ＦＩＥＬ　ＮＡＭＥ　　　＆＆将位图文件名放入数组
　　＆＆定义一个上弹式菜单，以位图文件名作为菜单项
　　ＸＸ＝１
　　＠３，０　ＭＥＮＵ　ＴＭ，ＡＬＥＮ（ＴＭ），１０　ＴＩＴＬ　＂位图名称列表＂
　　ＤＯ　ＷＨＩＬＥ　．Ｔ．
　　　　ＲＥＡＤ　ＭＥＮＵ　ＴＯ　ＸＸ
　　　　ＩＦ　ＸＸ＝０
　　　　ＥＸＩＴ
　　　　ＥＮＤＩＦ
　　　　ＬＯＣＡ　ＦＯＲ　ＮＡＭＥ＝ＴＭ（ＸＸ）
　　　　＠０，０　ＳＡＹ　ＰＨＯＴＯ
　　　　ＷＡＩＴ　＂显示＂＋ＡＬＬ　ＴＲＩＭ（ＮＡＭＥ）＋＂位图文件＂　ＷＩＮＤ
　　ＥＮＤＤＯ
　　ＳＥＴ　ＣＯＬＯ　ＴＯ
　　ＳＥＴ　ＴＡＬＫ　ＯＮ
　　ＣＬＥＡ
　　ＣＬＥＡ　ＡＬＬ
　　ＲＥＴＵ
　　灵活地运用Ｆｏｘｐｒｏ　ｆｏｒ　Ｗｉｎｄｏｗｓ中提供的ＧＥＮＥＲＡＬ型字段，我们可以编写和上面相类似的程序来浏览其它的Ｗｉｎｄｏｗｓ对象，如ＯＦＦＩＣＥ软件中的ＷＯＲＤ文件和ＥＸＣＥＬ文件等，并可以很方便地在自己的应用程序中实现与这些优秀软件的动态数据交换，有兴趣的朋友不妨一试。