PowerBuilder中图像的动态显示.doc

Po werBuilder 中图像的动态显示 朱可云 谭彦彬 (基础部) 摘要 本文讨论了在 PowerBuilder 中动态显示图像的基本原理 , 并介绍了 两种具体的方法 , 即利用图像控件动态显示图像的方法以及利用数据窗口动态 显示图像的方法 。 关键词 分类号 PowerBuilder , 事件 ( Event ) , 脚本 ( Scrip t ) TN94111 PowerBuilder 是流行的数据库前端开发工具 。在 PowerBuilder 实际开发应用中 ,开 发者往往需要在应用中动态地显示图像 。我们介绍了在 PowerBuilder 中实现动态图像显 示的两种方法 。 通常 ,图像的动态显示 ,无非是在不同的时间点上 ,在同一位置显示不同的图像 。因 此以下两点是关键 。 (1) 时间点的取得 。这包括定时的实现 ,以及定时时间到能触发事件 ,在事件中执行 用户程序 。 PowerBuilder 提供了用于定时的定时函数 timer ( time timeinterval) ,并且在其窗口组 件 ( Window) 中提供了 timer 事件 。当窗口中的定时时间到时 , 该事件的脚本程序被执 行 。 (2) 图像的显示更新 。即在定时时间到所触发的事件中 ,显示新图像 。 在 PowerBuilder 中 ,图像的显示有两种方法 。一种方法是在窗口 ( Window) 组件中放 置一图像控件 ( Pict ure co nt rol) ,图像控件可显示一幅 BM P 或 RL E 文件 。另一种方法是 在窗口 ( Window) 放置一数据窗口 ( Datawindow) 控件 ,利用数据窗口显示图像 ,同样可以 显示一幅 BM P 或 RL E 图像 。 下面详细介绍这两种方法 。 利用图像控件动态显示图像 1 首先 ,在窗口中声明一 Bolb 类型的实例变量数组 ( 选择菜单 Declare 中的 Instantant Variable ,本例中声明的是 :Blo b p blo b 6 ) ,用于存放图像文件 ;声明一整型 (int ) 实例变量 收稿日期 :1997211212 第一作者 :男 ,1966 年生 ,硕士 ,讲师  — 52 — 信息工程学院学报 1998 年 (本例为 p num) 用于表示图像序号 。 然后在窗口中放置一图像控件 ,并在窗口 (设窗口名为 W - dpict ure) 的 Show Event 中 设置定时器 ,脚本如下 : / / Scrip t —Show for w- dpict ure real mytime / / 设置时间间隔 1 秒 ,即每秒更新一幅图像 mytime = 1 Timer ( mytime) 在窗口的 Open Event 中读入所有的图像文件 ,存入一 Blo b 数组 。比如 ,欲循环显示 6 幅图像 , 文件名分别是 f 1 . bmp ,f 2 . bmp ,f 3 . bmp ,f 4 . bmp ,f 5 . bmp ,f 6 . bmp , 则 ??? 口 的 Open 事件脚本如下 : / / Scrip t —Open for w- dpict ure int i ,i- file st ring Filename For i = 1 to 6 Filename =“f ”+ St ring (i) +“1bmp” i - file = FileOpen ( Filename ,St reamMode ! , Read ! ,LockRead !) FileRead (i- file ,p blobi FileClose (i- file) Next p num = 1 ) / / 读图像文件 / / 第一幅图像 / / 显示图像 , P - 1 为窗口 W - dpict ure 中图像控件名 p - 1 . Set Pict ure (p blob p num ) 要说明的是 :当图像文件比较大 ( 大于 32765 字节) 时 ,图像文件的读入过程比较复 杂 ,限于篇幅 ,不再详述 ,请参考有关资料 。 在窗口的 Timer Event 中更新图像 。即调用 Set Pict ure () 函数显示下一幅图像 。 / / Scrip t —Timer for W - dpict ure / / 下一幅图像 p num = p num + 1 If p num 6 Then p num = 1 End if p - 11Set Pict ure (p blob p num ) / / 若第六幅已显示 ,则显示第一幅 / / 显示图像 应当注意 ,为了不影响系统定时的精度