Delphi读取非文本文件(二进制)

1.使用文件流

var
  Stream: TFileStream;
  Value: Integer;
....
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
  Stream.ReadBuffer(Value, SizeOf(Value));//read a 4 byte integer
finally
  Stream.Free;
end;

2.使用阅读器

您可以将上述方法与TBinaryReader结合使用,以使值的读取更简单：

var
  Stream: TFileStream;
  Reader: TBinaryReader;
  Value: Integer;
....
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
  Reader := TBinaryReader.Create(Stream);
  try
    Value := Reader.ReadInteger;
  finally
    Reader.Free;
  end;
finally
  Stream.Free;
end;

reader类有许多函数可以读取其他数据类型.你可以用二进制编写器向相反的方向前进.

3.旧式Pascal I / O.

您可以声明File类型的变量,并使用AssignFile,BlockRead等从文件中读取.我真的不推荐这种方法.现代代码和库几乎总是更喜欢流成语,并且通过自己做同样的事情,您将使代码更容易适应其他库.