FUNCky 的使用

FUNCky 的使用 张健姿

01-6-26 下午 04:31:30

FUNCky 是 一 个PowerBuilder 应 用 程 序 库， 它 提 供 了16 位 和32 位 两 种 应用 库， 其 中 包 含 了 大 量 的 底 层 函 数， 免 去 了 开 发 人 员亲 自 动 手 使 用C 语 言 编 写 动 态 链 接 库 来 处 理 很 多 常 用的 诸 如 文 件 操 作、 字 符 串 操 作、 位 操 作 等 功 能。 使 用Funcky 能 大 大 提 高 开 发 效 率。 本 篇 简 单 讲 述 一 下 如 何 在PowerBuilder 中 使 用Funcky。

将FUNCky 加 到 您 的 应 用 中

FUNCky 提 供 了16 位 和32 位 的 运 行 库Funcky.dll、Funcky16.pbl 和 Funcky32.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 文 件 访 问， 块 操 作 和 内 存 操 作、 低 级 文件 操 作 等 这 几 类 函 数， 这 是 大 家 在 应 用 中 经 常 要 用 到的， 而PowerBuilder 本 身 却 不 提 供 的 操 作。

1. 我 们 经 常 在PowerBuilder 应 用 中 遇 到 有 关图 象 存 储 和 显 示 的 问 题， 而 在 这 方 面，PowerBuilder 本 身 的处 理 功 能 较 弱， 在 实 际 应 用 中 经 常 无 法 达 到 用 户 的 要求。 我 们 可 以 借 助Funcky 的 函 数 来 处 理 图 象 文 件。

例 如 在 应用 中 需 要 存 储、 查 询、 显 示 和 打 印 照 片， 一 般 开 发 人员 使 用OLE 嵌 入 的 方 法 来 做， 但 是 如 果 获 得 的 每 一 幅 照片 的 规 格 不 完 全 一 样， 这 样 显 示 和 打 印 的 效 果 就 很差， 采 用 这 种 方 法 制 作 通 行 证 或 身 份 证 上 的 照 片 几 乎是 不 可 用 的。 解 决 这 一 问 题， 所 使 用 的 较 简 单 的 方 法是， 以bitmap 格 式 在 数 据 库 中 存 放 图 象 数 据， 显 示/ 打 印时， 将 数 据 取 出 在 本 地 保 存 成 为 临 时 文 件， 根 据 图 象的 尺 寸 进 行 等 比 例 缩 放 显 示 在 图 象 控 件 上， 这 样 既 能达 到 界 面 的 要 求， 又 能 获 得 高 质 量 的 图 象。 我 们 可 以借 助Funcky 函 数 来 解 决 这 样 几 个 问 题：

o 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 的 压 缩 效 率 不 高， 但 速 度 很 快， 还 是 值 得 使 用的。

o 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 中 很 难 实 现 的 操 作。

2. 在 应 用 中 您 可 能 会 遇 到 直 接 读 取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：

//以读写和拒绝其他用户写的方式打开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

dbfclose(dbf)

//关闭打开的dbf文件

这 样直 接 读 取DBF 信 息， 给 应 用 带 来 的 好 处 是 显 而 易 见 的。

3. 对 于 数 据 库 的 用 户 管 理， 我 们 一 般会 采 用 在 数 据 库 中 建 立 一 个 表， 记 录 用 户 名 称、 口 令等 信 息， 在 用 户 登 录 时， 应 用 检 索 这 个 表 的 信 息， 同用 户 输 入 的 内 容 核 对。 按 照 一 般 系 统 管 理 的 规 定， 每一 个 用 户 的 口 令， 其 他 人 是 无 法 在 系 统 中 查 到 的。 即使 是 系 统 管 理 员 也 只 有 删 除 登 录 用 户 的 权 利， 而 无 法获 取 用 户 的 口 令。 可 是 由 于 系 统 管 理 员 可 以 读 取 数 据库 中 的 每 一 张 表， 因 此 他 是 就 有 机 会 看 到 用 户 的 登 录口 令 的， 因 此 我 们 应 当 在 口 令 字 段 存 入 数 据 库 前 对 其进 行 加 密。Funcky 提 供 了encrypt() 函 数 和decrypt() 函 数 就 可 以 用来 完 成 这 一 工 作， 这 就 避 免 了 程 序 员 手 工 编 写 加 密 算法 的 麻 烦 了。

此 外，Funcky 在16 位Windows 下 还 有 许 多 底 层 的 操 作， 包 括 中断 的 调 用 和 直 接 操 作 磁 盘 的 函 数， 可 以 用 以 软 件 加 密的 工 作， 这 里 就 无 法 详 述 了。 总 之，Funcky 提 供 了 较 多 的函 数 功 能， 有 条 件 的 读 者 可 以 在 以 后 的 应 用 中 尝 试 使用， 相 信 会 给PowerBuilder 的 开 发 带 来 一 定 的 方 便。