开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > DVD > 查看源码
ISO9660PrimaryVolClass.pas
资源名称：freeburner.rar　[点击查看]
上传用户：wanyu_2000
上传日期：2021-02-21
资源大小：527k
文件大小：10k
源码类别：

DVD

开发平台：

Delphi

ISO9660PrimaryVolClass.pas：源码内容
  1. {-----------------------------------------------------------------------------
  2.  Unit Name: ISO9660PrimaryVolClass
  3.  Author:    Dancemammal, Daniel Mann / Thomas Koos (original class structure)
  4.  Purpose:  Primary Volume Descriptor Class
  5.  History:  First Code Release
  6. -----------------------------------------------------------------------------}
  9. Unit ISO9660PrimaryVolClass;
  11. Interface
  13. Uses
  14.   SysUtils,
  15.   Classes,
  16.   CovertFuncs,
  17.   ISO9660ClassTypes;
  20. Type
  21.   TPrimaryVolumeDescriptor = Class
  22.   Private
  23.     Function  GetString(Const AIndex : Integer): String;
  24.     Procedure SetString(const AIndex : Integer; Const Value: String);
  25.   Protected
  26.     FDescriptor : TVolumeDescriptor;
  27.     LastErrorString : String;
  28.   Public
  29.     Constructor Create; Overload; Virtual;
  30.     Constructor Create(Const APrimaryVolumeDescriptor : TVolumeDescriptor); Overload; Virtual;
  31.     Destructor  Destroy; Override;
  32.     Function GetLastError : String;
  33.   Published
  34.     Property  Descriptor : TVolumeDescriptor  Read  fDescriptor;
  35.     Property  SystemIdentifier            : String   Index 0  Read  GetString Write SetString;
  36.     Property  VolumeIdentifier            : String   Index 1  Read  GetString Write SetString;
  37.     Property  VolumeSetIdentifier         : String   Index 2  Read  GetString Write SetString;
  38.     Property  PublisherIdentifier         : String   Index 3  Read  GetString Write SetString;
  39.     Property  DataPreparerIdentifier      : String   Index 4  Read  GetString Write SetString;
  40.     Property  ApplicationIdentifier       : String   Index 5  Read  GetString Write SetString;
  41.     Property  CopyrightFileIdentifier     : String   Index 6  Read  GetString Write SetString;
  42.     Property  AbstractFileIdentifier      : String   Index 7  Read  GetString Write SetString;
  43.     Property  BibliographicFileIdentifier : String   Index 8  Read  GetString Write SetString;
  44.     Property  VolumeCreationDateAndTime   : TVolumeDateTime   Read  fDescriptor.Primary.VolumeCreationDateAndTime
  45.                                                               Write fDescriptor.Primary.VolumeCreationDateAndTime;
  46.     Property  VolumeModificationDateAndTime : TVolumeDateTime
  47.                                                               Read  fDescriptor.Primary.VolumeModificationDateAndTime
  48.                                                               Write fDescriptor.Primary.VolumeModificationDateAndTime;
  49.     Property  VolumeExpirationDateAndTime : TVolumeDateTime   Read  fDescriptor.Primary.VolumeExpirationDateAndTime
  50.                                                               Write fDescriptor.Primary.VolumeExpirationDateAndTime;
  51.     Property  VolumeEffectiveDateAndTime  : TVolumeDateTime   Read  fDescriptor.Primary.VolumeEffectiveDateAndTime
  52.                                                               Write fDescriptor.Primary.VolumeEffectiveDateAndTime;
  53.     Property  VolumeSetSize               : TBothEndianWord   Read  fDescriptor.Primary.VolumeSetSize
  54.                                                               Write fDescriptor.Primary.VolumeSetSize;
  55.     Property  VolumeSequenceNumber        : TBothEndianWord   Read  fDescriptor.Primary.VolumeSequenceNumber
  56.                                                               Write fDescriptor.Primary.VolumeSequenceNumber;
  57.     Property  LogicalBlockSize            : TBothEndianWord   Read  fDescriptor.Primary.LogicalBlockSize
  58.                                                               Write fDescriptor.Primary.LogicalBlockSize;
  59.     Property  PathTableSize               : TBothEndianDWord  Read  fDescriptor.Primary.PathTableSize
  60.                                                               Write fDescriptor.Primary.PathTableSize;
  61.     Property  VolumeSpaceSize             : TBothEndianDWord  Read  fDescriptor.Primary.VolumeSpaceSize
  62.                                                               Write fDescriptor.Primary.VolumeSpaceSize;
  63.                                                               
  64.     Property  RootDirectory               : TRootDirectoryRecord
  65.                                                               Read  fDescriptor.Primary.RootDirectory
  66.                                                               Write fDescriptor.Primary.RootDirectory;
  68.     Property  LocationOfTypeLPathTable    : LongWord          Read  fDescriptor.Primary.LocationOfTypeLPathTable
  69.                                                               Write fDescriptor.Primary.LocationOfTypeLPathTable;
  70.     Property  LocationOfOptionalTypeLPathTable : LongWord     Read  fDescriptor.Primary.LocationOfOptionalTypeLPathTable
  71.                                                               Write fDescriptor.Primary.LocationOfOptionalTypeLPathTable;
  72.     Property  LocationOfTypeMPathTable    : LongWord          Read  fDescriptor.Primary.LocationOfTypeMPathTable
  73.                                                               Write fDescriptor.Primary.LocationOfTypeMPathTable;
  74.     Property  LocationOfOptionalTypeMPathTable : LongWord     Read  fDescriptor.Primary.LocationOfOptionalTypeMPathTable
  75.                                                               Write fDescriptor.Primary.LocationOfOptionalTypeMPathTable;
  76.   End;
  80. Implementation
  86. Constructor TPrimaryVolumeDescriptor.Create;
  87. Begin
  88.   Inherited Create;
  89.   FillChar(FDescriptor, SizeOf(FDescriptor), 0);
  90.   FDescriptor.DescriptorType := vdtPVD;
  91.   FDescriptor.Primary.SystemIdentifier        := ISO_SYSTEM_ID;
  92.   FDescriptor.Primary.StandardIdentifier      := ISO_STANDARD_ID;
  93.   FDescriptor.Primary.VolumeDescriptorVersion := 1;
  94.   FDescriptor.Primary.VolumeSetSize           := BuildBothEndianWord(1);
  95.   FDescriptor.Primary.ApplicationIdentifier   := ISO_LIBRARY_ID;
  96.   FillChar(FDescriptor.Primary.PublisherIdentifier,length(FDescriptor.Primary.PublisherIdentifier),$20);
  97.   FillChar(FDescriptor.Primary.DataPreparerIdentifier,length(FDescriptor.Primary.DataPreparerIdentifier),$20);
  98.   FillChar(FDescriptor.Primary.PublisherIdentifier,length(FDescriptor.Primary.PublisherIdentifier),$20);
  99.   FillChar(FDescriptor.Primary.VolumeSetIdentifier,length(FDescriptor.Primary.VolumeSetIdentifier),$20);
  100.   FDescriptor.Primary.FileStructureVersion    := $01;
  101.   FDescriptor.Primary.VolumeCreationDateAndTime := BuildVolumeDateTime(NOW,0);
  102.   FDescriptor.Primary.VolumeModificationDateAndTime := BuildVolumeDateTime(NOW,0);
  103.   FDescriptor.Primary.LogicalBlockSize              := BuildBothEndianWord(2048);
  104.   FDescriptor.Primary.VolumeSequenceNumber          := BuildBothEndianWord(1);
  105.   FDescriptor.Primary.VolumeSetSize                 := BuildBothEndianWord(1);
  106.   FDescriptor.Primary.LocationOfTypeLPathTable      := 19;
  107.   FDescriptor.Primary.LocationOfOptionalTypeLPathTable := 0;
  108.   FDescriptor.Primary.LocationOfTypeMPathTable      := SwapDWord(20);
  109.   FDescriptor.Primary.LocationOfOptionalTypeMPathTable := 0;
  110.   FillChar(FDescriptor.Primary.EscapeSequences,32,0);
  112.   FDescriptor.Primary.EscapeSequences[0] := '%';
  113.   FDescriptor.Primary.EscapeSequences[1] := '/';
  114.   FDescriptor.Primary.EscapeSequences[2] := 'E';
  115. End;
  120. Constructor TPrimaryVolumeDescriptor.Create(Const APrimaryVolumeDescriptor: TVolumeDescriptor);
  121. Begin
  122.   Inherited Create;
  123.   If ( APrimaryVolumeDescriptor.DescriptorType <> vdtPVD ) Then
  124.     LastErrorString := ('MisMatched Primary Volume Descriptor');
  125.   fDescriptor := APrimaryVolumeDescriptor;
  126. End;
  129. Destructor TPrimaryVolumeDescriptor.Destroy;
  130. Begin
  131.   Inherited Destroy;
  132. End;
  135. Function TPrimaryVolumeDescriptor.GetLastError : String;
  136. begin
  137.     Result := LastErrorString;
  138. end;
  141. Function TPrimaryVolumeDescriptor.GetString(Const AIndex : Integer): String;
  142. Begin
  143.   Case AIndex Of
  144.     0 : Result := fDescriptor.Primary.SystemIdentifier;
  145.     1 : Result := fDescriptor.Primary.VolumeIdentifier;
  146.     2 : Result := fDescriptor.Primary.VolumeSetIdentifier;
  147.     3 : Result := fDescriptor.Primary.PublisherIdentifier;
  148.     4 : Result := fDescriptor.Primary.DataPreparerIdentifier;
  149.     5 : Result := fDescriptor.Primary.ApplicationIdentifier;
  150.     6 : Result := fDescriptor.Primary.CopyrightFileIdentifier;
  151.     7 : Result := fDescriptor.Primary.AbstractFileIdentifier;
  152.     8 : Result := fDescriptor.Primary.BibliographicFileIdentifier;
  153.   End;
  154. End;
  158. Procedure TPrimaryVolumeDescriptor.SetString(Const AIndex: Integer; Const Value: String);
  159. Begin
  161.   Case AIndex Of
  162.     0 : StrPCopy(fDescriptor.Primary.SystemIdentifier,
  163.                   Copy(Value, 1, Length(fDescriptor.Primary.SystemIdentifier)));
  164.     1 : StrPCopy(fDescriptor.Primary.VolumeIdentifier,
  165.                   Copy(Value, 1, Length(fDescriptor.Primary.VolumeIdentifier)));
  166.     2 : StrPCopy(fDescriptor.Primary.VolumeSetIdentifier,
  167.                   Copy(Value, 1, Length(fDescriptor.Primary.VolumeSetIdentifier)));
  168.     3 : StrPCopy(fDescriptor.Primary.PublisherIdentifier,
  169.                   Copy(Value, 1, Length(fDescriptor.Primary.PublisherIdentifier)));
  170.     4 : StrPCopy(fDescriptor.Primary.DataPreparerIdentifier,
  171.                   Copy(Value, 1, Length(fDescriptor.Primary.DataPreparerIdentifier)));
  172.     5 : StrPCopy(fDescriptor.Primary.ApplicationIdentifier,
  173.                   Copy(Value, 1, Length(fDescriptor.Primary.ApplicationIdentifier)));
  174.     6 : StrPCopy(fDescriptor.Primary.CopyrightFileIdentifier,
  175.                   Copy(Value, 1, Length(fDescriptor.Primary.CopyrightFileIdentifier)));
  176.     7 : StrPCopy(fDescriptor.Primary.AbstractFileIdentifier,
  177.                   Copy(Value, 1, Length(fDescriptor.Primary.AbstractFileIdentifier)));
  178.     8 : StrPCopy(fDescriptor.Primary.BibliographicFileIdentifier,
  179.                   Copy(Value, 1, Length(fDescriptor.Primary.BibliographicFileIdentifier)));
  180.   End;
  181. End;
  184. End.