gf_file_to_blob(string file1,blob blob1) pb 读取文件到大字段变量

//////////////////////////////////////////////////
// //
// 文件转换为Blob数据函数 //
//  参数: file1:文件名,blob1:blob类型数据 //
// 返回值: 1表示成功 -1表示失败 //
// By Liu Chuanhan 99.8.10 //
// //
//////////////////////////////////////////////////


integer li_FileNum,loops,i
long flen, bytes_read
blob b


SetPointer(HourGlass!)
blob1 = blob('')
if not FileExists(file1) then
// MessageBox("错误","文件 '"+file1+"' 不存在")
return -1
end if


flen = FileLength(file1)
li_FileNum = FileOpen(file1, StreamMode!, Read!, Shared! )
if li_FileNum = -1 then
// messagebox('操作系统错误','无法打开文件！')
return -1
end if




if flen > 32765 then
if Mod(flen, 32765) = 0 then loops = flen/32765 else loops = (flen/32765) + 1
else
loops = 1
end if


for i = 1 to loops
bytes_read = FileRead(li_FileNum,b)
// w_mdi.setmicrohelp('read ' + file1 + ':' + string(i/loops))
blob1 = blob1 + b
next


FileClose(li_FileNum)
SetPointer(Arrow!)


return 1