n_base64.sru

PB12.5,PB12.6下调试通过 把SRU导入即可。 integer li_FileNum, loops, i long flen, bytes_read, new_pos blob b, tot_b flen = FileLength(filename) if flen = 0 then messagebox('提示','文件长度为0!',StopSign!) return "" end if li_FileNum = FileOpen(filename, StreamMode!, Read!, LockRead!) if li_fileNum = -1 then messa