如何下载图片装入数据库

[cgk100]

如何用pb做一个可以把网上图片放入数据库的方法，请大家帮助一下。

[chencang]

先保存到本地

[chencang]

【导入图片】按钮click事件：

string ls_path,ls_name
long ret,loops,ll_filenum,flen,ll_readfile
blob lb_pic,b
int i,li_id, li_row, li_devid

ret = getfileopenname("选择图片",ls_path,ls_name,"aaaa","图片文件(bmp),*.bmp,图片文件(jpg),*.jpg,图片文件(jpeg),*.jpeg")

if ret <> 1 then return

flen = filelength(ls_path)

p_1.picturename = ls_path

ll_filenum = fileopen(ls_path,streammode!,read!,lockread!)

if flen > 32765 then
if mod(flen,32765) = 0 then
loops = flen/32765
else
loops = flen/32765 + 1
end if
else
loops = 1
end if

lb_pic = blob("")

for i = 1 to loops //这里便是循环
ll_readfile = fileread(ll_filenum,b)
lb_pic = lb_pic + b
next

fileclose(ll_filenum)

li_row = dw_2.getrow() //数据窗口当前行
li_devid = dw_2.object.devid[li_row] //得到当前行的主键值

updateblob tbl_device set picture=:lb_pic where devid = li_devid
using sqlca;

if sqlca.sqlcode = 0 then
commit;
Messagebox("提示","图片已存入数据库！")
else
rollback;
Messagebox("提示","图片存入数据库失败！")
end if

[chencang]

updateblob tbl_device set picture=:lb_pic where devid = :li_devid