如何将CD作为文件读取？

Question

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

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

Answer 1

在我看来，最容易使用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盘领域可能会有不同的规模。