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

图片存取问题??

songccs 2003-01-09 09:57:05
我把图片文件存入数据库中取出后怎样把它付给数据窗口中的picture控件???
...全文
6 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xuxutj 2003-01-09
gz
回复
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

社区成员

PowerBuilder 相关问题讨论
申请成为版主
社区公告
暂无公告