blob lb_picture
blob lb_read
long ll_no
string ls_name
string ls_photofile
integer li_filenum
integer li_loops
integer li_counter
long ll_filelen
string s_sfzh,s_path
for i=1 to 10
select col2,col3 into :s_sfzh,:s_path from ls_abc2 where col4=:i;
ls_photofile=s_path //s_path为照片存放路径
ll_filelen = FileLength(ls_photofile)
li_filenum = FileOpen(ls_photofile,STREAMMODE!, READ!,LOCKREAD!)
IF ll_filelen > 32765 THEN
li_loops = ( (ll_filelen - 1) / 32765 ) + 1
ELSE
li_loops = 1
END IF
FOR li_counter = 1 to li_loops
FileRead(li_filenum, lb_read )
lb_picture = lb_picture + lb_read
NEXT
FileClose(li_filenum)
//写入数据库
UPDATEBLOB b_ygb
SET photo = :lb_picture
WHERE ygsfz = :s_sfzh;
IF Sqlca.SQLNRows > 0 THEN
COMMIT;
// Messagebox('提示信息','结束!')
Else
Rollback;
//Messagebox('提示信息','照片保存失败!' + sqlca.sqlerrtext)
END IF
Messagebox('提示信息',s_path+'--'+s_sfzh+'成功!')
next
blob lb_read
long ll_no
string ls_name
string ls_photofile
integer li_filenum
integer li_loops
integer li_counter
long ll_filelen
string s_sfzh,s_path
for i=1 to 10
select col2,col3 into :s_sfzh,:s_path from ls_abc2 where col4=:i;
ls_photofile=s_path //s_path为照片存放路径
ll_filelen = FileLength(ls_photofile)
li_filenum = FileOpen(ls_photofile,STREAMMODE!, READ!,LOCKREAD!)
IF ll_filelen > 32765 THEN
li_loops = ( (ll_filelen - 1) / 32765 ) + 1
ELSE
li_loops = 1
END IF
FOR li_counter = 1 to li_loops
FileRead(li_filenum, lb_read )
lb_picture = lb_picture + lb_read
NEXT
FileClose(li_filenum)
//写入数据库
UPDATEBLOB b_ygb
SET photo = :lb_picture
WHERE ygsfz = :s_sfzh;
IF Sqlca.SQLNRows > 0 THEN
COMMIT;
// Messagebox('提示信息','结束!')
Else
Rollback;
//Messagebox('提示信息','照片保存失败!' + sqlca.sqlerrtext)
END IF
Messagebox('提示信息',s_path+'--'+s_sfzh+'成功!')
next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货