如何将一个保存图片的blob变量，显示在数据窗口中！兄弟们帮忙呀！！！！！！！！

[阿拉丁]

跪乞！！！！！！！！！急！！！！！！！！！！！

[阿拉丁]

哈哈哈哈 我帮你顶

[执着过客]

兔子刚回答我的问题 ，，建立一个文件，fileopen(....write(用此属性））然后指定 dw_1.object.p_1.filenmame="c:\temp.jpg")

[herhu]

我也想知道这个问题，可是coollen(蓝色天空)的方法的结果是每条录的图片都一样了吧？如果要求每一行显示的图片对应表中行的image字段呢？

[klbt]

http://expert.csdn.net/Expert/topic/2372/2372281.xml?temp=.5217096

[Awang_126]

图片控件有个属性叫originalsize,大勾去掉就可以强制图片适应图片控件的大小,
定义个blob型的变量,用来保存从数据库中取出图片信息(可以用selectblob),然后再用图片控件的setpicture(blob型的变量),来显示图片.
如:
blob b
SELECTBLOB xp
INTO :b
FROM tb_xj_zxsjbxx
WHERE xh = :ls_xh;

希望对你有帮助!

[ishxb]

友情up

[qiyousyc]

图片对象与selectblob、updateblob的使用，
楼上已经写很清楚了

[bomber2001]

up

[jonny7828]

Boolean lb_rtn
String ls_path
Blob lb_image

ls_path = Space(256)
GetCurrentDirectoryA(256,ls_path)

lb_rtn = f_open_pic(iblob_fsizebmp)

//----------------------------------------------------------------
SqlCa.AutoCommit = True

UPDATEBLOB a1 SET fsizebmp = :iblob_fsizebmp
WHERE foisno = :is_oisno;

if SqlCa.Sqlcode <> 0 Then
Rollback;
MessageBox(is_title,f_message("GEN","UNSUCCESSFUL UPDATE",{""}))
Return -1
else
Commit;
MessageBox(is_title,"Successful")
end if

selectblob fsizebmp into :lb_image from a1 where foisno = :is_oisno;

if Not f_write_pic(lb_image,ls_path + is_bmp_size) Then
MessageBox("","Error")
else
tab_1.tabpage_4.dw_oispm_process4.object.p_1.filename = ''
tab_1.tabpage_4.dw_oispm_process4.object.p_1.filename = ''
tab_1.tabpage_4.dw_oispm_process4.object.p_1.filename = ls_path + is_bmp_size
MessageBox("",is_oisno)
End if

//----------------------------------------------------------------

if lb_rtn Then
if Not f_write_pic(iblob_fsizebmp,ls_path + is_bmp_size) Then
MessageBox("","Error")
else
dw_oispm_process4.object.p_2.filename = ''
dw_oispm_process4.object.p_2.filename = ''
dw_oispm_process4.object.p_2.filename = ls_path + is_bmp_size

ib_new_size = True
cb_update.Enabled = True
End if
end if

SetCurrentDirectory(ls_path)

[阿拉丁]

搞定，多谢 jonny7828(jonny7828)兄