Deklaration und Vorbereitung

Die Werte werden ein- und übertragen. Das Beispiel ist vielleicht etwas umständlich, aber übersichtlicher und eben nur ein Beispiel:

 
  const
    SCSIOP_GET_CONFIGURATION = $46;
    FEATURE_BD_READ          = $0040;
    RT_All                   = 0;
    RT_Current               = 1;
    RT_Identified            = 2;
 
  type
    TGET_CONFIGURATION_CDB = record
      OperationCode         : Byte;
      RequestType           : Byte;
      StartingFeatureNumber : Word;
      AllocationLength      : Word;
    end;
 
  type
    TGET_CONFIGURATION_BD_READ = record
      Header : array[0..7] of Byte;
      Data   : array[0..31] of Byte;
    end;
 
    ...
 
  begin
 
    ...
 
    {
    *  Den Command Descriptor Block füllen.
    }
    ZeroMemory(@GET_CONFIGURATION_CDB, SizeOf(TGET_CONFIGURATION_CDB));
    GET_CONFIGURATION_CDB.OperationCode     := SCSIOP_GET_CONFIGURATION;
    GET_CONFIGURATION_CDB.RequestType       := RT_Identified;
    GET_CONFIGURATION_CDB.StartingFeatureNr := FEATURE_BD_READ;
    GET_CONFIGURATION_CDB.AllocationLength  := SizeOf(TGET_CONFIGURATION_BD_READ);
    {
    *  Den Command Descriptor Block übertragen.
    }
    SetLength(aCDB, 10);
    aCDB[0] := GET_CONFIGURATION_CDB.OperationCode;
    aCDB[1] := GET_CONFIGURATION_CDB.RequestType;
    aCDB[2] := HiByte(GET_CONFIGURATION_CDB.StartingFeatureNumber);
    aCDB[3] := LoByte(GET_CONFIGURATION_CDB.StartingFeatureNumber);
    aCDB[7] := HiByte(GET_CONFIGURATION_CDB.AllocationLength);
    aCDB[8] := LoByte(GET_CONFIGURATION_CDB.AllocationLength);
 
    ...
 
  end;
        

Ausführung und Auswertung

Nach der Ausführung wird die Antwortstruktur ausgewertet.

 
  type
    TGetConfigurationHeader = record
      DataLength     : DWord;
      CurrentProfile : Word;
    end;
 
    TFeatureBDRead = record
      FeatureCode : Word;
      Version     : Byte;
      Persistent  : Boolean;
      Current     : Boolean;
      AddLength   : Byte;
      BCA         : Boolean;
      RE2         : Boolean;
      RE1         : Boolean;
      R           : Boolean;
      ROM         : Boolean;
    end;
 
    ...
 
  begin
 
    ...
 
    {
    *  Befehl ausführen
    }
    if GET_SCSI_PASS_THROUGH_DIRECT(aDrive, aCDB, @GET_CONFIGURATION_BD_READ,
                                    SizeOf(TGET_CONFIGURATION_BD_READ))
    then begin
      ConfigHeader.DataLength     := GET_CONFIGURATION_BD_READ.Header[0] shl 24 or
                                     GET_CONFIGURATION_BD_READ.Header[1] shl 16 or
                                     GET_CONFIGURATION_BD_READ.Header[2] shl  8 or
                                     GET_CONFIGURATION_BD_READ.Header[3];
      ConfigHeader.CurrentProfile := GET_CONFIGURATION_BD_READ.Header[6] shl 8 or
                                     GET_CONFIGURATION_BD_READ.Header[7];
 
      BDRead.FeatureCode := GET_CONFIGURATION_BD_READ.Data[0] shl 8 or
                            GET_CONFIGURATION_BD_READ.Data[1];
      BDRead.Version     := GET_CONFIGURATION_BD_READ.Data[2] and $3C shr 2;
      BDRead.Persistent  := GET_CONFIGURATION_BD_READ.Data[2] and $02 > 0;
      BDRead.Current     := GET_CONFIGURATION_BD_READ.Data[2] and $01 > 0;
      BDRead.AddLength   := GET_CONFIGURATION_BD_READ.Data[3];
      BDRead.BCA         := GET_CONFIGURATION_BD_READ.Data[4] and $01 > 0;
      BDRead.RE2         := GET_CONFIGURATION_BD_READ.Data[9] and $04 > 0;
      BDRead.RE1         := GET_CONFIGURATION_BD_READ.Data[9] and $02 > 0;
      BDRead.R           := GET_CONFIGURATION_BD_READ.Data[17] and $02 > 0;
      BDRead.ROM         := GET_CONFIGURATION_BD_READ.Data[25] and $02 > 0;
    end;
 
    ...
 
  end;
        

Die Rückgabewerte:

Data Length - Die Datenlänge im Header gibt die Länge des noch folgenden Headerrestes und der Feature Bechreibung an. Wird das Feature nicht unterstützt ist der Wert vier, sonst 36.

Current Profile - Gibt das aktive Profil an. Das Profil ist vom Laufwerk und dem eingelegten Datenträger abhängig. Sind mehrere Profile aktiv wird das Profil mit der höchsten Nummer angegeben. (Liste der Profile in einem Fenster öffnen.)

Feature Code - Muss der selbe wie im CDB sein. Hier war das BD READ Feature $0040 ausgewählt.

Version - Die Versionsnummer muss 0001b sein.

Persistent - gibt an, ob sich der Wert ändern kann. Wenn das Flag gesetzt ist, ist die Eigenschaft immer aktiv und ändert sich nicht.

Current - gibt an, ob die Eigenschaft zur Zeit aktiv ist. Das heißt, ob ein entsprechendes Medium eingelegt ist.

Additional Length - Der Wert muss 28 betragen.

BCA - Gibt an, ob das Laufwerk BCA Daten über das READ DISC STRUCTURE command mit dem Media Type $1 und dem Format Code $03 lesen kann.

RE2 - Gibt an, ob das Laufwerk BD-RE Version 2 Medien lesen kann.

RE1 - Gibt an, ob das Laufwerk BD-RE Version 1 Medien lesen kann.

R - Gibt an, ob das Laufwerk BD-R Version 1 Medien lesen kann.

ROM - Gibt an, ob das Laufwerk BD-ROM Version 1 Medien lesen kann.

Demo, welche diese Funktion nutzt:

Hardware BD READ (podHardBDRead.7z - 256 kb) MD5 (1 kb). Stand: 10. Januar 2012

Das Feature wird natürlich nicht unterstützt, da es sich um einen DVD-Brenner handelt.