使用FreePascal / Lazarus删除二进制文件的开头

Question

我在FreePascal / Lazarus的第一笔大事业几乎完成了，但是这个问题困扰着我。

该程序需要打开一个特定的二进制文件（我们称其为Test.exe），从文件的开头删除特定数量的字节（例如2048个字节），然后再次将其写出。 Test.exe的大小有所不同，但是从开头删除的字节数始终保持不变。

最近几天，我一直在摆弄BlodRead / Blockwrite和TMemoryStream，但是在这个看似简单的任务中还没有成功。

这可能是一个很好的迹象，表明我正在做一些有关二进制文件处理的研究。 因为这个问题确实让我很烦，所以我希望可以请大家帮忙，然后通过一种反向学习的形式建立我的理解：查看期待已久的解决方案，尝试理解它，然后研究未知部分。

谢谢，

/西蒙

Answer 1

您只需要几个TFileStream实例，并使用TStream.CopyFrom方法：

var
  FSInput, FSOutput: TFileStream;
begin
  // Create input stream (source file)
  FSInput := TFileStream.Create('Test.exe', fmOpenRead);
  try
    FSInput.Position := 2048;  // Set to whatever starting position
    FSOutput := TFileStream.Create('Test.new', fmOpenWrite);  // Create output file
    try
      FSOutput.CopyFrom(FSInput, FSInput.Size);  // Copy remaining bytes from input
    finally
      FSOutput.Free;  // Save new file to disk and free stream
    end;
  finally
    FSInput.Free;  // Free input stream
  end;
end;

如果您需要在最后加上原始文件名，只需在操作前将其重命名，从新文件名中读取并写出旧名称，然后在释放（释放）后删除原始文件输入流。

Answer 2

var
FSInput, FSOutput: TFileStream;
begin

  // Create input stream (source file)
  FSInput := TFileStream.Create('Test.exe', fmOpenRead);
  try
     FSInput.Position := 2048;  // Set to whatever starting position
     FSOutput := TFileStream.Create('Test.new', fmOpenWrite);     // Create output file
    try
       FSOutput.CopyFrom(FSInput, FSInput.Size-FSInput.Position);  // Copy remaining bytes from input
    finally
       FSOutput.Free;  // Save new file to disk and free stream
    end;
  finally
    FSInput.Free;  // Free input stream
  end;
end;