我 们 在 使 用PowerBuilder
编 程 的 过 程 中， 总 是 不 可 避 免 地 要 用 到BLOB（Binary Large
Objects ， 大 型 二 进 制 对 象) 字 段 及 其 相 关 函 数。 这 里 我
们 来 介 绍 一 下 使 用BLOB 的 方 法
在 下 列 情 况
下， 我 们 可 能 要 在PowerScript 语 言 中 使 用 到BLOB 数 据 类 型：
这 里 罗 列 的
一 些 常 见 数 据 库 的 数 据 类 型， 其 它 类 型 的 数 据 库 请 查
询 该 数 据 库 的 相 关 文 档， 及PowerBuilder 的 用 户 手 册。
| DBMS | 数 据 类 型 |
| Watcom SQL | long binary, long varchar |
| Oracle | longraw |
| SQL Server | Image, Text |
| Informix | Text |
| MDI Gateway DB/2 | Long varchar |
| SQLBase | longvarchar |
| AllBase | longvarchar |
| DB2/2 | N/A |
在 数 据 窗 口 中 使 用OLE 列， 必 须 满 足
以 下 要 求：
在 数 据 窗 口 设 计 时， 选 择 菜 单Ojbect|OLE Database Blob， 然 后 在 设 计 窗 口 上 空 点 一 下， 这 时 会 出 现 这 样 的 一 个 屏 幕：
在 这 个 定 义 属 性 的 窗 口 中， 大 部 分 的 内 容 与 定 义 其 它 数 据 窗 口 列 属 性 的 窗 口 大 致 相 当， 只 有 这 个definition 项 与 其 它 列 不 同， 这 里 特 别 说 明 一 下：
上 面 几 项 内 容 的 填 写 较 易 理 解， 事 实 上 只 要 保 留 其 缺 省 值 就 可 以 了。
Key Clause: 这 一 项 的 内 容 是PowerBuilder 用 以 确 定 在select 和update 语 句 中 如 何 使 用WHERE 子 句 的。 一 般 我 们 使 用 这 一 个 表 的 主 键 就 可 以 了。 在 这 个 例 子 里， 就 相 当 于where 子 句 是"... where id =: id"。 请 注 意 理 解 这 两 个“id” 不 同 的 含 义 和 各 自 的 指 代。
File Template: 用 以 指 定 您 所 希 望 的 这 个OLE 对 象 使 用 的 公 共 模 板。 在 本 列 中， 我 们 保 留 其 为 空。 但 是 如 果 您 存 储 的 是word 文 件， 您 就 应 当 指 定 一 个DOC 文 件， 或 者 是normal.dot 文 件 等。
OLE Class: Description (Only Class is used) : 如 果 您 没 有 使 用 文 件 模 板， 您 就 应 当 在 这 里 指 定 一 个 应 用 类， 本 例 中 我 们 使 用PaintBrush。 如 果 您 打 算 使 用 的 应 用 类 并 没 有 包 括 在 这 个 下 拉 式 列 表 框 中， 您 就 应 当 在Windows 的 注 册 文 件 中 加 入： 在Windows3.1 中 您 应 当 修 改win.ini 文 件， 而 在Windows95 和Windows NT 中 您 应 当 调 用REGEDIT 应 用 程 序。
Client Name Expression: 这 个 表 达 式 是 用 以 得 到blob 列 中 每 行 的 不 同 值。 这 可 以 使OLE 对 不 同 的blob 行 引 用 不 同 的 对 象。
完 成 了 数 据 窗 口 的 设 计 后， 您 可 以 在 其 设 计 预 览 方 式 下 测 试 这 个OLE 列。 只 要 在 这 个 对 象 上 双 击，PowerBuilder 就 会 自 动 启 动 服 务 器 应 用， 进 入 一 个 新 文 件 的 编 辑 和 一 个 模 板 拷 贝 的 编 辑， 这 当 然 要 根 据 您 设 定 的 是 对 象 类 还 是 文 件 模 板。 为 了 使 这 个OLE 列 更 醒 目， 您 可 以 在 其 背 后 加 入 一 幅 图， 或 加 上 边 框。
当 您 确 实 地 在 这 一 列 中 存 储 了 数 据， 在 这 一 列 的 位 置 上 就 会 出 现 一 个 与 您 所 使 用 的OLE 服 务 器 应 用 相 对 应 的 图 标。
对OLE 列 的 更
新
OLE 列 只 能 够 在 数 据 窗 口 中 得 以
更 新。OLE 对 象 存 储 在OLE 对 象 容 器(container) 之 中， 并 为OLE 服
务 器 提 供 信 息 和 它 们 的 类 名。 当 其 中 的 内 容 更 新 时，
这 个 容 器 必 须 保 留。 这 个 功 能 是 设 计 在 数 据 窗 口 和OLE
列 对 象 之 内 的， 可 是 如 果 您 打 算 在 数 据 窗 口 之 外 更 新
这 个Blob 对 象， 您 就 将 破 坏 这 个 容 器。
使 用OLEActivate
函 数
如 果 您 打 算 使 用 程 序 激 活 一 个OLE
列， 而 不 是 等 用 户 双 击 这 个 列， 您 就 可 以 使 用OLEActivate
函 数。 这 个 函 数 的 语 法 为：
datawindowcontrol.OLEActivate ( row, column, verb )
此 外 您 打 算 以 非 零 的“verb” 值 激 活OLE 列， 也 需 要 用 到 这 个 函 数。 关 于“verb” 值 的 定 义， 是 根 据 不 同 的OLE 服 务 器 而 定 的， 您 必 须 查 询 所 使 用 的OLE 服 务 器 文 档。 使 用windows95 的 用 户 可 以 用REGEDIT 查 询 注 册 窗 口 的 数 据 库。 键 入REGEDIT /V 可 以 看 到 整 个 注 册 窗 口 的 树 型 列 表。
例 如 我 们 有 一 个 名 为dw_sound 的 数 据 窗 口， 其 中 有 一 个OLE 列 为“sound_blob” 包 含 的 是.wav 文 件， 我 们 希 望 使 用 微 软 的Quick Recorder 作 为OLE 服 务 器， 我 们 可 以 这 样 调 用 这 个 函 数
dw_sound.OLEActivate(5, "sound_blob", 1)
在Quick Recorder 中“verb” 值 为1 表 示 编
辑。
又 如：
dw_sound.OLEActivate(2, 4, 0)
表 示 激 活OLE 服 务 器 调 用 数 据 窗 口 中 第 二 行 第 四 列 的 数 据，“verb” 为0 表 示 演 奏 这 个.wav 文 件。
使 用Sybase 用 户 应 注 意 的 问 题：
Sybase 对 于OLE 列
的 控 制 同 其 它 数 据 库 比 有 一 些 小 小 的 限 制， 这 体 现 在Sybase
的text 数 据 类 型 上。 由 于Sybase 的 字 符 串 函 数 的 作 用， 作
为blob 字 段 的text 数 据 类 型 最 大 只 能 到4K。
在PowerScript 中 提 供 给 您 许 多 不 使 用OLE 而 处 理 大 型 二 进 制 大 型 的 方 法。 例 如 下 例 将 数 据 读 入Blob 列：
/* 本 段 代 码
将 读 取 一 个 超 过32766 字 节 的 文 件， 这 个 代 码 可 以 用 以
读 取Text 文 本 和Bitmap 图 象。*/
SetPointer(HOURGLASS!) int li_filenum, li_loops, li_counter long ll_filelen, ll_ll_bytes_read, ll_new_pos blob lb_ourblob, lb_tot_b ll_filelen = FileLength(sle_filename.text) // 获 取 文 件 的 大 小 li_filenum = FileOpen(sle_filename.text,STREAMMODE!, READ!,LOCKREAD!) // 指 定 该 文 件 为 只 读，li_filenum 为 这 个 文 件 的 句 柄 IF ll_filelen > 32766 THEN li_loops = ((ll_filelen-1)/32766) + 1 ELSE li_loops = 1 END IF /*FileRead() 函 数 不 支 持 读 取 大 于32K 的 文 本， 计 算 将 使 用 FileRead 函 数 的 次 数*/ // 读 文 件... FOR li_counter = 1 to li_loops ll_bytes_read = FileRead(li_filenum,lb_our_blob ) lb_tot_b = lb_tot_b + lb_our_blob ll_new_pos = ll_new_pos + ll_bytes_read FileSeek(li_filenum,ll_new_pos,FROMBEGINNING!) NEXT FileClose(li_filenum)
// 现 在lb_tot_b
已 包 括 了 文 件 的 内 容， 如 果 这 个 文 件 是 位 图 文 件， 可
对 其 使 用SetPicture 函 数， 如 果 是 文 本 文 件， 可 使 用string()
函 数 将 其 转 成text 文 件。
SetPicture(p_my_picture, lb_tot_b)
现 在 您 已 有 了 一 个 存 在blob 变 量 中 的BLOB 数 据， 您 可 以 将 其 写 入 数 据 库 中。 如 果 您 不 打 算 使 用OLE， 您 可 以 使 用 在PowerScript 中 使 用SELECTBLOB，UPDATEBLOB 语 句。 同 时， 必 须 满 足 以 下 条 件：
1. 您 必 须 在
数 据 库 中 定 义 有 与blob 数 据 类 型 相 等 的 数 据 类 型（ 如 在Watcom
中 的Long Varchar 和Long Binary， 在SQL Server 中 的Image， 在Oracle 中 的long
raw 等）。
2. 每 一 个 定 义 有blob 字 段 的 表 必
须 有 主 键。
3. blob 列 必 须 允 许 为 空。
4. 您 打 算 写 入blob 数 据 的 这 一 条
记 录 必 须 已 经 输 入 数 据， 也 就 是 说 您 只 能 使 用UPDATE 的
方 式 写 入blob 数 据。
5. SQL SERVER 的 用 户 必 须 在 使 用BLOB 功
能 前 将AUTOCOMMIT 设 置 为TRUE， 在BLOB 功 能 结 束 后 可 再 恢 复 回FALSE
状 态。 可 是 有 关BLOB 的 功 能 却 不 能 同 其 它 操 作 在 同 一 个
事 物 之 中。
例 如 我 们 在Watcom
数 据 库 中 有 一 个 称 作blob_table 的 表 其 中 有 两 个 字 段 分 别
为blob_id， 整 型， 主 键；blob_col 数 据 类 型 为long binary 并 且 将 其
设 置 为 允 许 为 空。 在 我 们 将blob 写 入 数 据 库 之 前， 我 们
必 须 将 主 键 的 值 写 入 数 据 库。 我 们 在 表 中 加 入 一 个 新
记 录，blob_id 的 值 为373， 而blob_col 设 置 为NULL。 然 后 我 们 执 行
下 面 的 代 码：
UPDATEBLOB blob_table SET blob_col = :lb_tot_b
WHERE blob_id = 373 USING SQLCA;
IF sqlca.sqlcode <> 0 then
messagebox("UPDATEBLOB 失 败", sqlca.sqlerrtext)
END IF
与UPDATEBLOB 相 对
应 的 是SELECTBLOB， 使 用SELECTBLOB 同 使 用SELECT INTO 语 句 基 本 相
同， 只 是 这 时 我 们 操 纵 的 是BLOB 数 据 类 型 而 已。 例 如：
blob lb_blob_var SELECTBLOB blob_col INTO :lb_blob_var FROM blob_test WHERE blob_id = 423 USING SQLCA;
现 在 您 就 可 以 通 过Powerscript 操 纵 得 到 的blob 变 量 了。
注 意： 您 可
以 使 用UPDATEBLOB 语 句 修 改 多 条 记 录， 使 这 些 记 录 具 有 相
同 的 值， 但 是 您 却 不 能 使 用SELECTBLOB 语 句 得 到 多 于 一 条
的 记 录。 您 必 须 使 用WHERE 条 件 确 保SELECTBLOB 查 询 到 的 是 一
行 记 录。
您 也 可 以 将 从 数 据 库 读 出 的blob
数 据 写 入 本 地 的 文 件 中， 方 法 与 读 文 件 相 似。
此 外PowerBuilder
还 提 供 了 其 它 三 个 有 关 对Blob 函 数 的 操 作： Blob(), BlobEdit()
and BlobMid()。 这 几 个 函 数 的 使 用 您 可 以 查 询 有 关 的 文
档。