在PB中存图片入数据库及显示图片

摘自:http://www.xicc.cn/User0/109/Show.asp?/_articleid/549.html

1、选择图片

string ls_pathname, ls_filename
integer li_value
li_value = GetFileOpenName("选择照片", &

+ ls_pathname, ls_filename, "图片文件","jpg File (*.jpg),*.jpg,bmp file(*.bmp),*.bmp,gif file(*.gif),*.gif")

IF li_value = 1 THEN

P_1.picturename=ls_pathname;

Elseif li_value=-1 then
MessageBox("选择照片","打开文件错误!")
End If

2、获取图片的二进制数据

//处理照片文件数据开始
string ls_photofile
integer li_filenum
integer li_loops
integer li_counter
blob lb_picture
long ll_filelen
blob ll_read
ls_photofile=p_1.picturename;
ll_filelen=filelength(ls_photofile)
li_filenum=fileopen(ls_photofile,streammode!,read!,lockread!)
//*fileread()函数不支持读取大于32k的文本，计算将使用fileread函数的次数 */
if ll_filelen>32765 then
li_loops=((ll_filelen - 1)/32765)+1
else
li_loops=1
end if
//读文件
for li_counter=1 to li_loops
fileread(li_filenum,ll_read)
lb_picture=lb_picture+ll_read
next
fileclose(li_filenum)
//显示图片

p_1.setpicture(lb_picture)

//处理照片文件结束

3、存入数据库

//存照片入数据库
updateblob t_teacher set pic=:lb_picture where code = :ls_code;

if sqlca.sqlcode<>0 then

messagebox("系统提示","更新数据错误",stopsign!,ok!)

return

end if

4、显示图片

blob lb_pic
string ls_code
ls_code="01007";
selectblob pic into :lb_pic from t_teacher where code=:ls_code;
if sqlca.sqlcode<>0 then
messagebox("系统提示","载入数据错误",stopsign!,ok!)

return
end if
setpicture(p_1,lb_pic)

在PB中存图片入数据库及显示图片相关推荐

存放在mysql数据库的表_下列选项中,存放在mysql数据库的表是
下列选项中,存放在mysql数据库的表是答:column_priv db user tables_priv 关于礼说法正确的是(). 答:对人有约束力金钱能买来熟人,买不来朋友答:√ 绿泥石强度 ...
新中新身份证阅读器不显示图片
USB接口的新中新身份证阅读器使用过程中,出现读卡不显示图片,以及刷卡多次后,软件自动关闭的现象.使人很苦恼,经过我的反复测试,现在提供解决方法如下: 1.下载动态库链接文件"WltRS&q ...
图片上传并保存到数据库以及显示图片
图片上传并保存到数据库以及显示图片此处是用保存图片相对路径的方法,上传图片. 1. 首先创建数据库表: create table images ( image_ID int primary key ...
文章目录图片元素 img元素显示图片的两种写法： alt 属性与a元素连用 map元素和figure元素 figcaption 联用
文章目录图片元素 img元素显示图片的两种写法: alt 属性与a元素连用 map元素和figure元素 figcaption 联用图片元素 img元素 image 缩写,空元素 src属性 ...
img标签图片加载失败显示图片
img标签图片加载失败显示图片 onerror="οnerrοr=null;src='../../image/community/initialize_img.png'"
后端传验证码图片前端ajax怎么显示图片
后端传验证码图片前端,ajax怎么显示图片.验证码后端返给前端的是一张验证码的图片,如下: 再看浏览器response里的返回
dw读取access中的图片_ACCESS读取并显示图片？
展开全部 ACCESS是可以存储图片的.62616964757a686964616fe58685e5aeb931333332393464你只要将数据表的某个字段的数据类型设置为"OLE对象& ...
【PB】连接自带数据库并显示数据
一.安装PB软件二.创建数据库.创建表.添加主键.添加数据创建数据库创建表设置主外键插入表数据三.创建本地程序新建Workspace 新建Target 新建PB Object 新建Dat ...
QT中循环显示图片和简单的显示图片
请关注我的github https://github.com/linqiaozhou 以下实例代码不久后将会上传到我的github 这是我最近一个项目中的部分代码 //以下是简单的在QT中显示图片的代 ...

在PB中存图片入数据库及显示图片

在PB中存图片入数据库及显示图片相关推荐

最新文章

热门文章