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

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

DVD

开发平台：

Delphi

PopulateMicroUDFRecords.pas：源码内容
  1. {-----------------------------------------------------------------------------
  2.  Unit Name: PopulateMicroUDFRecords
  3.  Author:    Dancemammal
  4.  Purpose:   Help Setup default UDf Records
  5.  History:
  6. -----------------------------------------------------------------------------}
  9. unit PopulateMicroUDFRecords;
  11. interface
  13. Uses MicroUDFClassTypes,MicroUDFConsts, Windows, Covertfuncs, Messages, SysUtils, Classes;
  16. Procedure PopulateUDFPrimaryVolumeDescriptor(VAR UDF_PVD : UDF_PrimaryVolumeDescriptor; Sector : Integer ; VolumeName : string);
  17. Procedure PopulateUDFImplementationUseVolumeDescriptor(VAR UDF_IUVD : UDF_ImplementationUseVolumeDescriptor; Sector : Integer ; VolumeName : string);
  18. Procedure PopulateUDFPartitionDescriptor(VAR UDF_PD : UDF_PartitionDescriptor; Sector : Integer ; VolumeName : string);
  19. Procedure PopulateUDFlogicalVolDesc(VAR UDF_LVD : UDF_logicalVolDesc; Sector : Integer ; VolumeName : string);
  20. Procedure PopulateUDFUnallocSpaceDesc(VAR UDF_USD : UDF_UnallocSpaceDesc; Sector : Integer ; VolumeName : string);
  21. Procedure PopulateUDFTerminatingDesc(VAR UDF_TD : UDF_TerminatingDesc; Sector : Integer ; VolumeName : string);
  22. Procedure PopulateUDFAnchorVolumeDescriptorPointer(VAR UDF_ADVP : UDF_AnchorVolumeDescriptorPointer; Sector : Integer ; VolumeName : string);
  23. Procedure PopulateUDFlogicalVolumeIntegrityDesc(VAR UDF_LVID : UDF_logicalVolumeIntegrityDesc; Sector : Integer ; NumOfFiles,NumOfDirs : Integer);
  24. Procedure PopulateUDFFileSetDescriptor(VAR UDF_FSD : UDF_FileSetDescriptor; Sector : Integer ; VolumeName : string);
  27. implementation
  30. Procedure FillRandomChar(VAR MyArray : Array of Char);
  31. var
  32. Index : integer;
  33. begin
  34.   Randomize;
  35.   For Index := 0 to 15 do
  36.      MyArray[Index] := Char(Random(26) + 65);
  37. end;
  40. Procedure BuildVolumeDateTime(var TimeStmp : UDF_TimeStamp);
  41. var
  42.    Year : Word;
  43.   Hour, Min, Sec, MSec,Month, Day: word;
  44. begin
  45.   DecodeTime(Now, Hour, Min, Sec, MSec);
  46.   DecodeDate(Now, Year, Month, Day);
  47.   TimeStmp.TypeAndTimezone := $0010;
  48.   TimeStmp.Year := Year;
  49.   TimeStmp.Month := Month;
  50.   TimeStmp.Day := Day;
  51.   TimeStmp.Hour := Hour;
  52.   TimeStmp.Minute := Min;
  53.   TimeStmp.Second := Sec;
  54.   TimeStmp.Centiseconds := MSec div 10;
  55.   TimeStmp.HundredsOfMicroseconds := MSec div 100;
  56.   TimeStmp.Microseconds := MSec;
  57. end;
  62. {Sector 32 plus repeated at sector 48}
  63. Procedure PopulateUDFPrimaryVolumeDescriptor(VAR UDF_PVD : UDF_PrimaryVolumeDescriptor; Sector : Integer ; VolumeName : string);
  64. begin
  65.   FillChar(UDF_PVD, SizeOf(UDF_PVD), Char(0)); // empty record
  66.   UDF_PVD.DescriptorTag.TagIdentifier       := TAG_IDENT_PVD;
  67.   UDF_PVD.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  68.   UDF_PVD.DescriptorTag.TagChecksum         := $00;
  69.   UDF_PVD.DescriptorTag.TagSerialNumber     := $00;
  70.   UDF_PVD.DescriptorTag.DescriptorCRC       := $00;
  71.   UDF_PVD.DescriptorTag.DescriptorCRCLength := $00;
  72.   UDF_PVD.DescriptorTag.TagLocation         := Sector; //20 00 00 00
  73.   UDF_PVD.VolumeDescriptorSequenceNumber    := $00000000;
  74.   UDF_PVD.PrimaryVolumeDescriptorNumber     := $00000000;
  76.   StrPCopy(UDF_PVD.VolumeIdentifier,Copy(VolumeName, 1, Length(UDF_PVD.VolumeIdentifier)));
  77.   UDF_PVD.VolumeSequenceNumber              := $0001; //0100
  78.   UDF_PVD.MaximumVolumeSequenceNumber       := $0001; //0100
  79.   UDF_PVD.InterchangeLevel                  := $0002;
  80.   UDF_PVD.MaximumInterchangeLevel           := $0002;
  81.   UDF_PVD.CharacterSetList                  := CHARSPEC_TYPE_CS1;
  82.   UDF_PVD.MaximumCharacterSetList           := CHARSPEC_TYPE_CS1;
  83.   FillRandomChar(UDF_PVD.VolumeSetIdentifier);// 08 33 33 39 45 42 44 36 44
  84.   UDF_PVD.DescriptorCharacterSet.CharSetType := OSTA_CS0_CHARACTER_SET_TYPE;
  85.   UDF_PVD.DescriptorCharacterSet.CharSetInfo := OSTA_CS0_CHARACTER_SET_INFO;
  87.   UDF_PVD.ExplanatoryCharacterSet.CharSetType := OSTA_CS0_CHARACTER_SET_TYPE;
  88.   UDF_PVD.ExplanatoryCharacterSet.CharSetInfo := OSTA_CS0_CHARACTER_SET_INFO;
  90.   UDF_PVD.VolumeAbstract.ExtentLength          := $0000;
  91.   UDF_PVD.VolumeAbstract.ExtentLocation        := $0000;
  92.   UDF_PVD.VolumeCopyrightNotice.ExtentLength          := $0000;
  93.   UDF_PVD.VolumeCopyrightNotice.ExtentLocation        := $0000;
  94.   BuildVolumeDateTime(UDF_PVD.RecordingDateAndTime);
  96.   UDF_PVD.ImplementationIdentifier.Flags         := $00;
  97.   UDF_PVD.ImplementationIdentifier.Identifier    := OSTA_DEVELOPER_ID;
  99. end;
  102. {Sector 33}
  103. Procedure PopulateUDFImplementationUseVolumeDescriptor(VAR UDF_IUVD : UDF_ImplementationUseVolumeDescriptor; Sector : Integer ; VolumeName : string);
  104. begin
  105.   UDF_IUVD.DescriptorTag.TagIdentifier       := TAG_IDENT_IUVD;
  106.   UDF_IUVD.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  107.   UDF_IUVD.DescriptorTag.TagChecksum         := $00;
  108.   UDF_IUVD.DescriptorTag.TagSerialNumber     := $00;
  109.   UDF_IUVD.DescriptorTag.DescriptorCRC       := $00;
  110.   UDF_IUVD.DescriptorTag.DescriptorCRCLength := $00;
  111.   UDF_IUVD.DescriptorTag.TagLocation         := Sector; //21 00 00 00
  112.   
  113.   UDF_IUVD.VolumeDescriptorSequenceNumber    := $0001; //0100
  114.   UDF_IUVD.ImplementationIdentifier.Flags         := $00;
  115.   UDF_IUVD.ImplementationIdentifier.Identifier    := REGID_ID_LV_INFO;
  117.   UDF_IUVD.LVInformation.LVICharset.CharSetType := OSTA_CS0_CHARACTER_SET_TYPE;
  118.   UDF_IUVD.LVInformation.LVICharset.CharSetInfo := OSTA_CS0_CHARACTER_SET_INFO;
  119.   StrPCopy(UDF_IUVD.LVInformation.LogicalVolumeIdentifier,Copy(VolumeName, 1, Length(UDF_IUVD.LVInformation.LogicalVolumeIdentifier)));
  120.   UDF_IUVD.LVInformation.ImplementionID.Flags := $00;
  121.   UDF_IUVD.LVInformation.ImplementionID.Identifier := OSTA_DEVELOPER_ID;
  122. end;
  125. {Sector 34}
  126. Procedure PopulateUDFPartitionDescriptor(VAR UDF_PD : UDF_PartitionDescriptor; Sector : Integer ; VolumeName : string);
  127. begin
  128.   UDF_PD.DescriptorTag.TagIdentifier       := TAG_IDENT_PD;
  129.   UDF_PD.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  130.   UDF_PD.DescriptorTag.TagChecksum         := $00;
  131.   UDF_PD.DescriptorTag.TagSerialNumber     := $00;
  132.   UDF_PD.DescriptorTag.DescriptorCRC       := $00;
  133.   UDF_PD.DescriptorTag.DescriptorCRCLength := $00;
  134.   UDF_PD.DescriptorTag.TagLocation         := Sector; //22 00 00 00
  135.   UDF_PD.VolumeDescriptorSequenceNumber    := $0002;
  136.   UDF_PD.PartitionFlags                    := $0001;
  137.   UDF_PD.PartitionNumber                   := $0000;
  138.   UDF_PD.PartitionContents.Flags           := $02;
  139.   UDF_PD.PartitionContents.Identifier      := PD_PARTITION_CONTENTS_NSR02;
  140.   UDF_PD.AccessType                        := PD_ACCESS_TYPE_READ_ONLY;
  141.   UDF_PD.PartitionStartingLocation         := 262; //06 01 00 00
  142.   UDF_PD.PartitionLength                   := 1364814; //4E D3 14 00
  143.   UDF_PD.ImplementationIdentifier.Flags    := $00;
  144.   UDF_PD.ImplementationIdentifier.Identifier := OSTA_DEVELOPER_ID;
  145. end;
  148. {Sector 35}
  149. Procedure PopulateUDFlogicalVolDesc(VAR UDF_LVD : UDF_logicalVolDesc; Sector : Integer ; VolumeName : string);
  150. begin
  151.   UDF_LVD.DescriptorTag.TagIdentifier       := TAG_IDENT_LVD;
  152.   UDF_LVD.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  153.   UDF_LVD.DescriptorTag.TagChecksum         := $00;
  154.   UDF_LVD.DescriptorTag.TagSerialNumber     := $00;
  155.   UDF_LVD.DescriptorTag.DescriptorCRC       := $00;
  156.   UDF_LVD.DescriptorTag.DescriptorCRCLength := $00;
  157.   UDF_LVD.DescriptorTag.TagLocation         := Sector; //22 00 00 00
  158.   UDF_LVD.VolumeDescSeqNum                  := $0003;
  159.   UDF_LVD.DescriptorCharacterSet.CharSetType := OSTA_CS0_CHARACTER_SET_TYPE;
  160.   UDF_LVD.DescriptorCharacterSet.CharSetInfo := OSTA_CS0_CHARACTER_SET_INFO;
  161.   StrPCopy(UDF_LVD.LogicalVolumeIdentifier,Copy(VolumeName, 1, Length(UDF_LVD.LogicalVolumeIdentifier)));
  162.   UDF_LVD.LogicalBlockSize                   := 2048;
  163.   UDF_LVD.DomainIdentifier.Flags             := $00;
  164.   UDF_LVD.DomainIdentifier.Identifier        := REGID_ID_COMPLIANT;
  165.   UDF_LVD.ImplementationIdentifier.Flags     := $00;
  166.   UDF_LVD.ImplementationIdentifier.Identifier := OSTA_DEVELOPER_ID;
  167.   UDF_LVD.IntegritySequenceExtent.ExtentLength := 4096;
  168.   UDF_LVD.IntegritySequenceExtent.ExtentLocation:= 64;
  169.   UDF_LVD.partitionMap1.PartitionMapType        :=$01;
  170.   UDF_LVD.partitionMap1.PartitionMapLength      :=$06;
  171.   UDF_LVD.partitionMap1.VolumeSeqNumber         :=$01;
  172.   UDF_LVD.partitionMap1.partitionNumber         :=$00;
  173. end;
  176. {Sector 36}
  177. Procedure PopulateUDFUnallocSpaceDesc(VAR UDF_USD : UDF_UnallocSpaceDesc; Sector : Integer ; VolumeName : string);
  178. begin
  179.   UDF_USD.DescriptorTag.TagIdentifier       := TAG_IDENT_USD;
  180.   UDF_USD.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  181.   UDF_USD.DescriptorTag.TagChecksum         := $00;
  182.   UDF_USD.DescriptorTag.TagSerialNumber     := $00;
  183.   UDF_USD.DescriptorTag.DescriptorCRC       := $00;
  184.   UDF_USD.DescriptorTag.DescriptorCRCLength := $00;
  185.   UDF_USD.DescriptorTag.TagLocation         := Sector; //22 00 00 00
  186.   UDF_USD.VolumeDescSeqNum                  := $0004;
  187. end;
  191. {Sector 36 - 65}
  192. Procedure PopulateUDFTerminatingDesc(VAR UDF_TD : UDF_TerminatingDesc; Sector : Integer ; VolumeName : string);
  193. begin
  194.   UDF_TD.DescriptorTag.TagIdentifier       := TAG_IDENT_TD;
  195.   UDF_TD.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  196.   UDF_TD.DescriptorTag.TagChecksum         := $00;
  197.   UDF_TD.DescriptorTag.TagSerialNumber     := $00;
  198.   UDF_TD.DescriptorTag.DescriptorCRC       := $0000;
  199.   UDF_TD.DescriptorTag.DescriptorCRCLength := $0000;
  200.   UDF_TD.DescriptorTag.TagLocation         := Sector; //263  Dword
  201. end;
  205. {Sector 64}
  206. Procedure PopulateUDFlogicalVolumeIntegrityDesc(VAR UDF_LVID : UDF_logicalVolumeIntegrityDesc; Sector : Integer ; NumOfFiles,NumOfDirs : Integer);
  207. begin
  208.   UDF_LVID.DescriptorTag.TagIdentifier       := TAG_IDENT_LVID;
  209.   UDF_LVID.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  210.   UDF_LVID.DescriptorTag.TagChecksum         := $00;
  211.   UDF_LVID.DescriptorTag.TagSerialNumber     := $00;
  212.   UDF_LVID.DescriptorTag.DescriptorCRC       := $00;
  213.   UDF_LVID.DescriptorTag.DescriptorCRCLength := $00;
  214.   UDF_LVID.DescriptorTag.TagLocation         := Sector; //22 00 00 00
  215.   BuildVolumeDateTime(UDF_LVID.RecordingDateAndTime);
  216.   UDF_LVID.IntegrityType                     := LVID_INTEGRITY_TYPE_CLOSE;
  217.   UDF_LVID.NextIntegrityExt.ExtentLength     := $00000000;
  218.   UDF_LVID.NextIntegrityExt.ExtentLocation   := $00000000;
  219.   UDF_LVID.NumOfPartitions                   := $00000001;
  220.   UDF_LVID.LengthOfImpUse                    := $0000002E;
  221.   UDF_LVID.FreeSpaceTable                    := $00000000;
  222.   UDF_LVID.SizeTable                         := $0019F4F3;//      F3F41900;
  223.   UDF_LVID.ImpUse.Flags                      := $00;
  224.   UDF_LVID.ImpUse.Identifier                 := OSTA_DEVELOPER_ID;
  225.   //UDF_LVID.ImpUse.IdentifierSuffix           := $0000000000010005;
  226.   UDF_LVID.NumberOfFiles                     := NumOfFiles;
  227.   UDF_LVID.NumberOfDirectories               := NumOfDirs;
  228.   UDF_LVID.MinimumUDFReadRevision            := $0102;
  229.   UDF_LVID.MinimumUDFWriteRevision           := $0102;
  230.   UDF_LVID.MaximumUDFWriteRevision           := $0105;
  231. end;
  236. {Sector 256}
  237. Procedure PopulateUDFAnchorVolumeDescriptorPointer(VAR UDF_ADVP : UDF_AnchorVolumeDescriptorPointer; Sector : Integer ; VolumeName : string);
  238. begin
  239.   UDF_ADVP.DescriptorTag.TagIdentifier       := TAG_IDENT_AVDP;
  240.   UDF_ADVP.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  241.   UDF_ADVP.DescriptorTag.TagChecksum         := $00;
  242.   UDF_ADVP.DescriptorTag.TagSerialNumber     := $00;
  243.   UDF_ADVP.DescriptorTag.DescriptorCRC       := $00;
  244.   UDF_ADVP.DescriptorTag.DescriptorCRCLength := $00;
  245.   UDF_ADVP.DescriptorTag.TagLocation         := Sector; //22 00 00 00
  246.   UDF_ADVP.MainVolumeDescriptorSequenceExtent.ExtentLength := 32768; //00 80 00 00
  247.   UDF_ADVP.MainVolumeDescriptorSequenceExtent.ExtentLocation := 32; //20 00 00 00
  248.   UDF_ADVP.ReserveVolumeDescriptorSequenceExtent.ExtentLength :=  32768; //00 80 00 00
  249.   UDF_ADVP.ReserveVolumeDescriptorSequenceExtent.ExtentLocation := 48; //20 00 00 00
  250. end;
  253. {Sector 262}
  254. Procedure PopulateUDFFileSetDescriptor(VAR UDF_FSD : UDF_FileSetDescriptor; Sector : Integer ; VolumeName : string);
  255. begin
  256.   UDF_FSD.DescriptorTag.TagIdentifier       := TAG_IDENT_FSD;
  257.   UDF_FSD.DescriptorTag.DescriptorVersion   := TAG_DESCRIPTOR_VERSION;
  258.   UDF_FSD.DescriptorTag.TagChecksum         := $00;
  259.   UDF_FSD.DescriptorTag.TagSerialNumber     := $00;
  260.   UDF_FSD.DescriptorTag.DescriptorCRC       := $00;
  261.   UDF_FSD.DescriptorTag.DescriptorCRCLength := $00;
  262.   UDF_FSD.DescriptorTag.TagLocation         := Sector; //22 00 00 00
  263.   BuildVolumeDateTime(UDF_FSD.RecordingDateAndTime);
  264.   UDF_FSD.InterchangeLevel                  := $0003;
  265.   UDF_FSD.MaximumInterchangeLevel           := $0003;
  266.   UDF_FSD.CharacterSetList                  := CHARSPEC_TYPE_CS1;
  267.   UDF_FSD.MaximumCharacterSetList           := CHARSPEC_TYPE_CS1;
  268.   UDF_FSD.FileSetNumber                     := $00;
  269.   UDF_FSD.FileSetDescriptorNumber           := $00;
  270.   UDF_FSD.LogicalVolumeIdentifierCharSet.CharSetType := OSTA_CS0_CHARACTER_SET_TYPE;
  271.   UDF_FSD.LogicalVolumeIdentifierCharSet.CharSetInfo := OSTA_CS0_CHARACTER_SET_INFO;
  272.   StrPCopy(UDF_FSD.LogicalVolumeIdentifier,Copy(VolumeName, 1, Length(UDF_FSD.LogicalVolumeIdentifier)));
  273.   UDF_FSD.FileSetCharacterSet.CharSetType   := OSTA_CS0_CHARACTER_SET_TYPE;
  274.   UDF_FSD.FileSetCharacterSet.CharSetInfo   := OSTA_CS0_CHARACTER_SET_INFO;
  275.   StrPCopy(UDF_FSD.FileSetIdentifier,Copy(VolumeName, 1, Length(UDF_FSD.FileSetIdentifier)));
  276.   UDF_FSD.RootDirectoryICB.ExtentLength      := $00000800;
  277.   UDF_FSD.RootDirectoryICB.ExtentLocation.LogicalBlockNum := $0002;
  278.   UDF_FSD.RootDirectoryICB.ExtentLocation.PartitionReferenceNum := $0000;
  279.   UDF_FSD.DomainIdentifier.Flags             := $00;
  280.   UDF_FSD.DomainIdentifier.Identifier        := REGID_ID_COMPLIANT;
  281. end;
  289. end.