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_HDDVD_WRITE      = $0051;
    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_STD = record
      Header : array[0..7] of Byte;
      Data   : array[0..7] 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_HDDVD_WRITE;
    GET_CONFIGURATION_CDB.AllocationLength  := SizeOf(TGET_CONFIGURATION_STD);
    {
    *  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;
 
    TFeatureHDDVDWrite = record
      FeatureCode : Word;
      Version     : Byte;
      Persistent  : Boolean;
      Current     : Boolean;
      AddLength   : Byte;
      R           : Boolean;
      RAM         : Boolean;
    end;
 
    ...
 
  begin
 
    ...
 
    {
    *  Befehl ausführen
    }
    if GET_SCSI_PASS_THROUGH_DIRECT(aDrive, aCDB, @GET_CONFIGURATION_STD,
                                    SizeOf(TGET_CONFIGURATION_STD))
    then begin
      ConfigHeader.DataLength     := GET_CONFIGURATION_STD.Header[0] shl 24 or
                                     GET_CONFIGURATION_STD.Header[1] shl 16 or
                                     GET_CONFIGURATION_STD.Header[2] shl  8 or
                                     GET_CONFIGURATION_STD.Header[3];
      ConfigHeader.CurrentProfile := GET_CONFIGURATION_STD.Header[6] shl 8 or
                                     GET_CONFIGURATION_STD.Header[7];
 
      HDDVDWrite.FeatureCode := GET_CONFIGURATION_STD.Data[0] shl 8 or
                                GET_CONFIGURATION_STD.Data[1];
      HDDVDWrite.Version     := GET_CONFIGURATION_STD.Data[2] and $3C shr 2;
      HDDVDWrite.Persistent  := GET_CONFIGURATION_STD.Data[2] and $02 > 0;
      HDDVDWrite.Current     := GET_CONFIGURATION_STD.Data[2] and $01 > 0;
      HDDVDWrite.AddLength   := GET_CONFIGURATION_STD.Data[3];
      HDDVDWrite.R           := GET_CONFIGURATION_STD.Data[4] and $01 > 0;
      HDDVDWrite.RAM         := GET_CONFIGURATION_STD.Data[6] and $01 > 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 zwölf.

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 HD DVD READ Feature $0050 ausgewählt.

Version - Es gibt nur die Versionsnummer 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 vier betragen.

HD DVD-R - Gibt an, ob das Laufwerk HD DVD-R Medien schreiben kann.

HD DVD-RAM - Gibt an, ob das Laufwerk HD DVD-RAM Medien schreiben kann.

Demo, welche diese Funktion nutzt:

Hardware HD DVD READ (podHardHDDVDWrite.7z - 256 kb) MD5 (1 kb). Stand: 22. Januar 2012