如何将照片存入数据库中，如何读取，何显示，主要是要迅速

volin 2001-10-05 02:22:29

...全文

85 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

volin 2001-10-08

打赏
举报

谢谢pengdesheng(冷鹰)和流方
我会试试一下
给你们分

liulee 2001-10-07

打赏
举报

很清楚啦，自己再试验试验。
要快的话：
1.图片小；
2.独立表单存放该图片，外键加以约束；
3.网络快（废话）；

pengdesheng 2001-10-07

打赏
举报

定义一个函数把图片存入blob变量
uf_picturetoblob(string ls_picture)
Blob lb_read_data,lb_comp_data
integer li_Rtn,li_fileNum,li_blob_count,li_blob_index
ulong fn
Long ll_FileLength,ll_pointer

if trim(ls_picture) = "" then return lb_comp_data

ll_FileLength = FileLength(ls_picture)

li_blob_count = ceiling(ll_FileLength/32765)

li_fileNum = FileOpen(ls_picture,StreamMode!)

for li_blob_index = 1 to li_blob_count
FileSeek(li_fileNum,32765 * (li_blob_index -1) ,FromBeginning!)
FileRead(li_fileNum,lb_read_data)
lb_comp_data = lb_comp_data + lb_read_data
end for

FileClose(li_fileNum)

return lb_comp_data

//存入数据库
lb_data = uf_picturetoblob(ls_Picture)//把图片存入lb_data中
//保存bolb变量时，必须把事务对象的autocommit属性值改为真
sqlca.autocommit = True
update sys_company set C_picture = '' where C_CoCode = :ls_id using sqlca;//首先置空
UPDATEBLOB sys_company SET C_picture = :lb_data where C_CoCode = :ls_id using sqlca;
sqlca.autocommit = False

volin 2001-10-07