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

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

DVD

开发平台：

Delphi

ISO9660SupplementVolClass.pas：源码内容
  1. {-----------------------------------------------------------------------------
  2.  Unit Name: ISO9660SupplementVolClass
  3.  Author:    Dancemammal, Daniel Mann / Thomas Koos (original class structure)
  4.  Purpose:   Supplementary Volume Descriptor Class
  5.  History:   First Code Release
  6. -----------------------------------------------------------------------------}
  8. Unit ISO9660SupplementVolClass;
  10. Interface
  12. Uses
  13.   SysUtils,
  14.   windows,
  15.   Classes,
  16.   CovertFuncs,
  17.   ISO9660ClassTypes;
  21. Type
  22.   TSupplementaryVolumeDescriptor = Class
  23.   Private
  24.     Function  GetString(Const AIndex : Integer): String;
  25.     Procedure SetString(const AIndex : Integer; Const Value: String);
  26.     Procedure SetVolumeIdentifier(Const Value: String);
  27.     Function  GetVolumeIdentifier : String;
  28.     Function  Getwide(ID : Array of Char) : String;
  29.   Protected
  30.     FDescriptor : TVolumeDescriptor;
  31.     FRootDirectoryRecord : TRootDirectoryRecord;
  32.     LastErrorString : String;
  33.   Public
  34.     Constructor Create; Overload; Virtual;
  35.     Constructor Create(Const ASupplementaryVolumeDescriptor : TVolumeDescriptor); Overload; Virtual;
  36.     Destructor  Destroy; Override;
  37.     Procedure ResetRootExtent(SUPPRootLBA : Integer);
  38.     Function GetLastError : String;
  39.   Published
  40.     Property  Descriptor : TVolumeDescriptor  Read  fDescriptor;
  41.     Property  SystemIdentifier            : String   Index 0  Read  GetString Write SetString;
  42.     Property  VolumeIdentifier            : String            Read  GetVolumeIdentifier Write SetVolumeIdentifier;
  43.     Property  VolumeSetIdentifier         : String   Index 2  Read  GetString Write SetString;
  44.     Property  PublisherIdentifier         : String   Index 3  Read  GetString Write SetString;
  45.     Property  DataPreparerIdentifier      : String   Index 4  Read  GetString Write SetString;
  46.     Property  ApplicationIdentifier       : String   Index 5  Read  GetString Write SetString;
  47.     Property  CopyrightFileIdentifier     : String   Index 6  Read  GetString Write SetString;
  48.     Property  AbstractFileIdentifier      : String   Index 7  Read  GetString Write SetString;
  49.     Property  BibliographicFileIdentifier : String   Index 8  Read  GetString Write SetString;
  50.     Property  VolumeCreationDateAndTime   : TVolumeDateTime   Read  fDescriptor.Supplementary.VolumeCreationDateAndTime
  51.                                                               Write fDescriptor.Supplementary.VolumeCreationDateAndTime;
  52.     Property  VolumeModificationDateAndTime : TVolumeDateTime
  53.                                                               Read  fDescriptor.Supplementary.VolumeModificationDateAndTime
  54.                                                               Write fDescriptor.Supplementary.VolumeModificationDateAndTime;
  55.     Property  VolumeExpirationDateAndTime : TVolumeDateTime   Read  fDescriptor.Supplementary.VolumeExpirationDateAndTime
  56.                                                               Write fDescriptor.Supplementary.VolumeExpirationDateAndTime;
  57.     Property  VolumeEffectiveDateAndTime  : TVolumeDateTime   Read  fDescriptor.Supplementary.VolumeEffectiveDateAndTime
  58.                                                               Write fDescriptor.Supplementary.VolumeEffectiveDateAndTime;
  59.     Property  VolumeSetSize               : TBothEndianWord   Read  fDescriptor.Supplementary.VolumeSetSize
  60.                                                               Write fDescriptor.Supplementary.VolumeSetSize;
  61.     Property  VolumeSequenceNumber        : TBothEndianWord   Read  fDescriptor.Supplementary.VolumeSequenceNumber
  62.                                                               Write fDescriptor.Supplementary.VolumeSequenceNumber;
  63.     Property  LogicalBlockSize            : TBothEndianWord   Read  fDescriptor.Supplementary.LogicalBlockSize
  64.                                                               Write fDescriptor.Supplementary.LogicalBlockSize;
  65.     Property  PathTableSize               : TBothEndianDWord  Read  fDescriptor.Supplementary.PathTableSize
  66.                                                               Write fDescriptor.Supplementary.PathTableSize;
  67.     Property  VolumeSpaceSize             : TBothEndianDWord  Read  fDescriptor.Supplementary.VolumeSpaceSize
  68.                                                               Write fDescriptor.Supplementary.VolumeSpaceSize;
  70.     Property  RootDirectory               : TRootDirectoryRecord
  71.                                                               Read  fDescriptor.Supplementary.RootDirectory
  72.                                                               Write fDescriptor.Supplementary.RootDirectory;
  74.     Property  LocationOfTypeLPathTable    : LongWord          Read  fDescriptor.Supplementary.LocationOfTypeLPathTable
  75.                                                               Write fDescriptor.Supplementary.LocationOfTypeLPathTable;
  76.     Property  LocationOfOptionalTypeLPathTable : LongWord     Read  fDescriptor.Supplementary.LocationOfOptionalTypeLPathTable
  77.                                                               Write fDescriptor.Supplementary.LocationOfOptionalTypeLPathTable;
  78.     Property  LocationOfTypeMPathTable    : LongWord          Read  fDescriptor.Supplementary.LocationOfTypeMPathTable
  79.                                                               Write fDescriptor.Supplementary.LocationOfTypeMPathTable;
  80.     Property  LocationOfOptionalTypeMPathTable : LongWord     Read  fDescriptor.Supplementary.LocationOfOptionalTypeMPathTable
  81.                                                               Write fDescriptor.Supplementary.LocationOfOptionalTypeMPathTable;
  82.     Property  VolumeFlags                      : Byte         Read  fDescriptor.Supplementary.VolumeFlags
  83.                                                               Write fDescriptor.Supplementary.VolumeFlags;
  84.   End;
  89. Implementation
  94. Constructor TSupplementaryVolumeDescriptor.Create; // New Widestring Functions
  95. var
  96.      Temp : String;
  97.      WideChr : PWideChar;
  98. Begin
  99.   Inherited Create;
  100.   FillChar(fDescriptor, SizeOf(fDescriptor), 0);
  101.   fDescriptor.DescriptorType := vdtSVD;
  102.   WideChr := 'WIN32';
  103.   FillChar(FDescriptor.Supplementary.SystemIdentifier,32,0);
  104.   CopyMemory(@FDescriptor.Supplementary.SystemIdentifier[1],@WideChr[0],(length('WIN32')*2)-1);//makes it big endian wide char
  105.   FDescriptor.Supplementary.StandardIdentifier      := ISO_STANDARD_ID;
  106.   FDescriptor.Supplementary.VolumeDescriptorVersion := 1;
  107.   FDescriptor.Supplementary.VolumeSetSize           := BuildBothEndianWord(1);
  108.   FDescriptor.Supplementary.FileStructureVersion    := $01;
  109.   FillChar(FDescriptor.Supplementary.PublisherIdentifier,length(FDescriptor.Supplementary.PublisherIdentifier),$20);
  110.   FillChar(FDescriptor.Supplementary.DataPreparerIdentifier,length(FDescriptor.Supplementary.DataPreparerIdentifier),$20);
  111.   FillChar(FDescriptor.Supplementary.PublisherIdentifier,length(FDescriptor.Supplementary.PublisherIdentifier),$20);
  112.   FillChar(FDescriptor.Supplementary.VolumeSetIdentifier,length(FDescriptor.Supplementary.VolumeSetIdentifier),$20);
  113.   FDescriptor.Supplementary.VolumeCreationDateAndTime := BuildVolumeDateTime(NOW,0);
  114.   FDescriptor.Supplementary.VolumeModificationDateAndTime := BuildVolumeDateTime(NOW,0);
  115.   FDescriptor.Supplementary.LogicalBlockSize              := BuildBothEndianWord(2048);
  116.   FDescriptor.Supplementary.VolumeSequenceNumber          := BuildBothEndianWord(1);
  117.   FDescriptor.Supplementary.LocationOfTypeLPathTable      := 21;
  118.   FDescriptor.Supplementary.LocationOfOptionalTypeLPathTable := 0;
  119.   FDescriptor.Supplementary.LocationOfTypeMPathTable      := SwapDWord(22);
  120.   FDescriptor.Supplementary.LocationOfOptionalTypeMPathTable := 0;
  121.   FillChar(FDescriptor.Supplementary.EscapeSequences,32,0);
  123.   FDescriptor.Supplementary.EscapeSequences[0] := '%';
  124.   FDescriptor.Supplementary.EscapeSequences[1] := '/';
  125.   FDescriptor.Supplementary.EscapeSequences[2] := 'E';
  127.   Temp := FormatDateTime('yyyymmddhhnnsszz',Now);
  128.  // WideChr := pwidechar(Temp);
  129.   WideChr := StrToUnicode(Temp);
  130.   FillChar(FDescriptor.Supplementary.VolumeIdentifier,32,0);
  131.   CopyMemory(@FDescriptor.Supplementary.VolumeIdentifier[1],@WideChr[0],(length(Temp)*2)-1);//makes it big endian wide char
  133.   WideChr := StrToUnicode(ISO_LIBRARY_ID);
  134.   FillChar(FDescriptor.Supplementary.ApplicationIdentifier,128,0);
  135.   CopyMemory(@FDescriptor.Supplementary.ApplicationIdentifier[1],@WideChr[0],(length(ISO_LIBRARY_ID)*2)-1);//makes it big endian wide char
  136. End;
  140. Procedure TSupplementaryVolumeDescriptor.ResetRootExtent(SUPPRootLBA : Integer);
  141. begin
  142.     FDescriptor.Supplementary.RootDirectory.LocationOfExtent := BuildBothEndianDWord(SUPPRootLBA);
  143. end;
  147. Constructor TSupplementaryVolumeDescriptor.Create(Const ASupplementaryVolumeDescriptor: TVolumeDescriptor);
  148. Begin
  149.   Inherited Create;
  150.   If ( ASupplementaryVolumeDescriptor.DescriptorType <> vdtSVD ) Then
  151.     LastErrorString :=('MisMatched Primary Volume Descriptor');
  152.   fDescriptor := ASupplementaryVolumeDescriptor;
  153. End;
  157. Destructor TSupplementaryVolumeDescriptor.Destroy;
  158. Begin
  159.   Inherited;
  160. End;
  163. Function TSupplementaryVolumeDescriptor.GetLastError : String;
  164. begin
  165.     Result := LastErrorString;
  166. end;
  169. Function TSupplementaryVolumeDescriptor.Getwide(ID : Array of Char) : String;
  170. var
  171.   TempStr : String;
  172.   Index : Integer;
  173. begin
  174.    For Index := 0 to length(id) do
  175.    TempStr := TempStr + id[index];
  176.    Result := TempStr;
  177. end;
  181. Function TSupplementaryVolumeDescriptor.GetString(Const AIndex: Integer): String;
  182. Begin
  183.   Case AIndex Of
  184.     0 : Result := Getwide(fDescriptor.Supplementary.SystemIdentifier);
  185.     1 : Result := Getwide(fDescriptor.Supplementary.VolumeIdentifier);
  186.     2 : Result := Getwide(fDescriptor.Supplementary.VolumeSetIdentifier);
  187.     3 : Result := Getwide(fDescriptor.Supplementary.PublisherIdentifier);
  188.     4 : Result := Getwide(fDescriptor.Supplementary.DataPreparerIdentifier);
  189.     5 : Result := Getwide(fDescriptor.Supplementary.ApplicationIdentifier);
  190.     6 : Result := Getwide(fDescriptor.Supplementary.CopyrightFileIdentifier);
  191.     7 : Result := Getwide(fDescriptor.Supplementary.AbstractFileIdentifier);
  192.     8 : Result := Getwide(fDescriptor.Supplementary.BibliographicFileIdentifier);
  193.     9 : Result := Getwide(fDescriptor.Supplementary.StandardIdentifier);
  194.   End;
  195. End;
  199. Procedure TSupplementaryVolumeDescriptor.SetVolumeIdentifier(Const Value: String);
  200. var
  201.      WideChr : PWideChar;
  202.      Temp : String;
  203.      Size : Integer;
  204. begin
  205.    Temp := Value;
  206.    Size := (length(temp)+1)*2;
  207.    WideChr := PWideChar(StrAlloc(Size));//important
  208.    StringToWideChar(temp,WideChr,Size + 1);
  209.    FillChar(fDescriptor.Supplementary.VolumeIdentifier,32,0);
  210.    CopyMemory(@fDescriptor.Supplementary.VolumeIdentifier[1],@WideChr[0],(length(Temp)*2)-1);//makes it big endian wide char
  211. end;
  215. Function TSupplementaryVolumeDescriptor.GetVolumeIdentifier : String;
  216. var
  217.   TempStr : String;
  218. begin
  219.    TempStr := Getwide(fDescriptor.Supplementary.VolumeIdentifier);
  220.    Result := TempStr;
  221. end;
  225. Procedure TSupplementaryVolumeDescriptor.SetString(Const AIndex: Integer; Const Value: String);
  226. Begin
  227.   Case AIndex Of
  228.     0 : StrPCopy(fDescriptor.Supplementary.SystemIdentifier,
  229.                   Copy(Value, 1, Length(fDescriptor.Supplementary.SystemIdentifier)));
  230.     1 : StrPCopy(fDescriptor.Supplementary.VolumeIdentifier,
  231.                   Copy(Value, 1, Length(fDescriptor.Supplementary.VolumeIdentifier)));
  232.     2 : StrPCopy(fDescriptor.Supplementary.VolumeSetIdentifier,
  233.                   Copy(Value, 1, Length(fDescriptor.Supplementary.VolumeSetIdentifier)));
  234.     3 : StrPCopy(fDescriptor.Supplementary.PublisherIdentifier,
  235.                   Copy(Value, 1, Length(fDescriptor.Supplementary.PublisherIdentifier)));
  236.     4 : StrPCopy(fDescriptor.Supplementary.DataPreparerIdentifier,
  237.                   Copy(Value, 1, Length(fDescriptor.Supplementary.DataPreparerIdentifier)));
  238.     5 : StrPCopy(fDescriptor.Supplementary.ApplicationIdentifier,
  239.                   Copy(Value, 1, Length(fDescriptor.Supplementary.ApplicationIdentifier)));
  240.     6 : StrPCopy(fDescriptor.Supplementary.CopyrightFileIdentifier,
  241.                   Copy(Value, 1, Length(fDescriptor.Supplementary.CopyrightFileIdentifier)));
  242.     7 : StrPCopy(fDescriptor.Supplementary.AbstractFileIdentifier,
  243.                   Copy(Value, 1, Length(fDescriptor.Supplementary.AbstractFileIdentifier)));
  244.     8 : StrPCopy(fDescriptor.Supplementary.BibliographicFileIdentifier,
  245.                   Copy(Value, 1, Length(fDescriptor.Supplementary.BibliographicFileIdentifier)));
  246.     9 : StrPCopy(fDescriptor.Supplementary.StandardIdentifier,
  247.                   Copy(Value, 1, Length(fDescriptor.Supplementary.StandardIdentifier)));
  248.   End;
  249. End;
  251. End.