图片存取问题??

[songccs]

我把图片文件存入数据库中取出后怎样把它付给数据窗口中的picture控件???

[htp_htp]

//存入图片
li_FileNum=getfileopenname("打开图片",ls_road,ls_filename, "BMP", "BMP Files (*.BMP),*.BMP,"+"JPEG(*.JPEG;*.JPG),*.JPG;*.JPEG")
if li_FileNum=1 then
ll_row=tab_1.tabpage_1.dw_1.getrow()

li_userid=tab_1.tabpage_1.dw_1.getitemnumber(ll_row,'fuserid')
li_FileNum=fileopen(ls_road,StreamMode!,read!,shared!)//返回打开文件的句柄
if li_FileNum>0 then
ll_FLength=fileread(li_FileNum,lb_image_1)//将句柄赋给变量BLOB型IMNGE
if ll_FLength>0 then
do while ll_FLength>0
lb_image_2=lb_image_2+lb_image_1
ll_FLength=fileread(li_FileNum,lb_image_1)
loop

SQLCA.AUTOCOMMIT = TRUE;
updateblob sys_user

set fimage=:lb_image_2

where fuserid=:li_userid;
SQLCA.AUTOCOMMIT = FALSE;

if sqlca.sqlcode=0 then
p_1.setpicture(lb_image_2)
end if
//读出图片更简单

selectblob fimage into :lb_image from sys_user where fuserid=:i_userid;

if not isnull(lb_image) then

P_1.setpicture(lb_image)
end if

[killerdanny]

http://www.pdriver.com/display.asp?key_id=1495

[xuxutj]

gz