1

我的程序适用于存储在 7z/ZIP 文件中的一些文件。但是，一些 7z/ZIP 文件的标题已修改，因此有必要在提取之前将它们更改为有效的标题。

修改后的标头始终相同，因此它包含在 const 变量中（以及有效的）：

to_fix := 1629246124;
PKZip := 1347093252;

替换解决方案非常简单，我希望我以正确的方式完成了它：

for i := 0 to filesize(F) do
begin
  if i < filesize(F) - 3 then
  BlockRead(F, buf, 4);
  if buf = to_fix then
  begin
    Seek(F, i);
    BlockWrite(F, PKZip, 4);
  end;
  buf := 0;
  Seek(F, i+1);
end;

我遇到的问题是，每当我以小端或大端顺序替换 的所有实例时，我总是得到相同的顺序写入文件：to_fix而不是.PKZip04 03 4b 5050 4b 03 04

我尝试了以下方法：

const PKZip_B1: array[0..3] of byte = (4,3,75,80);
const PKZip_B2: array[0..3] of byte = (80,75,3,4);

const PKZip_I1 = 67324752;   //04 03 4b 50   to decimal
const PKZip_I2 = 1347093252; //50 4b 03 04   to decimal

所有上述变体都以错误的顺序替换。

为什么会这样？我在 64 位处理器上使用 Delphi 7（我敢打赌问题是由于这个）。

4

1 回答 1

1

x86 和 x64 处理器都是小端的。那不是你的问题。

假设您正在编写1347093252一个 32 位整数，在十六进制中是$504b0304. 你的机器是小端的，所以字节是以相反的顺序写入的。

相反，如果你 write $04034b50，那么字节将$50首先被写入，依此类推。

但是，如果您真的想以特定顺序写出 4 个字节，那就这样做吧。例如，不要写成$04034b50小端序的 32 位整数，而是写：

const 
  Header: array [0..3] of Byte = ($50, $4b, $03, $04);

这是最干净的方法。

这里显然存在一定程度的混乱。停止将值视为整数，而是将它们视为字节数组。这从图片中删除了字节序。然后计算出你需要写入哪些 4 个字节，将它们放入一个数组中，然后写入它们。

显然，您需要对从文件中读取的数据应用相同的方法。将其读入数组并比较各个字节。或者，将其读入整数并用于CompareMem与数组进行比较。

最后，我没有看到任何证据表明您肯定找到了正确的 4 个标头字节。也许您也在修改数据，从而损坏文件。我根本不清楚您是否正确诊断了问题。我建议您在实施解决方案之前确保您有准确的诊断。一旦你有了这个诊断，那么你可能会寻找一种解决方案来避免首先写入错误的标题值。从源头上解决问题。

于 2015-07-01T16:31:08.490 回答