从oracle中读取图片,Pb从oracle中读取和保存图片

Pb从oracle中读取和保存图片

(2008-12-12 12:23:20)

转载

分类：编程

标签：

it

//保存图片

//选择文件

string pname, fname

integer value

value = GetFileOpenName("请选择部件图",pname, fname,'jpg', &

+ 'Jpg 文件(*.jpg),*.jpg,位图文件(*.bmp),*.bmp,所有文件(*.*),*.*') IF value <> 1 THEN return

//显示文件

p_1.PictureName = fname

SetPointer( HOURGLASS! )

SQLCA.AutoCommit = True

//测定文件长度

long ll_len

ll_len = FileLength(pname)

//打开文件

integer fileno

fileno = FileOpen(pname,StreamMode!,READ!,LOCKREAD!)

//读文件

blob lb_file ,lb_fn

int li_ii,ii

li_ii = ceiling(ll_len/32765)//取整

for ii = 1 to li_ii

FileRead (fileno, lb_fn)

lb_file = lb_file + lb_fn

next