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_WRITE         = $0041;
    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_WRITE = record
      Header : array[0..7] of Byte;
      Data   : array[0..23] 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_WRITE;
    GET_CONFIGURATION_CDB.AllocationLength  := SizeOf(TGET_CONFIGURATION_BD_WRITE);
    {
    *  Den Command Descriptor Block übertragen.
    }
    ZeroMemory(@aCDB, Length(aCDB));
    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;
 
    TFeatureBDWrite = record
      FeatureCode : Word;
      Version     : Byte;
      Persistent  : Boolean;
      Current     : Boolean;
      AddLength   : Byte;
      SVNR        : Boolean;
      RE2         : Boolean;
      R           : Boolean;
    end;
 
    ...
 
  begin
 
    ...
 
    {
    *  Befehl ausführen
    }
    if GET_SCSI_PASS_THROUGH_DIRECT(aDrive, aCDB, @GET_CONFIGURATION_BD_WRITTE,
                                    SizeOf(TGET_CONFIGURATION_BD_WRITE))
    then begin
      ConfigHeader.DataLength     := GET_CONFIGURATION_BD_WRITE.Header[0] shl 24 or
                                     GET_CONFIGURATION_BD_WRITE.Header[1] shl 16 or
                                     GET_CONFIGURATION_BD_WRITE.Header[2] shl  8 or
                                     GET_CONFIGURATION_BD_WRITE.Header[3];
      ConfigHeader.CurrentProfile := GET_CONFIGURATION_BD_WRITE.Header[6] shl 8 or
                                     GET_CONFIGURATION_BD_WRITE.Header[7];
 
      BDWrite.FeatureCode := GET_CONFIGURATION_BD_WRITE.Data[0] shl 8 or
                             GET_CONFIGURATION_BD_WRITE.Data[1];
      BDWrite.Version     := GET_CONFIGURATION_BD_WRITE.Data[2] and $3C shr 2;
      BDWrite.Persistent  := GET_CONFIGURATION_BD_WRITE.Data[2] and $02 > 0;
      BDWrite.Current     := GET_CONFIGURATION_BD_WRITE.Data[2] and $01 > 0;
      BDWrite.AddLength   := GET_CONFIGURATION_BD_WRITE.Data[3];
      BDWrite.SVNR        := GET_CONFIGURATION_BD_WRITE.Data[4] and $01 > 0;
      BDWrite.RE2         := GET_CONFIGURATION_BD_WRITE.Data[9] and $04 > 0;
      BDWrite.R           := GET_CONFIGURATION_BD_WRITE.Data[17] 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 28.

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 WRITE Feature $0041 ausgewählt.

Version - Das Feature gibt es seit MMC-4. In MMC-6 wurde die Beschreibung geändert. Die Versionsnummer wurde jedoch nicht geändert und ist weiter 0000b.

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 20 betragen.

SVNR (Supports Verify Not Required) - Gibt an, ob das WRITE(12) Command VNR unterstützt.

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

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

Demo, welche diese Funktion nutzt:

Hardware BD WRITE (podHardBDWrite.7z - 256 kb) MD5 (1 kb). Stand: 22. Januar 2012

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