11

我想知道在 Delphi 中是否可以直接从逻辑磁盘驱动器设备“C:\”读取 CD 作为原始流。

如果我已经有一个有效的文件句柄,我希望我可以使用 TFileStream。

4

1 回答 1

12

它最容易使用,THandleStream而不是TFileStream在我看来。像这样:

procedure ReadFirstSector;
var
  Handle: THandle;
  Stream: THandleStream;
  Buffer: array [1..512] of Byte;
  b: Byte;
begin
  Handle := CreateFile('\\.\C:', GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if Handle=INVALID_HANDLE_VALUE then
    RaiseLastOSError;
  try
    Stream := THandleStream.Create(Handle);
    try
      Stream.ReadBuffer(Buffer, SizeOf(Buffer));
      for b in Buffer do
        Writeln(AnsiChar(b));
    finally
      Stream.Free;
    end;
  finally
    CloseHandle(Handle);
  end;
end;

请注意,在使用原始磁盘访问时,您必须准确读取多个扇区。我测试的磁盘上的扇区大小为 512 字节。我预计 CD 磁盘扇区的大小可能会有所不同。

于 2012-02-06T11:53:02.313 回答