Home | Kontakt | Sitemap

Start

Über mich

Kontakt

Sitemap

Lizenz

Anleitungen

DVD, miniDVD

SVCD

Audio, Audio-CD (CD-DA)

AVI

Software

Von Freunden und Bekannten

Eigene Programme

Programmierung

Delphi

Lazarus

Delphi/Lazarus

Projekte

MPEG-1/2 Video

Optische Laufwerke

Audio-CD (CDDA)

Raspberry Pi Dashcam

Verschiedenes

MPEG 2 Schnitt

Project X

VCD Easy

Hardlinks

Windows

Links

Software

Projekte | Optische Laufwerke - Merkmale (Feature) - VCPS

Video Content Protection System

GET CONFIGURATION Command - Operation Code $46
VCPS FEATURE - Feature Number $0110

Das Kapitel 5,3.51 der Multi-Media Commands 6 (r02a) beschreibt das VCPS Feature, welches Eigenschaften dieses Rechteverwaltungssystems enthält. In den Multimedia Commands 6 ist dieses Feature nicht mehr enthalten.

Der GET CONFIGURATION Command Descriptor Block:

 76543210
0Operation Code = $46
1ReserviertRT = 10b
2Starting Feature Number = $0110
3
4Reserviert
5
6
7Allocation Length = $0010
8
9Control

Die zu setzenden Werte:

Byte 0: Operation Code - $46

Byte 1: RT - Request Type 01b:

WertBeschreibung
00bDas Laufwerk soll den Feature Header und alle durch das Laufwerk unterstützten Feature Beschreibungen zurückgeben ohne Rücksicht auf Geltung.
01bDas Laufwerk soll den Feature Header und nur die gewählte Feature Beschreibung zurückgeben.
10bDas 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.
11bReserviert

Byte 2 und 3: Starting Feature Number - Gibt die Nummer des Feature, welches ausgegeben werden soll, an. Das VCPS FEATURE hat die Featurenummer $0110.

Byte 7 und 8: Länge der Antwortstruktur. Die Beschreibung des VCPS FEATURE hat eine Länge von acht Byte. Mit den acht Byte des Feature Headers ergeben sich 16 Byte.

Byte 9: Control - ?

 

Antwortstruktur

Zuerst der Feature Header:

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

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.)

Anschließend folgt die VCPS FEATURE Beschreibung, falls dieses Feature unterstützt wird:

 76543210
0Feature Code = $0110
1
2ReserviertVersion = 0000bPersistentCurrent
3Additional Length = $04
4Reserviert
5
6
7

Feature Code - Muss der selbe wie im CDB sein. Das VCPS Feature mit der Featurenummer $0110.

Version - Es gibt nur die Versionsnummer 0000b.

Persistent, Current - Gibt an, ob die Eigenschaft geändert werden kann und ob sie zur Zeit aktiv ist.

Additional Length - Der Wert muss $04 betragen.

Deklaration

Zusätzlich zu den Deklarationen im Kapitel Feature werden diese vorgenommen:

const
  FEATURE_VCPS = $0110;
 
type
  TGET_CONFIGURATION_VCPS = record
    Header : array[0..7] of Byte;
    Data   : array[0..7] of Byte;
  end;
  PGET_CONFIGURATION_VCPS = ^TGET_CONFIGURATION_VCPS;
 
type
  TFeatureVCPS = record
    FeatureCode  : Word;
    Version      : Byte;
    Persistent   : Boolean;
    Current      : Boolean;
    AddLength    : Byte;
  end;

Ausführung

Nach der Ausführung wird die Antwortstruktur ausgewertet.

function TOptDrives.ReadConfigVCPS(aDevice: THandle): Boolean;
{*******************************************************************************
*  VCPS Feature
}
var
  GET_CONFIGURATION_CDB : TGET_CONFIGURATION_CDB;
  pConfigVCPS           : PGET_CONFIGURATION_VCPS;
  aCDB                  : Array of Byte;
  DataLength            : Cardinal;
begin
  Result := False;
  {
  *  VCPS Feature Description initialisieren.
  }
  FillChar(FDrive[FActive].VCPS, SizeOf(TFeatureVCPS), $00);
  {
  *  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_VCPS;
  GET_CONFIGURATION_CDB.AllocationLength      := SizeOf(TGET_CONFIGURATION_VCPS);
  {
  *  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);
  {
  *  Befehl ausführen
  }
  GetMem(pConfigVCPS, SizeOf(TGET_CONFIGURATION_VCPS));
  if GET_SCSI_PASS_THROUGH_DIRECT(aDevice, aCDB, pConfigVCPS,
                                  SizeOf(TGET_CONFIGURATION_VCPS))
  then begin
    DataLength := pConfigVCPS.Header[0] shl 24 or
                  pConfigVCPS.Header[1] shl 16 or
                  pConfigVCPS.Header[2] shl  8 or
                  pConfigVCPS.Header[3];
    {
    *  Wenn das Feature existiert.
    }
    if DataLength > 4 then
    with FDrive[FActive].VCPS
    do begin
      FeatureCode := pConfigVCPS.Data[0] shl 8 or pConfigVCPS.Data[1];
      Version     := pConfigVCPS.Data[2] and $3C shr 2;
      Persistent  := pConfigVCPS.Data[2] and $02 > 0;
      Current     := pConfigVCPS.Data[2] and $01 > 0;
      AddLength   := pConfigVCPS.Data[3];
      {
      *  Ergebnis
      }
      Result := FeatureCode = FEATURE_VCPS;
    end;
  end;
end;

Demo, welche diese Funktion nutzt:

VCPS (podVCPS.7z - 256 kb) MD5 (1 kb). Stand: 2. Juni 2013

Änderungen an der Demo

02.06.2013Kleine Überarbeitung und neuer Name.

$010D - AACS (DRM) > $0110 - DVD VCPS > Merkmale