//一次最多只能读取32k,计算一共要读取几次 if flen > 32765 then if mod (flen,32765) = 0 then loops = flen/32765 else loops = flen/32765 + 1 end if else loops = 1 end if
//循环读取文件 for i = 1 to loops sum_read = fileread(fnum, b) tot_b = tot_b + b p_new = p_new + sum_read fileseek(fnum, p_new, frombeginning!)//其实fileread可以自动定位,这句话可以去掉 next
fileclose(fnum) connect; insert into pic values (:xh, :tot_b); disconnect; connect; updateblob pic set p_image = :tot_b where p_index = :xh; disconnect;