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

[live0453]

照片存取并且显示在数据窗口上
举例说明！！！！

[guanhua8]

数据窗口有一个DB OLE控件，但是好象显示不了图片.

[tiedaner]

//图片导入，存为变量
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控件连上图片文件的全路径，即可显示图片

[safenxiao]

ole