PB中二进制文件读取问题(原创)

笔者在开发一个应用系统时需要处理dbf文件数据，在PB中仅能够支持DBaseII,DBaseIII的数据格式，对于更新版本不被支持。因此需要自己编程进行处理。在编程过程中碰到二进制文件读写操作方面的问题，例如：按字节读入以下格式的文件并转换成十进制字符

AA 00 56 00 BB BB CC DD EE FF......

代码大概是这样的：

Integer li_filenum, loops, i,k,l
Long flen, bytes_read, new_pos
Blob b, tot_b, b1

SetPointer(hourglass!)
flen = FileLength("c:/file1.dat")
li_filenum = FileOpen("c:/file1.dat", &
 streammode!, Read!, lockread!)
If flen > 32765 Then
 If Mod(flen, 32765) = 0 Then
 loops = flen/32765
Else
loops = (flen/32765) + 1
End If
Else
loops = 1
End If
new_pos = 1
For i = 1 To loops
 bytes_read = FileRead(li_filenum, b)
 tot_b = tot_b + b
Next
FileClose(li_filenum)

l = Len(tot_b)
For i = 1 To l
 b1 = BlobMid(tot_b,i,1)
 k = Asc(String(b1))
 sle_1.Text += String(k) + ":"
Next

显示：170:0:86:0:187:187:204:221:238:255: