图片存取问题??

songccs 2003-01-09 09:57:05
我把图片文件存入数据库中取出后怎样把它付给数据窗口中的picture控件???
...全文
29 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧