精华区文章阅读

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

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

----
如何使用 BLOB 数据类型
　　我们在使用PowerBuilder 编程的过程中，总是不可避免地要用

到BLOB（Binary Large Objects ，大型二进制对象) 字段及其相关函数

。这里我们来介绍一下使用BLOB 的方法
何时使用BLOB 数据类型
　　在下列情况下，我们可能要在PowerScript 语言中使用到BLOB 数

据类型：
您要将OLE 对象（如图形、声音等）存入您的数据库中；
您要将大型的二进制对象存入您的数据库中；
您所要操纵的文本对象过大，以致于一般的字符串函数无法
对其操作；
您所使用数据库的数据类型PowerBuilder 不能支持，如SQLBase 中lo

ngvarchar 这一数据类型，所以您只能使用blob 函数对其进行操纵

。
您所使用的DBMS 中，怎样的数据类型可以在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 列
在数据窗口中使用OLE 列，必须满足以下要求：
包括OLE 列的表必须：
具有一个可以对应成为BLOB 的数据类型；
一个OLE 列必须允许为空；
必须有主键；
如果您使用的开发环境是SQL Server，您必须将AUTOCOMMIT 设置为T

RUE；
在数据窗口画笔中指定数据源的列名时，存储BLOB 数据的列不

能被包括；
　　在数据窗口设计时，选择菜单Ojbect|OLE Database Blob，然后在

设计窗口上空点一下，这时会出现这样的一个屏幕：
　　在这个定义属性的窗口中，大部分的内容与定义其它数据

窗口列属性的窗口大致相当，只有这个definition 项与其它列不

同，这里特别说明一下：
　　上面几项内容的填写较易理解，事实上只要保留其缺省值

就可以了。
　　 Key Clause: 这一项的内容是PowerBuilder 用以确定在select 和upd

ate 语句中如何使用WHERE 子句的。一般我们使用这一个表的主
键就可以了。在这个例子里，就相当于where 子句是"... where id
=: id"。请注意理解这两个“id” 不同的含义和各自的指代。
　　 File Template: 用以指定您所希望的这个OLE 对象使用的公共
模板。在本列中，我们保留其为空。但是如果您存储的是word 文

件，您就应当指定一个DOC 文件，或者是normal.dot 文件等。
　　 OLE Class: Description (Only Class is used) : 如果您没有使用文件

模板，您就应当在这里指定一个应用类，本例中我们使用Pain
tBrush。如果您打算使用的应用类并没有包括在这个下拉式列

表框中，您就应当在Windows 的注册文件中加入：在Windows3.1 中您

应当修改win.ini 文件，而在Windows95 和Windows NT 中您应当调用REG
EDIT 应用程序。
　　 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 Rec
order 作为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。
三、不使用OLE 方式对Blob 进行操作：
　　在PowerScript 中提供给您许多不使用OLE 而处理大型二进制大

型的方法。例如下例将数据读入Blob 列：
　　 /* 本段代码将读取一个超过32766 字节的文件，这个代码可

以用以读取Text 文本和Bitmap 图象。*/
SetPointer(HOURGLASS!)
int li_filenum, li_loops, li_counter long ll_filelen, ll_ll_bytes_read, ll_n

ew_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 函数，如果是文本文件，可使用stri
ng() 函数将其转成text 文件。
　　 SetPicture(p_my_picture, lb_tot_b)
　　现在您已有了一个存在blob 变量中的BLOB 数据，您可以将其

写入数据库中。如果您不打算使用OLE，您可以使用在PowerScrip
t 中使用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 bin
ary 并且将其设置为允许为空。在我们将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 数据写入本地的文件中，
方法与读文件相似。
四其它Blob 字段的函数
　　此外PowerBuilder 还提供了其它三个有关对Blob 函数的操作：
Blob(), BlobEdit() and BlobMid()。这几个函数的使用您可以查询有
关的文档。
--
我想自由自在地飞......
飞过大海...
飞过沙漠...
飞翔在星的夜空......
※ 来源:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 202.116.90.29]
----------------------------------------------------------------------------
----
[回到开始][上一层][下一篇]
欢迎访问Cterm主页

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

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

Database 版 (精华区)