| love我 |
 |
| 等级:社区游民 |
| 权限:版主 |
| 积分:15 |
| 金钱:3891 |
| 声望:16 |
| 经验:16 |
| 发帖数:839 |
| 注册:2007年12月15日 |
|
|
|
解决思路
我们可以用链接的方式导入图片文件，比如001.bmp，然后将指定文件夹中的文件依次更名为001.bmp，显示之后再将其改回原来的名字。
在实现之前，您得先将要显示的图片放在指定的文件夹内，比如本例中的C:\WINDOWS\Desktop\images。要说明的是本例中只能显示BMP格式，所以要先将图片的格式统一为BMP格式。
提取目录
在流程线上放一个计算图标，双击，打开其输入对话框，并输入如下的内容：
string1:=Catalog("C:\\WINDOWS\\Desktop\\images","f")
path:="C:\\WINDOWS\\Desktop\\images"
n:=0
循环显示
1、在流程线上再放一个决策图标，在其右侧放一个计算图标，命名为“改名”，双击打开其输入对话框，输入如下的内容：
file:=GetLine(string1,n)
RenameFile(path^"\\"^file,path^"\\"^"001.bmp")
图1
2、在此计算图标的右侧再放一个组图标，命名为“显示图片”，双击打开其流程线，然后在其流程线上放一个等待图标，并将等待图标的等待时间设置为2秒。（此处时间可根据需要进行调整。）
图2
在等待图标前的流程线上点击一下，将粘贴指针定位于等待图标之前，然后执行菜单命令“File→Import…”，打开“Import Which File?”对话框，找到图片所在的文件夹，随便导入一幅图片。不过，可千万别忘了，要将“Link To File”复选框选中，否则就什么也干不成了（如图1）。
双击该显示图标，打开其演示窗口，然后双击窗口中的图片，打开“Properties:Image”属性对话框，在“File”输入框中将文件名为“C:\WINDOWS\Desktop\images\001.bmp”。其中的文件路径要您的图片所在路径来改。其他的可分别为暂时保持不变（如图2）。
3、在“显示图片”组图标的右侧再放一个计算图标，命名为“恢复旧名”，双击打开其输入框，然后输入如下内容：
RenameFile(path^"\\"^"001.bmp",path^"\\"^file)
n:=n+1
4、双击决策图标，打开其属性对话框，将“Repeat”的值改为“Until True”，并在其下方的输入框中输入“n>LineCount(string1)+1”（如图3）。
图3
退出设置
在决策图标下方，放一个计算图标，命名为“退出”，双击，打开其输入窗口，输入：Quit()。
好了，程序到现在就算完成了。流程图如图4所示。执行一下看看吧。
图4
设置像素
通过这种方法导入的图片，显示时都以原来的大小进行显示，如果您希望每次显示都以相同的大小进行显示，那么还要做如下工作：
图5
双击组图标中的显示图标，打开其演示窗口，双击其中的图片，打开“Properties:Image”属性对话框，点击“Layout”标签，将“Display”的值选为“Scaled”，并将“Position”中“X”和“Y”的值均设为0，将“Size”的两个值分别设为640和480（如图5）。这样，每一幅图都会以640×480像素大小显示了。
|
|
|
|
|
|
所在位置：论坛首页 -> ┈┋电脑网络技术区┋┈ -> 图象媒体技术应用 -> 用Authorware显示BMP图像
资料
短消息