求助关于向数据库表上传图片的问题
本帖最后由 bigfrog 于 2015-4-16 11:48 编辑今天我将问题研究了一下，改了一下界面，现在应该清晰一些了
依然还是用的AHA数据库
表内建立的照片字段是long binary类型
但其建立的DW的时候好像是看不到的
我建立了一个窗口，想通过选择图片向该表的照片项添加图片
几个问题
我想实现的是按打开照片，在p_1里面显示照片其代码如下
string ls_path,ls_filename
int li_getname,li_loops, li_i
int li_fileptr
long ll_filelen,ll_bytes_read
Blob lbb_Read,lbb_Total
long ls_picid
ls_picid=dw_1.getrow()
li_getname = GetFileOpenName("选择图片",ls_path,ls_filename, "*.jpg, *.bmp", "Jpeg Files(*.jpg),*.jpg,Bmp Files(*.bmp),*.bmp")
if li_getname = 1 THEN
SetPointer(HourGlass!) //设置鼠标
ll_filelen = FileLength(ls_filename) //在打开之前获取文件长度
ifll_filelen>32765 Then
if mod(ll_filelen,32765)=0 then
li_loops=ll_filelen/32765
else
li_loops=(ll_filelen/32765)+1
end if
else
li_loops=1
end if
li_fileptr=fileopen(ls_path,streammode!,read!,lockread!)
if li_fileptr=-1 then
beep(2)
messagebox("错误","图片打开错误")
return
end if
for li_i=1 to li_loops
ll_bytes_read=fileread(li_fileptr,lbb_read)
lbb_total=lbb_total+lbb_read
next
p_1.visible=true
p_1.setpicture(lbb_total)
end if
是成功的
2.现在的问题是，保存记录的代码应该怎么写
因为是blob类型
是否可以像普通的那样
比如
blob type_imgae
p_1.text=type_image这里应该是p_1的某个数据？？
ls_picid=dw_1.getrow()
sqlca.autocommit=true
beep(1)
updateblob orderlist set 照片=:ltype_image where 采购型号=:ls_picid;
if sqlca.sqlnrows>0 then
messagebox("提示","保存成功")
end if
sqlca.autocommit=false
end if
请高手指点
还有，数据录入的照片，又怎么显示？
最近这里人气好差啊{:soso_e101:}
页:
[1]