ISO-Image einer CDDA mit CreateFile und ReadFile möglich?

[Garfield]

Ich habe mir den Freeburner noch einmal angesehen und versucht mit der Testapplication Images von CDs zu ziehen. Die AudioCDs waren leer und beim Zugriff auf DatenCDs fror das System (Win2000) ein.

Ich habe es mit dieser Function versucht:

Delphi-Quellcode:

 // Sektoren lesen
//==============================================================================
function ReadCDAudioSector(cdHandle: THandle; Startsektor, Sektorlesen : Integer;
                      var Data : TRawData; var Fehler : String) : Boolean;
var
  RawReadInfo : RAW_READ_INFO;
  nb          : Cardinal;
begin
  Result := False;

  RawReadInfo.DiskOffset.QuadPart := Startsektor * CB_CDROMSECTOR;
  RawReadInfo.TrackMode           := CDDA;
  RawReadInfo.SectorCount         := Sektorlesen;

  nb := 0;

  if cdHandle <> INVALID_HANDLE_VALUE then
  Result := DeviceIoControl(cdHandle,
                            IOCTL_CDROM_RAW_READ,
                            @RawReadInfo,
                            SizeOf(RawReadInfo),
                            @Data,
                            Sektorlesen * CB_AUDIO,
                            nb,
                            nil);
  Fehler := GetLastErrorMsg;
end;

Dabei habe ich das CDHandle mit der Funktion geholt:

Delphi-Quellcode:

function GetDriveHandle(cDrive: Char): THandle;
begin
  Result := CreateFile(PChar('\\.\'+cDrive+':'),
                       GENERIC_READ or GENERIC_WRITE,
                       FILE_SHARE_READ or FILE_SHARE_WRITE,
                       nil,
                       OPEN_EXISTING,
                       FILE_ATTRIBUTE_NORMAL,
                       0);
end;

Beim Befehl DeviceIOControl erhalte ich immer die Meldung: "Ungültiger Parameter".

Anschliessend habe ich das ausprobiert:

Delphi-Quellcode:

function READ_RAW_SECTOR_FROM_CD(    hCD          : THandle;
                                     HTL          : String;
                                 var Data         : Array of Byte;
                                     StartSector  : DWord;
                                     AnzahlSector : DWord;
                                     flags        : Byte)
                                 : Boolean;
const
  RAW_READ_CMD                    = $BE;  // ATAPI RAW READ
  PACKET_LEN                      = 2352; // Sektorlänge
  SCSI_IOCTL_DATA_IN              = 1;
  IOCTL_SCSI_PASS_THROUGH         = $04D004;
var
  srb : SCSI_PASS_THROUGH_DIRECT;
  nb  : Cardinal;
Begin
  Result := False;
  ZeroMemory(@srb, SizeOf(srb));
  ZeroMemory(@Data, SizeOf(Data));

  if hCD <> INVALID_HANDLE_VALUE
  then begin
    srb.Length             := sizeof(SCSI_PASS_THROUGH);
    srb.PathId             := StrToInt(HTL[1]); // SCSI controller ID
    srb.TargetId           := StrToInt(HTL[3]); // target device ID
    srb.Lun                := StrToInt(HTL[5]); // logical unit device ID
    srb.CdbLength          := 12;
    srb.SenseInfoLength    := 0; // SenseInfo
    srb.DataIn             := SCSI_IOCTL_DATA_IN;
    srb.DataTransferLength := PACKET_LEN * AnzahlSector;
    srb.TimeOutValue       := 200; // TimeOut
    srb.DataBuffer         := @Data;
    srb.SenseInfoOffset    := 0; // SenseInfo

    // CDB
    srb.Cdb[0]             := RAW_READ_CMD;
    srb.Cdb[1]             := $0; // Format Disk
    srb.Cdb[2]             := HIBYTE(HIWORD(StartSector));
    srb.Cdb[3]             := LOBYTE(HIWORD(StartSector));
    srb.Cdb[4]             := HIBYTE(LOWORD(StartSector));
    srb.Cdb[5]             := LOBYTE(LOWORD(StartSector));
    srb.Cdb[6]             := LOBYTE(HIWORD(AnzahlSector));
    srb.Cdb[7]             := LOBYTE(LOWORD(AnzahlSector));
    srb.Cdb[8]             := HIBYTE(LOWORD(AnzahlSector));
    srb.Cdb[9]             := flags;
    srb.Cdb[10]            := 0; // Sub-Channel Data Bits
    srb.Cdb[11]            := 0; // reserved

    Result := DeviceIoControl(hCD,
                              IOCTL_SCSI_PASS_THROUGH,
                              @srb,
                              sizeof(srb),
                              @srb,
                              0,
                              nb,
                              Nil);
  end;
end;

Hier friert das Programm beim DeviceIOControl ein.

Beide Sourcen habe ich als C im Internet gefunden.