Avatar
www.fr-an.de

Hardwareinformationen

Profile List Feature

GET CONFIGURATION Command - Operation Code $46
PROFILE LIST FEATURE - Feature Number $0000

Multi-Media Commands - 6 Kapitel 6.5: Mit dem GET CONFIGURATION Command werden Informationen über die Eigenschaften des Laufwerkes ermittelt. Die Eigenschaften können insgesamt oder einzeln abgerufen werden. Mit dem PROFILE LIST Feature kann man sich die unterstützten Profile (Medien) auflisten lassen.

Der GET CONFIGURATION Command Descriptor Block:

  7 6 5 4 3 2 1 0
0 Operation Code ($46)
1 Reserviert RT = 10b
2 Starting Feature Number = $0000
3
4 Reserviert
5
6
7 Allocation Length = $010B
8
9 Control

 

Die zu setzenden Werte:

Byte 0: Operation Code - $46

Byte 1: RT - Request Type:

Wert Beschreibung
00b Das Laufwerk soll den Feature Header und alle durch das Laufwerk unterstützten Feature Beschreibungen zurückgeben ohne Rücksicht auf Geltung.
01b Das Laufwerk soll den Feature Header und nur die gewählte Feature Beschreibung zurückgeben.
10b Das Laufwerk soll den Feature Header und nur die gewählte Feature Beschreibung zurückgeben. Wird das Feature nicht unterstützt, soll nur der Feature Header zurückgegeben werden.
11b Reserviert

 
Byte 2 und 3: Starting Feature Number - Gibt die Nummer des Feature, welches zuerst ausgegeben werden soll, an. Auf Grund des gewählten Request Type soll es hier das einzige sein.

Byte 7 und 8: Länge der Antwortstruktur. Die Länge muss mindestens so groß gewählt werden, dass die erwartete Antwort auf jeden Fall hineinpasst. Der Header hat eine Länge von acht Byte, die Beschreibung beginnt mit vier Byte. Das letzte Byte gibt die Länge der Profile List an. Damit ergibt sich eine maximale Länge von $010B. Zuerst der Feature Header:

  7 6 5 4 3 2 1 0
0 Data Length
1
2
3
4 Reserviert
5
6 Current Profile
7

 
Anschließend die Profile List Feature Beschreibung:

  7 6 5 4 3 2 1 0
0 Feature Code = $0000
1
2 Reserviert Version Persistent Current
3 Additional Length
4..n Profile Descriptor(s)

 
Profile Descriptor:

  7 6 5 4 3 2 1 0
0 Profile Number
1
2 Reserviert Current
3 Reserviert

 
Byte 9: Control - ?

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_PROFILE_LIST     = $0000;
    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_PROFILE = record
      Header : array[0..$07] of Byte;
      Data   : array[0..$0103] 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.StartingFeatureNumber := FEATURE_PROFILE_LIST;
    GET_CONFIGURATION_CDB.AllocationLength      := SizeOf(TGET_CONFIGURATION_PROFILE);
    {
    *  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;
 
    TProfile = record
      Number  : Word;
      Current : Boolean;
    end;
 
    TFeatureProfile = record
      FeatureCode : Word;
      Version     : Byte;
      Persistent  : Boolean;
      Current     : Boolean;
      AddLength   : Byte;
      ProfileList : array of TProfile;
    end;
 
    ...
 
  begin
 
    ...
 
    {
    *  Befehl ausführen
    }
    if GET_SCSI_PASS_THROUGH_DIRECT(aDrive, aCDB, @GET_CONFIGURATION_PROFILE,
                                    SizeOf(TGET_CONFIGURATION_PROFILE))
    then begin
      ConfigHeader.DataLength     := GET_CONFIGURATION_PROFILE.Header[0] shl 24 or
                                     GET_CONFIGURATION_PROFILE.Header[1] shl 16 or
                                     GET_CONFIGURATION_PROFILE.Header[2] shl  8 or
                                     GET_CONFIGURATION_PROFILE.Header[3];
      ConfigHeader.CurrentProfile := GET_CONFIGURATION_PROFILE.Header[6] shl 8 or
                                     GET_CONFIGURATION_PROFILE.Header[7];
 
      ProfileList.FeatureCode  := GET_CONFIGURATION_PROFILE.Data[0] shl 8 or
                                  GET_CONFIGURATION_PROFILE.Data[1];
      ProfileList.Version      := GET_CONFIGURATION_PROFILE.Data[2] and $3C shr 2;
      ProfileList.Persistent   := GET_CONFIGURATION_PROFILE.Data[2] and $02 > 0;
      ProfileList.Current      := GET_CONFIGURATION_PROFILE.Data[2] and $01 > 0;
      ProfileList.AddLength    := GET_CONFIGURATION_PROFILE.Data[3];
      if ProfileList.AddLength > 0
      then begin
        n := FDrive[FActive].ProfileList.AddLength div 4;
        SetLength(FDrive[FActive].ProfileList.Profile, n);
        for i := 0 to n - 1 do
        with ProfileList.Profile[i]
        do begin
           Number  := GET_CONFIGURATION_PROFILE.Data[4 + (i * 4)] shl 8 or
                      GET_CONFIGURATION_PROFILE.Data[5 + (i * 4)];
           Current := GET_CONFIGURATION_PROFILE.Data[6 + (i * 4)] and $01 > 0;
        end;
      end;
 
    ...
 
  end;

 

Data Length - Die Datenlänge im Header gibt die Länge des noch folgenden Headerrestes und der Feature Beschreibungen an. Der Wert ist ein Vielfaches von vier.

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 Removable Medium Feature $0003 ausgewählt.

Version - Die Versionsnummer muss 0000b sein.

Persistent und Current müssen jeweils 1b sein.

Additional Length - Der Wert muss ein vielaches von vier betragen, weil ein Profile Descriptor vier Byte lang ist.

Profile Number - Die Werte entsprechen denen bei Current Profile.

 

Demo, welche diese Funktion nutzt:

Hardware Profile List (podHardProfile.7z - 256 kb) MD5 (1 kb). Stand: 13. Januar 2012

 

Fr_An - Erstellt: 13. Januar 2012 - Letzte Änderung: 21. Januar 2012

seit 28. Juli 2010