照片如何存取并且显示在数据窗口上???

live0453 2003-06-03 12:28:46
照片存取并且显示在数据窗口上
举例说明!!!!
...全文
51 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
safenxiao 2003-06-03
  • 打赏
  • 举报
回复
ole
tiedaner 2003-06-03
  • 打赏
  • 举报
回复
//图片导入,存为变量
string ls_photofile
string ls_named
string ls_filepath
blob lb_read,lb_pic
integer li_value,ll_filenum
li_value = GetFileOpenName("选择图片文件",&
+ ls_photofile,ls_named,"图片文件",&
+ "BMP 文件 (*.BMP),*.BMP,"&
+ "JPG 文件 (*.JPG),*.JPG,"&
+ "GIF 文件 (*.GIF),*.JIF")
ll_filelen = filelength(ls_photofile)
if ll_filelen <= 0 then return
ll_filenum = FileOpen(ls_photofile,STREAMMODE!,READ!,LOCKREAD!)
if ll_filelen > 32765 then
li_loop = ((ll_filelen - 1)/32765) + 1
else
li_loop = 1
end if
for li_counter = 1 to li_loop
fileread(ll_filenum,lb_read)
lb_pic += lb_read
next
FileClose(ll_filenum)
//保存到数据库
updateblob 表名
set 图片字段名 = :lb_pic;
commit;
//从数据库重检索出,并存入变量
selectblob 图片字段名
into : lb_pic
from 表名
//显示(我习惯于直接用picture控件来显示,因为数据窗口中的图片显示不好控制)
可以先模仿读图片文件的方法把变量lb_pic写入一个临时路径
然后给picture控件连上图片文件的全路径,即可显示图片
guanhua8 2003-06-03
  • 打赏
  • 举报
回复
数据窗口有一个DB OLE控件,但是好象显示不了图片.

611

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder DataWindow
社区管理员
  • DataWindow社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧