急！！读取二进制文件的问题。

Question

试试这个：
BlockRead(dbf, buff[1], 1, numRecsRead);

Answer 1

var
  fs       : Tfilestream;
  str      : String;//  SourceStream    : TCompressionStream;
//  DestStream      : TMemoryStream;
//  Count           : Integer;
  //tmpstr,
  tmpstr1          : string;
//zip_stream      : TMemoryStream;Begin
  fs:=Tfilestream.Create(filename,fmOpenRead);
  str:=ExtractFilename(filename);
  setlength(tmpstr1,fs.size);
  fs.read(pointer(tmpstr1)^,fs.size);
  fs.Free;

Answer 2

reset（dbf，1）
不加1这个参数，默认是128个字节，而你的数据空间才10个，当然会出错！！！

Answer 3

建议你使用FileRead()这一类函数来操作文件，比AssignFile好方便很多的。

Answer 4

buff: Array[1..10] of byte;
改为：  buff: Array[0..9] of byte;或者
BlockRead(dbf, buff, 1, numRecsRead);
改为：BlockRead(dbf, buff[1], 1, numRecsRead);

Answer 5

to iBear(大熊) 呵呵 对 我忘了默认是128byte 谢谢了