gf_file_from_blob(blob blob1,string file1) pb大字段生成文件方法

//////////////////////////////////////////////////

// //

// Blob数据转换为文件函数
//

// 参数: blob1:blob类型数据,file1:文件名 //

// 返回值: 1表示成功 -1表示失败
//

// //

//////////////////////////////////////////////////

integer li_FileNum,loops,i

long blen, bytes_read

blob b

SetPointer(HourGlass!)

try

if FileExists(file1) then

blen = 0

SetFileAttributes(file1,blen)

if not FileDelete(file1) then

messagebox('操作系统错误','无法进行进一步的处理！~r~n~r~n建议您妥善保存文件，然后重新启动计算机，或杀除WINWORD进程。')

return -1

end if

end if

blen = len(blob1)

li_FileNum = FileOpen(file1, StreamMode!, Write!)

if li_FileNum = -1 then return -1

if blen > 32765 then

if Mod(blen, 32765) = 0 then loops = blen/32765 else loops = (blen/32765) + 1

else

loops = 1

end if

for i = 1 to loops

b = BlobMid(blob1,(i - 1) * 32765 + 1, 32765)

bytes_read = FileWrite(li_FileNum, b)

// w_mdi.setmicrohelp('write ' + file1 + ':' + string(i/loops))

next

//w_mdi.setmicrohelp('File closed')

FileClose(li_FileNum)

SetPointer(Arrow!)

catch(throwable thab)

gf_exception("gf_file_from_blob",thab.text)

end try

return 1