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