Database 版 (精华区)

发信人: lizhenguo (夸父·追日), 信区: Database
标  题: 36
发信站: 哈工大紫丁香 (2001年09月26日18:48:22 星期三), 站内信件

 bbs.hit.edu.cn
PowerBuilder专栏
[回到开始][上一层][下一篇]
----------------------------------------------------------------------------
----
发信人: carsam (独自偷...), 信区: Database
标 题: PowerBuilder应用开发系列讲座(36)
发信站: 逸仙时空 Yat-sen Channel (Wed Jan 5 12:37:31 2000), 站内信件
PowerBuilder应用开发系列讲座(36)
----------------------------------------------------------------------------

----
FUNCky 的使用
　　 FUNCky 是 一 个PowerBuilder 应 用 程 序 库， 它 提 供 了16 位 和32 位 两

种 应 用 库， 其 中 包 含 了 大 量 的 底 层 函 数， 免 去了 开 发 人 员 亲
自 动 手 使 用C 语 言 编 写 动 态 链 接 库 来 处 理 很多 常 用 的 诸 如 文 件

操 作、 字 符 串 操 作、 位 操 作 等 功 能。 使用Funcky 能 大 大 提 高 开 发

效 率。 本 篇 简 单 讲 述 一 下 如 何 在PowerBuilder 中 使 用Funcky。
将FUNCky 加 到 您 的 应 用 中
　　 FUNCky 提 供 了16 位 和32 位 的 运 行 库Funcky.dll、Funcky16.pbl 和 Fun

cky32.dll、Funcky32.pbl， 应 用 程 序 调 用 的 函 数 或 过 程 都在 该 动 态
链 接 库 和PBL 文 件 中。 安 装 完FUNCky 后， 两 个 动 态 链接 库 被 拷 贝 到

Windows 的System 目 录 下， 两 个PBL 则 在 安 装 的 目录 下。 使 用 时 将 用

到 的 函 数 在 应 用 的Global External Function 或Local External Function 中

作 相 应 的 声 明 即 可， 如 需 使 用 全 部函 数 则 可 以 将 整 个PBL 文 件
加 到 您 应 用 的 搜 索 库 中。 函 数原 型 定 义 可 以 从 相 应 函 数 帮 助
中 获 得。
　　 除 帮 助 文 件 中 提 供 的 函 数 以 外， 在funcky.dll 中 还有 其 它 的
一 些 未 公 开 的 函 数 在Funcky.pbl 中 被 调 用， 这 些 函数 用 户 也 可 以

使 用。
使 用Funcky 要 注 意 的 几 点
在 应 用 中， 只 将 使 到 的 函 数 加 到 函 数 原 型 声 明 中 去，不 要 声 明

过 多 的 函 数 原 形， 否 则 运 行 时 系 统 可 能 会 报 函数 原 型 不 匹 配
错 误；
如 只 需 使 用 少 量 函 数， 用 户 尽 量 不 要 将FUNCky.pbl 加 到 应用 中 使

用， 因 为 那 将 需 要 大 量 的 函 数 原 型 声 明 才 能 编 译通 过；
某 些 函 数 原 型 是 以"_" 开 头 的 定 义， 这 些 函 数 都在Funcky.pbl 中 有

定 义， 使 用 者 可 以 直 接 使 用 该 函 数， 将Funcky.pbl 中 的 代 码 直 接

拷 贝 到 自 己 的pbl 中， 或 自 己 编 写 相 关 的PowerBuilder 函 数。
Funcky 函 数 分 类
　　 Funcky 一 共 提 供 了12 类 的 函 数：
位 操 作 函 数
块 和 内 存 操 作 函 数
数 据 转 换 函 数
DBF 文 件 访 问 函 数
磁 盘 访 问 函 数
DOS 环 境 函 数
日 期 函 数
低 级 文 件 操 作 函 数
转 换 函 数
转 换 函 数
字 符 串 操 作 函 数
系 统 资 源 函 数
时 间 操 作 函 数
举 例 说 明
　　 下 面 我 们 举 几 个 例 子， 说 明 一 下 这 些 函 数 的 使用。 我 们 着

重 介 绍 的 是DBF 文 件 访 问， 块 操 作 和 内 存 操 作、低 级 文 件 操 作
等 这 几 类 函 数， 这 是 大 家 在 应 用 中 经 常 要用 到 的， 而PowerBuilde

r 本 身 却 不 提 供 的 操 作。
我 们 经 常 在PowerBuilder 应 用 中 遇 到 有 关 图 象 存 储 和 显 示的 问 题

， 而 在 这 方 面，PowerBuilder 本 身 的 处 理 功 能 较 弱， 在实 际 应 用 中

经 常 无 法 达 到 用 户 的 要 求。 我 们 可 以 借 助Funcky 的 函 数 来 处 理

图 象 文 件。
　　 例 如 在 应 用 中 需 要 存 储、 查 询、 显 示 和 打 印 照 片，一 般 开
发 人 员 使 用OLE 嵌 入 的 方 法 来 做， 但 是 如 果 获 得 的每 一 幅 照 片
的 规 格 不 完 全 一 样， 这 样 显 示 和 打 印 的 效 果就 很 差， 采 用 这 种

方 法 制 作 通 行 证 或 身 份 证 上 的 照 片 几乎 是 不 可 用 的。 解 决 这
一 问 题， 所 使 用 的 较 简 单 的 方 法 是，以bitmap 格 式 在 数 据 库 中
存 放 图 象 数 据， 显 示/ 打 印 时， 将数 据 取 出 在 本 地 保 存 成 为 临
时 文 件， 根 据 图 象 的 尺 寸 进行 等 比 例 缩 放 显 示 在 图 象 控 件 上，

这 样 既 能 达 到 界 面 的要 求， 又 能 获 得 高 质 量 的 图 象。 我 们 可
以 借 助Funcky 函 数 来解 决 这 样 几 个 问 题：
bitmap 图 象 文 件 存 储 效 率 不 高， 在 数 据 库 中 占 据 的 空 间过 大，
可 在 存 入 前 使 用fcompress 函 数 对 图 象 文 件 进 行 压 缩：
　　 函 数 声 明：
FUNCTION long fcompress(string s,string d)
LIBRARY "FUNCky32.DLL"
//定义压缩函数原型
SCRIPT：
retcode = fcompress(ls_path, "_tmp.tmp")
//压缩文件
choose case retcode
...//检查返回值
End choose
...//将压缩后的文件保存到数据库中
　　 fdcompress 的 压 缩 效 率 不 高， 但 速 度 很 快， 还 是 值得 使 用 的。

bitmap 图 象 的 宽 和 高 保 存 在 该 文 件 的 第18 和 第22 个 字 节中， 不 用

Funcky 函 数 很 难 读 出 这 两 个 字 节 的 信 息。 下 面 一 段程 序 是 解 压

缩 和 计 算BMP 图 象 的 宽 和 高
　　 函 数 声 明：
//定义从二进制数据中读取一个长整形函数原型
FUNCTION long _blob2long(ref blob b, uint o)
LIBRARY "FUNCky32.DLL"
//定义解压缩函数原型
FUNCTION long fdcompress(string s,string d)
LIBRARY "FUNCky32.DLL"
SCRIPT：
... //从数据库中将数据取出保存在文件$fgd.bmp中
status = fdcompress("$fgd.bmp","_fgd.bmp")
//解压缩
choose case status
...//检查返回值
End choose
...//将_fgd.bmp读入blob变量pic
ll_width = _blob2long(pic,18) //读图象宽度
ll_height = _blob2long(pic,22) //读图象高度
//根据指定的宽和高计算缩放比例
bili_width = integer(sle_width.text) / ll_width
bili_height = integer(sle_height.text) / ll_height
//得到显示宽度和高度
p_width = ll_width * min(bili_width, bili_height)
p_height = ll_height * min(bili_width, bili_height)
　　 我 们 可 以 看 到Funcky 函 数 的 使 用 非 常 简 单， 能 够轻 松 做 到 在

PowerBuilder 中 很 难 实 现 的 操 作。
在 应 用 中 您 可 能 会 遇 到 直 接 读 取DBF 文 件 的 情 况， 处 理这 类 问
题 的 方 法 一 般 有 两 种 经 典 的 方 法： 一 是 使 用 数 据窗 口 读DBF 文
件， 二 是 指 定 一 个 磁 盘 目 录 作 为 数 据 区， 用ODBC 连 接 这 个 目 录

， 使 用 时 规 定 用 户 必 须 将DBF 文 件 拷 贝 到 这个 目 录 下。 但 是 这
两 种 方 法 都 缺 乏 灵 活 性， 而 在Funcky 中 却提 供 了 直 接 读DBF 文 件
的 函 数。 在Funcky32.pbl 中 有 一 个dbffieldget() 函 数 可 以 获 取 该DBF 文

件 的 字 段 名 称。 不 过 根 据 我 们“ 尽 量不 使 用Funcky32.pbl” 的 原 则

， 自 己 手 工 编 写 一 个 实 现 该 功 能的 代 码。
　　 定 义 外 部 函 数：
FUNCTION long dbfOpen(string f, int o)
LIBRARY "FUNCky32.DLL"
FUNCTION boolean dbfEof(long d)
LIBRARY "FUNCky32.DLL"
FUNCTION int dbfClose(long d)
LIBRARY "FUNCky32.DLL"
FUNCTION long dbfSkip(long d, long c)
LIBRARY "FUNCky32.DLL"
FUNCTION uint dbfFieldSize(long d, int p)
LIBRARY "FUNCky32.DLL"
SUBROUTINE _dbfFieldGet(long d,int p,ref string b)
LIBRARY "FUNCky32.DLL"
FUNCTION int dbfFieldPos(long d,string n)
LIBRARY "FUNCky32.DLL"
SCRIPT：
SCRIPT：
//以读写和拒绝其他用户写的方式打开dbf数据库
do while 1 = 1
dbf = dbfopen(ls_file, 2 + 32)
if dbf <> 0 then
exit
end if
loop
//读dbf数据
//ii_xx_count是需要读的dbf字段的总数
//is_dbf[]是字段名称数组
do while not dbfeof(dbf)
for i = 1 to ii_xx_count
p = dbffieldpos(dbf, upper(is_dbf[i]))
//获取字段的位置
ls_tmp = space(dbffieldsize(dbf, p) + 1)
//根据字段的大小初始化存放数据的变量
_dbffieldget(dbf, p, ls_tmp)
//将数据读入到ls_tmp中
next
dbfskip(dbf, 1)
//使dbf操作指向下一条记录
loop
loop
dbfclose(dbf)
//关闭打开的dbf文件
　　 这 样 直 接 读 取DBF 信 息， 给 应 用 带 来 的 好 处 是 显而 易 见 的。

对 于 数 据 库 的 用 户 管 理， 我 们 一 般 会 采 用 在 数 据 库 中建 立 一
个 表， 记 录 用 户 名 称、 口 令 等 信 息， 在 用 户 登 录 时，应 用 检 索
这 个 表 的 信 息， 同 用 户 输 入 的 内 容 核 对。 按 照 一般 系 统 管 理 的

规 定， 每 一 个 用 户 的 口 令， 其 他 人 是 无 法 在系 统 中 查 到 的。 即

使 是 系 统 管 理 员 也 只 有 删 除 登 录 用 户的 权 利， 而 无 法 获 取 用
户 的 口 令。 可 是 由 于 系 统 管 理 员 可以 读 取 数 据 库 中 的 每 一 张
表， 因 此 他 是 就 有 机 会 看 到 用户 的 登 录 口 令 的， 因 此 我 们 应
当 在 口 令 字 段 存 入 数 据 库前 对 其 进 行 加 密。Funcky 提 供 了encrypt

() 函 数 和decrypt() 函 数就 可 以 用 来 完 成 这 一 工 作， 这 就 避 免 了
程 序 员 手 工 编 写加 密 算 法 的 麻 烦 了。
　　 此 外，Funcky 在16 位Windows 下 还 有 许 多 底 层 的 操 作，包 括 中 断

的 调 用 和 直 接 操 作 磁 盘 的 函 数， 可 以 用 以 软 件加 密 的 工 作，
这 里 就 无 法 详 述 了。 总 之，Funcky 提 供 了 较 多的 函 数 功 能， 有 条

件 的 读 者 可 以 在 以 后 的 应 用 中 尝 试 使用， 相 信 会 给PowerBuilder
的 开 发 带 来 一 定 的 方 便。
--
我想自由自在地飞......
飞过大海...
飞过沙漠...
飞翔在星的夜空......
※ 来源:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 202.116.90.29]
----------------------------------------------------------------------------
----
[回到开始][上一层][下一篇]
欢迎访问Cterm主页

--
《列子·汤问》：“夸父不量力，欲追日影，逐之于隅谷之际。渴欲 得饮，赴饮河渭
。河渭不足，将走北饮大泽。未至，道渴而死。”

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.229.154]