PB 读取大文件小例

PB读取文件的时候，每次只能读取32K，所以当文件大于32K的时候就要分多次读取
以下是一个读取大于32K的文件并放在一个blob对象里面

long ll_filelen, ll_read = 0
integer li_fileid
blob lblb_tmp, lblb_total
string ls_filepath, ls_content

try
    // 取得文件的长度
    ll_filelen = FileLength ( ls_filepath )
    // 打开文件并取得文件句柄
    li_fileid = FileOpen (ls_filepath, StreamMode!, Read!,  LockRead!)
    // 成功打开文件
    if li_fileid > 0 then
        // 循环读取文件直至结束
        do while ll_read < ll_filelen
            // 读文件并记录位置
            ll_read = ll_read + fileRead(li_fileId, lblb_tmp)
            // 将文件碎片汇总
            lblb_total = lblb_total + lblb_tmp
        loop
       
        // 此处将文件转换为string类型
        ls_content = string(lblb_total, EncodingANSI!)
    end if
catch(throwable ex)
    // 异常处理
    messagebox('Error', ex.text)
    return -1
finally
    // 最后关闭文件
    fileClose(li_fileid)
end try