Làm thế nào để đọc đĩa CD dưới dạng tệp?

Question

Tôi muốn biết liệu Delphi có thể đọc CD dưới dạng luồng thô trực tiếp từ thiết bị ổ đĩa logic "C: \" hay không.

Tôi hy vọng tôi có thể sử dụng TFileStream nếu tôi đã xử lý tệp hợp lệ.

Answer 1

Cách đơn giản nhất là sử dụng THandleStream thay vì TFileStream trong chế độ xem của tôi. Như thế này:

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; 

Hãy cẩn thận khi sử dụng truy cập đĩa thô bạn phải đọc chính xác bội số của các ngành. Các sector trên đĩa tôi đã thử nghiệm có kích thước 512 byte. Tôi hy vọng rằng các lĩnh vực đĩa CD có thể rất tốt là một kích thước khác nhau.