Delphi如何读取非文本文件（二进制）？

本文共计325个文字，预计阅读时间需要2分钟。

在Delphi中，若要以非文本模式打开二进制文件，可以使用以下方法：

1. 使用 `fopen` 函数，并指定模式为 rb。

2.或者，使用文件流 `TFileStream`，并指定打开模式为 `fmOpenRead` 或 `fmShareDenyWrite`。

示例代码如下：

delphi

var Stream: TFileStream; Value: Integer;begin Stream :=TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); try Stream.Read(Value, SizeOf(Value)); // 处理 Value finally Stream.Free; end;end;

如何在Delphi中以非文本模式打开二进制文件？
像C函数fopen(filename,“rb”) 有几个选择.

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等从文件中读取.我真的不推荐这种方法.现代代码和库几乎总是更喜欢流成语,并且通过自己做同样的事情,您将使代码更容易适应其他库.