保存大文本对象(包含超过32K文件的处理)
string bmpname, named
integer value
value = GetFileOpenName("Select File", bmpname, named, "JPG", "BMP Files (*.bmp),*.bmp, JPG Files (*.jpg),*.jpg")
integer li_fnum, li_bytes
SetPointer(HourGlass!)
long flen
flen = FileLength(bmpname) //取得文件长度
blob temp
integer loops
li_fnum = FileOpen(bmpname, StreamMode!, Read!, LockRead!)
//如果大于32K的大文件,分次数读取
IF flen > 32765 THEN
IF Mod(flen, 32765) = 0 THEN
loops = flen/32765
ELSE
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余3页未读,立即下载