最近有些网友问及在数据库的字段来存取图片,下面我将曾经做的一个实例放在下面,希望能给大家有帮助.
建一个表,表结构如下:
id numberic 8,img_text varchar 20,picture image . id为主键
在PB中新建一个窗口,保存为w_image_test,在窗口中放置一个DW控件dw1,一个IMAGE控件p_1,3个按钮cb_1,cb_2,cb_3,分别是浏览、更新、退出,如下图所示:
在窗体的open事件中,代码如下:
dw_1.settransobject(sqlca)
dw_1.retrieve()
在dw_1的clicked事件中
if row >0 then
long ll
ll=this.object.id[row]
ll_id=ll
wf_display_image(ll)
end if
在dw_1的retrieveend事件中
if rowcount >0 then
this.scrolltorow(1)
long ll
ll=this.object.id[1]
ll_id=ll
wf_display_image(ll)
end if
建一个函数wf_display_image,参数为as_id 类型numeric
Blob Emp_id_pic
SELECTBLOB picture
INTO :Emp_id_pic
FROM img_test
WHERE id=:as_id
;
if isnull(len(emp_id_pic)) or len(emp_id_pic)=0 then
else
p_1.SetPicture(Emp_id_pic)
end if
在cb_1的clicked事件中
openwithparm(w_picture,'1',parent)
gs_commodity s_return
s_return=message.powerobjectparm
string ls_filename
ls_filename=s_return.picture_name
is_filename=ls_filename
//(以上代码中引用了一个结构,结构中picture_name 类型为string,可以不用结构,直接返回一个字符串。)
在cb_2的clicked事件中
UPDATEBLOB img_test SET picture = :iEmp_id_pic
WHERE id = :ll_id;
IF sqlca.SQLNRows > 0 THEN
COMMIT ;
messagebox('a','ok')
Else
messagebox('b','cancel')
end if
再新建一个窗体,用于查找要保存的图片文件,将新窗体保存为w_picture,在该窗体中放上一个listbox控件lb_file_list,一个image控件p_picture,2个按钮cb_ok,cb_cancel,分别为确定及取消。如下图所示:
在窗体的open事件中
lb_file_list.dirlist("c:\picture\*.jpg",0)
在lb_file_list的selectionchanged事件中
is_update_type='1'
is_newfilename=lb_file_list.selecteditem()
p_picture.picturename="c:\picture\" + is_newfilename
在cb_ok的clicked事件中
gs_commodity s_return
s_return.commodityid=is_commodityid
s_return.picture_name=is_newfilename
s_return.update_type=is_update_type
long l_1
l_1 = closewithreturn(parent ,s_return)
在cb_cancel的clicked事件中
is_update_type='0'
gs_commodity s_return
s_return.commodityid=is_commodityid
s_return.update_type=is_update_type
closewithreturn(parent,s_return)