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: