如何將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盤領域可能會有不同的規模。