求助关于向数据库表上传图片的问题

bigfrog

免费乐捐，感谢支持

今天我将问题研究了一下，改了一下界面，现在应该清晰一些了


依然还是用的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) //在打开之前获取文件长度        
                if  ll_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

请高手指点

还有，数据录入的照片，又怎么显示？

bigfrog

最近这里人气好差啊{:soso_e101:}