主页
API 调用
基础类
控件与界面
数据库相关
DataWindow
项目管理
Web 应用
脚本语言

图片存取问题??

songccs 2003-01-09 09:57:05

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

...全文

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

xuxutj 2003-01-09

回复赞

killerdanny 2003-01-09

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

回复赞

htp_htp 2003-01-09

//存入图片
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

回复赞

发动态

发帖子

PowerBuilder

创建于2007-09-28

加入

813

社区成员

6.6w+

社区内容

PowerBuilder 相关问题讨论

申请成为版主

社区公告

暂无公告