如何读取非类型化文件的字节头，然后在 Free Pascal 和 Lazarus 中作为文件流时使用和显示该数据

Question

我正在尝试使用 Lazarus 学习 Free Pascal，我的一个宠物项目涉及读取一组特定的无类型文件的 64 字节标头，这些文件无法使用文本或 ASCII 相关程序读取和显示（因此无法直接输出到备注框等） ）。

到目前为止，我已经设计了以下代码，我认为它读取了标头的 64 个字节，并且根据通过 Lazarus IRC 收到的建议，我使用 TStreams 和“选择目录”对话框来执行此操作。我的问题是如何实际使用从标头读入缓冲区的数据？例如，在标头中，有 8 个字节的序列，然后是 16 个字节，然后是 2 个字节等等，我想“处理”这些输出以生成其他输出，这些输出最终将转换为字符串以进入我的字符串网格。

到目前为止，我所拥有的一些内容是基于我在此处发现的由 Mason Wheeler 接近结尾处编写的内容（http://stackoverflow.com/questions/455790/fast-read-write-from-file-in-delphi），但它只展示如何读入，不展示如何使用。我也读过这篇文章（http://stackoverflow.com/questions/4309739/best-way-to-read-parse-a-untyped-binary-file-in-delphi），但它再次向您展示了如何读取数据也是如此，但随后不使用该数据。热烈欢迎任何指导！到目前为止，下面的代码仅将单值整数输出到编辑框，而不是 8 个十六进制值的范围。

PS-我是编程新手，所以请温柔一点！没什么太复杂的。

procedure TForm1.ProbeFile(FileIterator: TFileIterator);

type
 TMyHeader = Array[1..64] of packed record
 First8Bytes,
 Next16Bytes,
 Next2Bytes: byte;
 end;

var

  FI : TFileIterator;                      //File Iterator class
  SG : TStringGrid;
  NumRead : SmallInt;
  FileToProbe: TStream;
  header: TMyHeader;

begin
  FI := TFileIterator.Create;
  SG := TStringGrid.Create(self);


  // Open the file and read the header
  FileToProbe := TFileStream.Create(FileIterator.FileName, fmOpenRead);
  try
    FileToProbe.seek(0, soFromBeginning);
    FileToProbe.ReadBuffer(header, SizeOf(header));
    edit1.text := IntToStr(header[0].First8Bytes);  // Just outputs '0' to the field?  If I try '10' it ooutputs '29' and so on
  finally
    FileToProbe.Free;
  end; 

Answer 1

如果我误解了你的问题，请原谅我。

据我了解，有一个 64 字节的标头。前 8 个字节属于在一起，然后是接下来的 16 个字节，最后是另外 2 个字节。

对我来说，这个标头的声明应该是：

   TMyHeader = packed record
     First8Bytes: array[0..7] of byte;  
     Next16Bytes: array [0..15] of byte;
     Next2Bytes: array [0..1] of byte;
     // add more if you like
   end;

这个记录类型的大小为 8+16+2 = 26 字节。

您读取标题的代码对我来说看起来不错，所以我不会重复。

可以检索标头中的 next16bytes，例如，如下所示：

edit1.text:= '';
// needs a declaration of a variable "i" as integer
for i:= 0 to 15 do
  edit1.text:= edit1.text + IntToStr(header.next16bytes[i]) + '-';

如下所示更改标头的 next2bytes 部分中第一个字节的值（再次作为示例）：

header.next2bytes[0]:= 123;

最后，您可以将更改写回标头借助 filetoprobe.writebuffer 方法的文件。