delphi - 64 位应用程序上的流读/写错误

Question

我读取了我的物理驱动器，但遇到了一些问题。

64 位应用程序:

• 512 字节:流读取错误/流写入错误。
  • 阅读:工作
  • ReadBuffer:不起作用
• 38400 字节:有效。

32 位应用程序:适用于所有情况。

function setinact(diskid: string): boolean;
var
  hdevi:    THandleStream;
  hDevice:  THandle;
  mfile:    TMemoryStream;
  hbuff, mbuff:    array[0..511] of byte;
  i:        integer;
  BytesReturned: DWORD;
begin
  Result:=False;
  hDevice := CreateFile(Pchar('\\.\PHYSICALDRIVE'+diskid), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  if hDevice <> INVALID_HANDLE_VALUE then
  begin
    try
      hdevi := THandleStream.Create(hDevice);
      try
        mfile:=TMemoryStream.Create();
        try
          hdevi.ReadBuffer(hbuff[0],length(hbuff));
          mfile.WriteBuffer(hbuff[0],Length(hbuff));
          mfile.Position:=0;
          mfile.ReadBuffer(mbuff[0],length(mbuff));
          mbuff[446]:=$00;
          mbuff[462]:=$00;
          mbuff[478]:=$00;
          mbuff[494]:=$00;
          hdevi.Position:=0;
          hdevi.WriteBuffer(mbuff[0],length(mbuff));
          Result:=True;
        finally
          mfile.Free;
        end;
      finally
        hdevi.Free;
        DeviceIoControl(hDevice, IOCTL_DISK_UPDATE_PROPERTIES, nil, 0, nil, 0, BytesReturned, nil);
      end;
    finally
      CloseHandle(hDevice);
    end;
  end;
end;

如何在 64 位应用程序上读取 512 字节？

更新:我在另一台电脑上运行了这个应用程序，它有效。我不明白为什么。

更新2:感谢大卫·赫弗南。下面的代码有效。但为什么对于 32 位应用程序，第一个代码总是成功？

function setinact(diskid: string): boolean;
var
  hDevice:  THandle;
  hbuff:    PByte;
  i:        integer;
  hexstr: String;
  DISK_GEOMETRY : _DISK_GEOMETRY;
  BytesPerSector: Int64;
  BytesReturned: DWORD;
begin
  Result:=False;
  hDevice := CreateFile(Pchar('\\.\PHYSICALDRIVE'+diskid), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  if hDevice = INVALID_HANDLE_VALUE then Exit;
  try
    GetMem(hbuff, 512);
    try
      if not DeviceIoControl(hDevice, IOCTL_DISK_GET_DRIVE_GEOMETRY, Nil, 0, @DISK_GEOMETRY, sizeof(DISK_GEOMETRY), BytesReturned, nil) then Exit;
      BytesPerSector:=DISK_GEOMETRY.BytesPerSector;
      if not ReadFile(hDevice, hbuff^, 512, BytesReturned, nil) then Exit;

      .................

      SetFilePointer(hDevice, 0, nil, FILE_BEGIN);
      if not WriteFile(hDevice, hbuff^, 512, BytesReturned, nil) then Exit;
    finally
      FreeMem(hbuff, 512);
    end;
    Result:=True;
    DeviceIoControl(hDevice, IOCTL_DISK_UPDATE_PROPERTIES, nil, 0, nil, 0, BytesReturned, nil);
  finally
    CloseHandle(hDevice);
  end;
end;

Answer 1

根据 documentation您需要确保读入的内存是扇区对齐的。

File access buffer addresses for read and write operations should be physical sector-aligned, which means aligned on addresses in memory that are integer multiples of the volume's physical sector size. Depending on the disk, this requirement may not be enforced.

分配两个扇区的内存，然后在其中前进到扇区边界。

var
  buff: array [0..2*512-1] of Byte;
  ptr: Pointer;
.... 
ptr := Pointer((NativeInt(@buff) + 512) and not (512-1));

此后，ptr 指向超大缓冲区内的对齐位置。使用从此对齐位置开始的内存执行直接磁盘访问。

摘录的最后一句话解释了这一要求可能不会被强制执行，这就是为什么您的代码可能在某些机器上运行但在其他机器上不起作用。

或者事实上，您可能只是幸运地使用 32 位构建，它们恰好为您提供了扇区对齐的内存地址。您在问题编辑中假设的修复没有帮助，因为 GetMem 没有 512 字节对齐保证。如果对 GetMem 的调用恰好返回 512 字节对齐的地址，那只是偶然。你不能依赖这一点。

        S                             S 
  B     |                             |
  +---------------------------------------------------------+
  |     ******************************                      |
  +---------------------------------------------------------+
        P                             |

S: sector boundary (multiple of 512) 
B: buffer (2*512 bytes in size!), not aligned to sector boundary
P: Ptr = buffer + offset to make ptr aligned to a sector boundary.
*: part of buffer you use (512 bytes), aligned to sector boundary

---

从评论来看，似乎有些困惑。让我看看是否可以再详细说明一下。直接磁盘访问的两个方面需要保持一致。

1. 磁盘指针和 block 大小必须扇区对齐。
2. 内存缓冲区必须扇区对齐。

我指的是其中的第二个。假设磁盘扇区大小为 512，您可以满足第一个要求。但是您无法满足第二个要求。