CD dosya olarak nasıl okunur?

Question

Delphi'de bir CD'yi "C: \" mantıksal disk sürücü aygıtından doğrudan bir ham akış olarak okumak mümkün olup olmadığını bilmek istiyorum.

Umarım zaten geçerli bir dosya tanıtıcım varsa bir TFileStream kullanabilirim.

Answer 1

Görünümümde TFileStream yerine THandleStream kullanmak en kolay yoldur. Bunun gibi:

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; 

Ham disk erişimi kullanırken, sektörlerin tam katlarını okumanız gerektiğine dikkat edin. Test ettiğim diskteki sektörler 512 bayt boyuttadır. CD disk sektörlerinin çok farklı bir boyutta olmasını bekliyorum.