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

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

DVD

开发平台：

Delphi

ISO9660ClassTypes.pas：源码内容
  1. {-----------------------------------------------------------------------------
  2.  Unit Name: ISO9660;
  3.  Author:    Dancemammal , Daniel Mann / Thomas Koos (original class structure)
  4.  Purpose:   Unit for working with ISO Images
  5.  History:   First Code Release
  6. -----------------------------------------------------------------------------}
  9. unit ISO9660ClassTypes;
  11. interface
  13. uses windows,Classes,SysUtils,CovertFuncs;
  15.                                                          
  16. Const
  17.      ISO_VD_PRIMARY      = 1;
  18.      ISO_VD_END          = 255;
  19.      ISO_STANDARD_ID     = 'CD001';
  20.      ISO_SYSTEM_ID       = 'WIN32';
  21.      ISO_LIBRARY_ID      = 'WWW.DANCEMAMMAL.COM';
  22.      MAX_DEPTH           = 255;
  23.      DEFAULT_SECTOR_SIZE = 2048;
  24.      HEADER_START_SECTOR = 16;
  26.     VSD_STD_ID_NSR02                     = 'NSR0'; (* (3/9.1) *)
  27. (* Standard Identifier (ECMA 167r3 2/9.1.2) *)     VSD_STD_ID_BEA01                     = 'BEA01'; (* (2/9.2) *)     VSD_STD_ID_BOOT2                     = 'BOOT2'; (* (2/9.4) *)     VSD_STD_ID_CD001                     = 'CD001'; (* (ECMA-119) *)     VSD_STD_ID_CDW02                     = 'CDW02'; (* (ECMA-168) *)     VSD_STD_ID_NSR03                     = 'NSR03'; (* (3/9.1) *)     VSD_STD_ID_TEA01                     = 'TEA01'; (* (2/9.3) *)
  29.     // Volume Descriptor Types
  30.     vdtBR   = $00; // Boot Record
  31.     vdtPVD  = $01; // Primary Volume Descriptor
  32.     vdtSVD  = $02; // Supplementary Volume Descriptor
  33.     vdtVDST = $ff; // Volume Descriptor Set Terminator
  35.     FilesPerBlock = 30;
  40. type
  41.   TCharArr = array of Char;
  43. Type
  45.   PPathTableRecord = ^TPathTableRecord;
  46.   TPathTableRecord = Packed Record
  47.     LengthOfDirectoryIdentifier      : Byte;
  48.     ExtendedAttributeRecordLength    : Byte;
  49.     LocationOfExtent                 : LongWord;
  50.     ParentDirectoryNumber            : Word;
  51.     DirectoryIdentifier              : array [0..36] of Char;
  53.     LocationOfExtentM                : LongWord;
  54.     LengthOfDirectoryIdentifierM     : Byte;
  55.     DirectoryIdentifierM             : array [0..127] of Char;
  56.     JolietLocationOfExtent           : LongWord;
  57.     JolietLocationOfExtentM          : LongWord;
  58.     LengthOfPathRecord               : Byte;
  59.     LengthOfPathRecordM              : Byte;
  60.   End;
  63.   PRootDirectoryRecord = ^TRootDirectoryRecord;
  64.   TRootDirectoryRecord = Packed Record
  65.      LengthOfDirectoryRecord          : Byte;
  66.      ExtendedAttributeRecordLength    : Byte;
  67.      LocationOfExtent                 : TBothEndianDWord;
  68.      DataLength                       : TBothEndianDWord;
  69.      RecordingDateAndTime             : TDirectoryDateTime;
  70.      FileFlags                        : Byte;
  71.      FileUnitSize                     : Byte;
  72.      InterleaveGapSize                : Byte;
  73.      VolumeSequenceNumber             : TBothEndianWord;
  74.      LengthOfFileIdentifier           : Byte; // = 1
  75.      FileIdentifier                   : Byte; // = 0
  76.   End;
  79.   PDirectoryRecord = ^TDirectoryRecord;
  80.   TDirectoryRecord = Packed Record
  81.     LengthOfDirectoryRecord          : Byte;
  82.     ExtendedAttributeRecordLength    : Byte;
  83.     LocationOfExtent                 : TBothEndianDWord;
  84.     DataLength                       : TBothEndianDWord;
  85.     RecordingDateAndTime             : TDirectoryDateTime;
  86.     FileFlags                        : Byte;
  87.     FileUnitSize                     : Byte;
  88.     InterleaveGapSize                : Byte;
  89.     VolumeSequenceNumber             : TBothEndianWord;
  90.     LengthOfFileIdentifier           : Byte;
  91.     // followed by FileIdentifier and padding bytes
  92.   End;
  95.   TPrimaryVolumeDescriptor = Packed Record
  96.      StandardIdentifier               : Array [0..4] Of Char;
  97.      VolumeDescriptorVersion          : Byte;
  98.      unused                           : Byte;
  99.      SystemIdentifier                 : Array [0..31] Of Char;
  100.      VolumeIdentifier                 : Array [0..31] Of Char;
  101.      Unused2                          : Array [0..7] Of Byte;
  102.      VolumeSpaceSize                  : TBothEndianDWord;
  103.      EscapeSequences                  : Array [0..31] of Char;
  104.      VolumeSetSize                    : TBothEndianWord;
  105.      VolumeSequenceNumber             : TBothEndianWord;
  106.      LogicalBlockSize                 : TBothEndianWord;
  107.      PathTableSize                    : TBothEndianDWord;
  108.      LocationOfTypeLPathTable         : LongWord;
  109.      LocationOfOptionalTypeLPathTable : LongWord;
  110.      LocationOfTypeMPathTable         : LongWord;
  111.      LocationOfOptionalTypeMPathTable : LongWord;
  112.      RootDirectory                    : TRootDirectoryRecord;
  113.      VolumeSetIdentifier              : Array [0..127] Of Char;
  114.      PublisherIdentifier              : Array [0..127] Of Char;
  115.      DataPreparerIdentifier           : Array [0..127] Of Char;
  116.      ApplicationIdentifier            : Array [0..127] Of Char;
  117.      CopyrightFileIdentifier          : Array [0..36] Of Char;
  118.      AbstractFileIdentifier           : Array [0..36] Of Char;
  119.      BibliographicFileIdentifier      : Array [0..36] Of Char;
  120.      VolumeCreationDateAndTime        : TVolumeDateTime;
  121.      VolumeModificationDateAndTime    : TVolumeDateTime;
  122.      VolumeExpirationDateAndTime      : TVolumeDateTime;
  123.      VolumeEffectiveDateAndTime       : TVolumeDateTime;
  124.      FileStructureVersion             : Byte;
  125.      ReservedForFutureStandardization : Byte;
  126.      ApplicationUse                   : Array [0..511] Of Byte;
  127.      ReservedForFutureStandardization2: Array [0..652] Of Byte;
  128.   End;
  131.   TSupplementaryVolumeDescriptor = Packed Record
  132.      StandardIdentifier               : Array [0..4] Of Char;
  133.      VolumeDescriptorVersion          : Byte;
  134.      VolumeFlags                      : Byte;
  135.      SystemIdentifier                 : Array [0..31] Of Char;
  136.      VolumeIdentifier                 : Array [0..31] Of Char;
  137.      Unused2                          : Array [0..7] Of Byte;
  138.      VolumeSpaceSize                  : TBothEndianDWord;
  139.      EscapeSequences                  : Array [0..31] of Char;
  140.      VolumeSetSize                    : TBothEndianWord;
  141.      VolumeSequenceNumber             : TBothEndianWord;
  142.      LogicalBlockSize                 : TBothEndianWord;
  143.      PathTableSize                    : TBothEndianDWord;
  144.      LocationOfTypeLPathTable         : LongWord;
  145.      LocationOfOptionalTypeLPathTable : LongWord;
  146.      LocationOfTypeMPathTable         : LongWord;
  147.      LocationOfOptionalTypeMPathTable : LongWord;
  148.      RootDirectory                    : TRootDirectoryRecord;
  149.      VolumeSetIdentifier              : Array [0..127] Of Char;
  150.      PublisherIdentifier              : Array [0..127] Of Char;
  151.      DataPreparerIdentifier           : Array [0..127] Of Char;
  152.      ApplicationIdentifier            : Array [0..127] Of Char;
  153.      CopyrightFileIdentifier          : Array [0..36] Of Char;
  154.      AbstractFileIdentifier           : Array [0..36] Of Char;
  155.      BibliographicFileIdentifier      : Array [0..36] Of Char;
  156.      VolumeCreationDateAndTime        : TVolumeDateTime;
  157.      VolumeModificationDateAndTime    : TVolumeDateTime;
  158.      VolumeExpirationDateAndTime      : TVolumeDateTime;
  159.      VolumeEffectiveDateAndTime       : TVolumeDateTime;
  160.      FileStructureVersion             : Byte;
  161.      ReservedForFutureStandardization : Byte;
  162.      ApplicationUse                   : Array [0..511] Of Byte;
  163.      ReservedForFutureStandardization2: Array [0..652] Of Byte;
  164.   End;
  169. Type
  170.     TISOImage_Volume_Descriptors = packed Record
  171.           Image_Fileformat            : String[30];
  172.           Image_Version               : String[30];
  173.           PrimaryVolumeDescriptor     : TPrimaryVolumeDescriptor;
  174.           SecondaryVolumeDescriptor   : TSupplementaryVolumeDescriptor;
  175.           PathTable                   : array of Pointer;
  176.           PathTable_Number            : integer;
  177.           Directories                 : array of Pointer;
  178.           Directories_Number          : integer;
  179.         end;
  185. Type
  186.   TBootVolumeDescriptor = packed record
  187.     StandardIdentifier               : Array [0..4] of Char;
  188.     VersionOfDescriptor              : Byte;
  189.     BootSystemIdentifier             : Array [0..31] of Char;
  190.     BootIdentifier                   : Array [0..31] of Char;
  191.     BootCatalogPointer               : LongWord;
  192.     Unused                           : Array [0..1972] of Byte;
  193.   end;
  198.   TBootCatalog = packed record
  199.     Header: Byte;
  200.     PlatformID: Byte;
  201.     Reserved1: Word;
  202.     Developer: packed array [4..27] of Char;
  203.     Checksum: Word;
  204.     KeyByte1: Byte;
  205.     KeyByte2: Byte;
  206.     BootIndicator: Byte;
  207.     BootMediaType: Byte;
  208.     LoadSegment: Word;
  209.     SystemType: Byte;
  210.     Unused1: Byte;
  211.     SectorCount: Word;
  212.     LoadRBA: DWORD;
  213.     Unused2: packed array [12..31] of Byte;
  214.     Unused3: packed array [48..2031] of Byte;
  215.   end;
  219. Type
  220.   TISOHeader = Packed Record
  221.        Header_Space     : Array [0..32767] of Char;
  222.   end;
  226. Type
  227.   TVolumeDescriptorSetTerminator = Packed Record
  228.     VolumeDescriptorType             : Byte;
  229.     StandardIdentifier               : Array [1..5] of Char;
  230.     VolumeDescriptorVersion          : Byte; // 7 so far
  231.     Unused                           : Array [1..2041] of Byte; //pad to 2048 
  232.   End;
  235. Type
  236.   TVolumeDescriptor = Packed Record
  237.     Case DescriptorType : Byte Of
  238.       vdtBR   : (BootRecord    : TBootVolumeDescriptor);
  239.       vdtPVD  : (Primary       : TPrimaryVolumeDescriptor);
  240.       vdtSVD  : (Supplementary : TSupplementaryVolumeDescriptor);
  241.   End;
  244. implementation
  248. end.