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变量picll_width = _blob2long(pic,18) //读图象宽度ll_height = _blob2long(pic,22) //读图象高度//依据指定的宽和高计算缩放比例bili_width = integer(sle_width.text) / ll_widthbili_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"F