发信人: flyingmist()
整理人: flyingmist(2000-02-27 16:49:51), 站内信件
|
怎样保存图片这个问题似乎隔一段时间就会有人问，干脆给大家一段例子吧：
需要用到SELECTBLOB(取)和UPDATEBLOB(存)，大家可参考help。
1.保存图象文件到数据库中
SQLCA.AutoCommit = TRUE //这一句少不得哦
//取文件长度
ll_flength = FileLength(ls_bmpname)
if IsNull(ll_flength) then ll_flength = -1
if ll_flength < 0 then
Messagebox("错误信息", "图文件不存在！", Exclamation!)
return
end if
//打开文件
li_FileNum = FileOpen(ls_bmpname, StreamMode!, Read!)
if li_FileNum < 0 then
FileClose(li_FileNum)
Messagebox("错误信息", "打开图文件 " + ls_bmpname + " 失败！", Exclamati
on!)
return
end if
//读文件数据
li_loopnum = ll_flength / 32765 + 1
for li_loop = 1 to li_loopnum
FileRead(li_FileNum, lbb_tmp)
lbb_bmp = lbb_bmp + lbb_tmp
next
//关闭文件
FileClose(li_FileNum)
//保存图片信息到数据库中
SELECT BMPID INTO :ll_tmp FROM TABLENAME WHERE BMPID = :li_id;
if sqlca.sqlcode = 100 then
INSERT INTO TABLENAME ( BMPID, BMPDATA ) VALUES ( :li_id, :lbb_bmp ) ;
end if
if sqlca.sqlcode <> 0 then
ls_msg = SQLCA.SQLErrText
ROLLBACK;
Messagebox("错误信息", "数据库操作失败！~r~n" + ls_msg, Exclamation!)
return
end if
UPDATEBLOB TABLENAME SET BMPDATA = :lbb_bmp WHERE BZID = :lizid;
ls_msg = SQLCA.SQLErrText
if ls_msg <> '' then
ROLLBACK;
Messagebox("错误信息", "保存图片信息失败！~r~n" + ls_msg, Exclamation!)
return
end if
COMMIT;
Messagebox("信息", "保存图片信息成功！")
2.从数据库中取图象数据并显示到Picture控件
(假设图象数据是BMP格式。如果是JPG或其它，则需要其它控件)
SELECTBLOB BMPDATA INTO :lbb_bmp FROM TABLENAME WHERE ID = :li_id;
ls_msg = SQLCA.SQLErrText
if ls_msg <> '' or IsNull(lbb_bzt) then
Messagebox("提示信息", "取图象数据失败！~r~n" + ls_msg, Exclamation!)
return
end if
p_bmp.SetPicture(lbb_bmp)
--
※ 来源:．网易 BBS bbs.netease.com．[FROM: 202.102.159.155]
|
|