Difference between revisions of "Unit CDFS"

From Ultibo.org
Jump to: navigation, search
Line 1,356: Line 1,356:
  
  
'''CDFS recognizer'''
+
'''CDFS specific classes'''
  
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
<code>TCDFSRecognizer = class(TRecognizer)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
| <code>constructor Create(ADriver:TFileSysDriver);</code>
+
| [[TCDFSRecognizer|<code>TCDFSRecognizer = class(TRecognizer)</code>]]
| style="width: 50%;"|&nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FLongNames:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FSwapSerial:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function CheckPrimaryDescriptor(ASector:PSector; const AStartSector:Int64; ASectorCount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>
+
|-
+
| <code>function GetName:String; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property LongNames:Boolean read FLongNames write FLongNames;</code>
+
| &nbsp;
+
|-
+
| <code>property SwapSerial:Boolean read FSwapSerial write FSwapSerial;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function RecognizePartitionId(APartitionId:Byte):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function RecognizeBootSector(ABootSector:PBootSector; const AStartSector,ASectorCount:Int64):Boolean; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function RecognizePartition(APartition:TDiskPartition):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function RecognizeVolume(AVolume:TDiskVolume):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function MountVolume(AVolume:TDiskVolume; ADrive:TDiskDrive):Boolean; override;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS formatter'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSFormatter = class(TDiskFormatter)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
| [[TCDFSFormatter|<code>TCDFSFormatter = class(TDiskFormatter)</code>]]
|-
+
| <code>function CheckDevice(AVolume:TDiskVolume; ADrive:TDiskDrive; AFloppyType:TFloppyType):Boolean;</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>function CheckPartition(AVolume:TDiskVolume; ADrive:TDiskDrive; AFileSysType:TFileSysType):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetPathTableSize(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ASupplementary:Boolean):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetPathTableStart(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ASupplementary,AEndian:Boolean):LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetRootDirectorySize(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ASupplementary:Boolean):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetRootDirectoryStart(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ASupplementary:Boolean):LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function CreatePrimaryDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorPrimary):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WritePrimaryDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorPrimary):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WritePrimaryPathTables(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorPrimary):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WritePrimaryRootDirectory(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorPrimary):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function CreateSupplementaryDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorSupplementary):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WriteSupplementaryDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorSupplementary):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WriteSupplementaryPathTables(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorSupplementary):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WriteSupplementaryRootDirectory(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorSupplementary):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function CreateTerminatorDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorTerminator):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WriteTerminatorDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorTerminator):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>function AcceptVolume(AVolume:TDiskVolume; AFloppyType:TFloppyType; AFileSysType:TFileSysType):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function FormatVolume(AVolume:TDiskVolume; AFloppyType:TFloppyType; AFileSysType:TFileSysType):Boolean; override;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS resizer'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSResizer = class(TDiskResizer)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
| [[TCDFSResizer|<code>TCDFSResizer = class(TDiskResizer)</code>]]
|-
+
| <code>function AcceptVolume(AVolume:TDiskVolume; const AStart,ASize:Int64):Boolean; override;</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function ShrinkVolume(AVolume:TDiskVolume; const AStart,ASize:Int64):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function ExpandVolume(AVolume:TDiskVolume; const AStart,ASize:Int64):Boolean; override;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div> 
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS copier'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSCopier = class(TDiskCopier)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
| [[TCDFSCopier|<code>TCDFSCopier = class(TDiskCopier)</code>]]
|-
+
| <code>function AcceptVolume(AVolume,ADest:TDiskVolume):Boolean; override;</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function CopyVolume(AVolume,ADest:TDiskVolume):Boolean; override;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS file system'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSFileSystem = class(TFileSystem)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
|-
+
| <code>constructor Create(ADriver:TFileSysDriver; AVolume:TDiskVolume; ADrive:TDiskDrive);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FCDFSType:TCDFSType;</code>
+
| &nbsp;
+
|-
+
| <code>FSwapSerial:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FVolumeFlags:LongWord;</code>
+
| Volume flags
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FTreesLoaded:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FBlocksLoaded:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FCatalogsLoaded:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FCatalogsLoading:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FBlockWrite:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FTreesPrepared:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FCatalogsChecked:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FLogicalBlockSize:Word;</code>
+
| Size of a logical block on disk
+
|-
+
| <code>FLogicalBlockCount:LongWord;</code>
+
| Number of logical blocks on disk
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FSectorsPerCluster:LongWord;</code>
+
| Usually 1,2,4,8,16,32,64,128 etc
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FDataStartCluster:LongWord;</code>
+
| Usually 16 (First cluster of Data Area)
+
|-
+
| <code>FBootStartCluster:LongWord;</code>
+
| Usually 17 (Cluster of the Boot Descriptor)
+
|-
+
| <code>FRootStartCluster:LongWord;</code>
+
| Pointed to by Primary Descriptor
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FBlockShiftCount:Word;</code>
+
| Shift count for Cluster <-> BlockNo
+
|-
+
| <code>FSectorShiftCount:Word;</code>
+
| Shift count for Sector <-> Cluster
+
|-
+
| <code>FClusterShiftCount:Word;</code>
+
| Shift count for Cluster <-> Bytes
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FEntriesPerBlock:LongWord;</code>
+
| Number of Cluster entries per Block of bitmap
+
|-
+
| <code>FClustersPerBlock:LongWord;</code>
+
| Number of Clusters per Block of bitmap entries
+
|-
+
| <code>FTotalBlockCount:LongWord;</code>
+
| Total number of Blocks in bitmap
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FTotalClusterCount:LongWord;</code>
+
| Total number of Clusters on volume
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FLastFreeCluster:LongWord;</code>
+
| Or cdfsUnknownCluster if not known
+
|-
+
| <code>FFreeClusterCount:LongWord;</code>
+
| Or cdfsUnknownCluster if not known
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FClusterSize:LongWord;</code>
+
| Size of a Cluster in Bytes (Max 65536 > Word)
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FBoot:TCDFSDiskDescriptor;</code>
+
| &nbsp;
+
|-
+
| <code>FPrimary:TCDFSDiskDescriptor;</code>
+
| &nbsp;
+
|-
+
| <code>FSupplementary:TCDFSDiskDescriptor;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FHeaders:TFileSysList;</code>
+
| List of Catalog Headers
+
|-
+
| <code>FExtensions:TFileSysList;</code>
+
| List of Catalog Extensions
+
|-
+
| <code>FDescriptors:TFileSysList;</code>
+
| List of Volume Descriptors
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FHeaderLocal:TMutexHandle;</code>
+
| Local Lock shared by all Catalog Headers
+
|-
+
| <code>FExtensionLocal:TMutexHandle;</code>
+
| Local Lock shared by all Catalog Extensions
+
|-
+
| <code>FDescriptorLocal:TMutexHandle;</code>
+
| Local Lock shared by all Volume Descriptors
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FExtendedLocal:TMutexHandle;</code>
+
| Local Lock shared by all Extended Attributes
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FPathLock:TSynchronizerHandle;</code>
+
| Lock shared by all Path lists
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FReadBuffer:Pointer;</code>
+
| Buffer for partial cluster entry reads (Cluster size)
+
|-
+
| <code>FReadLock:TMutexHandle;</code>
+
| Lock for read buffer
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FWriteBuffer:Pointer;</code>
+
| Buffer for partial cluster entry writes (Cluster size)
+
|-
+
| <code>FWriteLock:TMutexHandle;</code>
+
| Lock for write buffer
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FClusterBuffer:Pointer;</code>
+
| Buffer of exactly cluster size
+
|-
+
| <code>FClusterLock:TMutexHandle;</code>
+
| Lock for cluster buffer
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function ReadLock:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReadUnlock:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function WriteLock:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WriteUnlock:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function ClusterLock:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ClusterUnlock:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function LoadTree(AEntry:TDiskEntry):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function MarkTree(AEntry:TDiskEntry):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function PrepareTree(AEntry:TDiskEntry):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function PrepareTable(ATable:TDiskTable):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function PrepareTrees:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function CheckCatalogs:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function LocatePath(ATable:TCDFSDiskTable; APathNumber:Word):TCDFSDiskPath;</code>
+
| &nbsp;
+
|-
+
| <code>function LocateEntry(AEntry:TCDFSDiskEntry; AStartCluster:LongWord):TCDFSDiskEntry;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function LoadVolumeFlags:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function FillClusters(ACluster:LongWord; ACount:Word; AValue:Byte):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function ReadClusters(ACluster:LongWord; ACount:Word; var ABuffer):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function WriteClusters(ACluster:LongWord; ACount:Word; const ABuffer):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function TestClusters(ACluster,ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function MarkClusters(ACluster,ACount:LongWord; AUsed:Boolean):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AllocClusters(var ACluster:LongWord; ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReleaseClusters(ACluster,ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetNextFreeCluster:LongWord;</code>
+
| Return is a Cluster
+
|-
+
| <code>function GetFreeClusterCount:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function TestBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function MarkBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord; AUsed:Boolean):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AllocBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReleaseBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetBlockNextFree(ABlock:TCDFSDiskBlock; AStart:LongWord):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetBlockFreeCount(ABlock:TCDFSDiskBlock):LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function TestBitmap(ABuffer:Pointer; ASize,AStart,ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function MarkBitmap(ABuffer:Pointer; ASize,AStart,ACount:LongWord; AUsed:Boolean):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AllocBitmap(ABuffer:Pointer; ASize:LongWord; AStart,ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReleaseBitmap(ABuffer:Pointer; ASize:LongWord; AStart,ACount:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetBitmapNextFree(ABuffer:Pointer; ASize,AStart:LongWord):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetBitmapFreeCount(ABuffer:Pointer; ASize:LongWord):LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetTableDataFree(ATable:TDiskTable):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetEntryDataFree(AEntry:TDiskEntry):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetCatalogDataFree(ADescriptor:TCDFSDiskDescriptor):LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetPreviousPath(ATable:TCDFSDiskTable; APath:TCDFSDiskPath):TCDFSDiskPath;</code>
+
| &nbsp;
+
|-
+
| <code>function GetPreviousEntry(AParent,AEntry:TCDFSDiskEntry):TCDFSDiskEntry;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetSectorsPerCluster(AClusterSize:LongWord):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetBlockShiftCount(AClusterSize:LongWord):Word;</code>
+
| &nbsp;
+
|-
+
| <code>function GetSectorShiftCount(AClusterSize:LongWord):Word;</code>
+
| &nbsp;
+
|-
+
| <code>function GetClusterShiftCount(AClusterSize:LongWord):Word;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetEntriesPerBlock(AClusterSize:LongWord):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetClustersPerBlock(AClusterSize:LongWord):LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>function GetTotalBlockCount(ATotalClusterCount:LongWord):LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function RenumberPaths(ATable:TDiskTable):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function ComparePath(APath1,APath2:TCDFSDiskPath; AUnicode:Boolean):Integer;</code>
+
| &nbsp;
+
|-
+
| <code>function CompareEntry(AEntry1,AEntry2:TCDFSDiskEntry; AUnicode:Boolean):Integer;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function PadString(const AString:String; ALength:Integer; APrefix,AUnicode:Boolean):String;</code>
+
| &nbsp;
+
|-
+
| <code>function CompareString(const AString1,AString2:String; AReverse:Boolean):Integer;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function ChecksumValidationRecord(AValidation:PELTORITOValidationRecord):Word;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function RecordToPath(ARecord:Pointer; APath:TCDFSDiskPath; AUnicode,AEndian:Boolean):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function PathToRecord(APath:TCDFSDiskPath; ARecord:Pointer; AUnicode,AEndian:Boolean):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function RecordToEntry(ARecord:Pointer; AEntry:TCDFSDiskEntry; AUnicode:Boolean):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function EntryToRecord(AEntry:TCDFSDiskEntry; ARecord:Pointer; AUnicode:Boolean):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function CDFSTypeToFileSysType(ACDFSType:TCDFSType):TFileSysType;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>
+
|-
+
| <code>function LoadMaxFile:Integer; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadMaxPath:Integer; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadAttributes:LongWord; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadSystemName:String; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadVolumeName:String; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadVolumeSerial:LongWord; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadFileSysType:TFileSysType; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function SetVolumeName(const AName:String):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function SetVolumeSerial(ASerial:LongWord):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function ReadEntry(AParent,AEntry:TDiskEntry; var ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; override;</code>
+
| &nbsp;
+
|-
+
| <code>function WriteEntry(AParent,AEntry:TDiskEntry; const ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function LoadTrees:Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadTables:Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadBlocks:Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadDescriptors:Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadRoots:Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadPaths(ATable:TCDFSDiskTable):Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadEntries(AParent:TDiskEntry):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadCatalogs:Boolean; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function SetPaths(ATable:TCDFSDiskTable):Boolean;</code>
+
| Not override
+
|-
+
| <code>function SetEntries(AParent:TDiskEntry):Boolean;</code>
+
| Not override
+
|-
+
| <code>function SetCatalogs:Boolean;</code>
+
| Not override
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function LoadTable(ATableNo:LongWord):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadBlock(ABlockNo:LongWord):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function LoadDescriptor(ABuffer:Pointer; ACluster:LongWord):Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadRoot(ADescriptor:TCDFSDiskDescriptor):Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadPath(ATable:TCDFSDiskTable; ABuffer:Pointer; AOffset:LongWord; ANumber:Word):Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadEntry(AParent:TCDFSDiskEntry; ABuffer:Pointer; AOffset,ACluster:LongWord):Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadHeader(ABuffer:Pointer; AOffset,ACluster:LongWord; AHeaderNo:LongWord):Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadCatalog(ABuffer:Pointer; AOffset,ACluster:LongWord; ACatalogNo:LongWord; AInitial:Boolean):Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadExtension(ABuffer:Pointer; AOffset,ACluster:LongWord; AExtensionNo:LongWord):Boolean;</code>
+
| Not override
+
|-
+
| <code>function LoadExtended(AEntry:TDiskEntry):Boolean;</code>
+
| Not override
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AddDescriptor(AType:Byte):TCDFSDiskDescriptor;</code>
+
| Not override
+
|-
+
| <code>function RemoveDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;</code>
+
| Not override
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AddPath(ATable:TDiskTable; AParentNumber:Word; const AName:String; AStartCluster:LongWord):TCDFSDiskPath;</code>
+
| Not override
+
|-
+
| <code>function RemovePath(ATable:TDiskTable; APath:TCDFSDiskPath):Boolean;</code>
+
| Not override
+
|-
+
| <code>function RenamePath(ATable:TDiskTable; APath:TCDFSDiskPath; const AName:String):Boolean;</code>
+
| Not override
+
|-
+
| <code>function MovePath(ATable:TDiskTable; ADestNumber:Word; APath:TCDFSDiskPath):Boolean;</code>
+
| Not override
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AddEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; override;</code>
+
| &nbsp;
+
|-
+
| <code>function AddEntryEx(AParent:TDiskEntry; const AName,AAltName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; override;</code>
+
| &nbsp;
+
|-
+
| <code>function RemoveEntry(AParent,AEntry:TDiskEntry):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog; override;</code>
+
| &nbsp;
+
|-
+
| <code>function RemoveCatalog(ACatalog:TDiskCatalog):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetNextHeaderNo:LongWord;</code>
+
| Not override
+
|-
+
| <code>function GetMaxHeaderNo:LongWord;</code>
+
| Not override
+
|-
+
| <code>function GetNextHeaderOffset:LongWord;</code>
+
| Not override
+
|-
+
| <code>function GetNextHeaderCluster:LongWord;</code>
+
| Not override
+
|-
+
| <code>function GetNextCatalogOffset:LongWord;</code>
+
| Not override
+
|-
+
| <code>function GetNextCatalogCluster:LongWord;</code>
+
| Not override
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function SetTable(ATable:TDiskTable):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function SetBlock(ABlock:TDiskBlock):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function SetDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;</code>
+
| Not override
+
|-
+
| <code>function SetRoot(ADescriptor:TCDFSDiskDescriptor; ARoot:TDiskEntry):Boolean;</code>
+
| Not override
+
|-
+
| <code>function SetPath(ATable:TDiskTable; APath:TCDFSDiskPath; ABuffer:Pointer):Boolean;</code>
+
| Not override
+
|-
+
| <code>function SetEntry(AParent,AEntry:TDiskEntry):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function SetHeader(AHeader:TCDFSDiskHeader):Boolean;</code>
+
| Not override
+
|-
+
| <code>function SetCatalog(ACatalog:TDiskCatalog):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function SetExtension(AExtension:TCDFSDiskExtension):Boolean;</code>
+
| Not override
+
|-
+
| <code>function SetExtended(AEntry:TDiskEntry; AExtended:TCDFSDiskExtended):Boolean;</code>
+
| Not override
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetBlock(ABlockNo:LongWord):TDiskBlock; override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock; override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetDescriptor(AType,AInstance:Byte):TCDFSDiskDescriptor;</code>
+
| Not override
+
|-
+
| <code>function GetDescriptorEx(AType,AInstance:Byte; AWrite:Boolean):TCDFSDiskDescriptor;</code>
+
| Not override
+
|-
+
| <code>function GetRoot(ADescriptor:TCDFSDiskDescriptor):TDiskEntry;</code>
+
| Not override
+
|-
+
| <code>function GetPath(ATable:TDiskTable; AParentNumber:Word; const AName:String):TCDFSDiskPath;</code>
+
| Not override
+
|-
+
| <code>function GetHeader(AHeaderNo:LongWord):TCDFSDiskHeader;</code>
+
| Not override
+
|-
+
| <code>function GetHeaderEx(AHeaderNo:LongWord; AWrite:Boolean):TCDFSDiskHeader;</code>
+
| Not override
+
|-
+
| <code>function GetExtension(AExtensionNo:LongWord):TCDFSDiskExtension;</code>
+
| Not override
+
|-
+
| <code>function GetExtensionEx(AExtensionNo:LongWord; AWrite:Boolean):TCDFSDiskExtension;</code>
+
| Not override
+
|-
+
| <code>function GetExtended(AEntry:TDiskEntry):TCDFSDiskExtended;</code>
+
| Not override
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetVersion(const AName:String):String;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function StripDot(const AName:String):String;</code>
+
| &nbsp;
+
|-
+
| <code>function StripVersion(const AName:String):String;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function CompareSequence(const ASequence; const ACompare; ASize:Integer):Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function CompareIdentifier(const AIdentifier; const ACompare; ASize:Integer):Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function CalculateVolumeSerial(ABuffer:Pointer; ASize:Integer):LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property ReadOnly:Boolean read FReadOnly write FReadOnly;</code>
+
| &nbsp;
+
|-
+
| <code>property LongNames:Boolean read FLongNames write FLongNames;</code>
+
| &nbsp;
+
|-
+
| <code>property CasePreserved:Boolean read FCasePreserved write FCasePreserved;</code>
+
| &nbsp;
+
|-
+
| <code>property UnicodeNames:Boolean read FUnicodeNames write FUnicodeNames;</code>
+
| &nbsp;
+
|-
+
| <code>property SwapSerial:Boolean read FSwapSerial write FSwapSerial;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function FileSystemInit:Boolean; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function MountFileSystem:Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function DismountFileSystem:Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetDriveLabel:String; override;</code>
+
| &nbsp;
+
|-
+
| <code>function SetDriveLabel(const ALabel:String):Boolean; override;</code>
+
| &nbsp;
+
|-
+
| <code>function SetDriveSerial(ASerial:LongWord):Boolean; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetDriveFreeSpaceEx:Int64; override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetDriveTotalSpaceEx:Int64; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
 
|-
 
|-
| <code>function GetDriveInformation(var AClusterSize:LongWord; var ATotalClusterCount,AFreeClusterCount:Int64):Boolean; override;</code>
+
| [[TCDFSFileSystem|<code>TCDFSFileSystem = class(TFileSystem)</code>]]
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk table'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskTable = class(TDiskTable)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|Note: Represents a CDFS path table.
+
| [[TCDFSDiskTable|<code>TCDFSDiskTable = class(TDiskTable)</code>]]
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALock:TSynchronizerHandle; ALocalLock:TMutexHandle; ADescriptor:TCDFSDiskDescriptor);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FTableType:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FEndian:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FUnicode:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FPathsLoaded:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FStartCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FClusterCount:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FDataFree:LongWord;</code>
+
| Data Free
+
|-
+
| <code>FDataSize:LongWord;</code>
+
| Data Length
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FPaths:TFileSysListEx;</code>
+
| &nbsp;
+
|-
+
| <code>FPathLocal:TMutexHandle;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FDescriptor:TCDFSDiskDescriptor;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property TableType:Byte read FTableType write FTableType;</code>
+
| &nbsp;
+
|-
+
| <code>property Endian:Boolean read FEndian write FEndian;</code>
+
| &nbsp;
+
|-
+
| <code>property Unicode:Boolean read FUnicode write FUnicode;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property PathsLoaded:Boolean read FPathsLoaded write FPathsLoaded;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
+
| &nbsp;
+
|-
+
| <code>property ClusterCount:LongWord read FClusterCount write FClusterCount;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property DataFree:LongWord read FDataFree write FDataFree;</code>
+
| &nbsp;
+
|-
+
| <code>property DataSize:LongWord read FDataSize write FDataSize;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property Paths:TFileSysListEx read FPaths;</code>
+
| &nbsp;
+
|-
+
| <code>property PathLocal:TMutexHandle read FPathLocal;</code>
+
| &nbsp;
+
|-
+
| <code>property Descriptor:TCDFSDiskDescriptor read FDescriptor;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk block'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskBlock = class(TDiskBlock)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|Note: Represents a block of clusters.
+
| [[TCDFSDiskBlock|<code>TCDFSDiskBlock = class(TDiskBlock)</code>]]
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FBlockCount:LongWord;</code>
+
| Number of cluster entries in this block
+
|-
+
| <code>FBlockBuffer:Pointer;</code>
+
| &nbsp;
+
|-
+
| <code>FBlockCluster:LongWord;</code>
+
| First cluster represented by this block
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property BlockCount:LongWord read FBlockCount write FBlockCount;</code>
+
| &nbsp;
+
|-
+
| <code>property BlockBuffer:Pointer read FBlockBuffer write FBlockBuffer;</code>
+
| &nbsp;
+
|-
+
| <code>property BlockCluster:LongWord read FBlockCluster write FBlockCluster;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk entry'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskEntry = class(TDiskEntry)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|Note: Represents a CDFS directory entry.
+
| [[TCDFSDiskEntry|<code>TCDFSDiskEntry = class(TDiskEntry)</code>]]
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FUnicode:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FVersion:String;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FEntryOffset:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FEntryCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FStartCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FClusterCount:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FRecordSize:Byte;</code>
+
| Length of Directory Record (LEN-DR)
+
|-
+
| <code>FExtendedSize:Byte;</code>
+
| Extended Attribute Record Length
+
|-
+
| <code>FDataSize:LongWord;</code>
+
| Data Length
+
|-
+
| <code>FUnitSize:Byte;</code>
+
| File Unit Size
+
|-
+
| <code>FInterleaveSize:Byte;</code>
+
| Interleave Gap Size
+
|-
+
| <code>FSequenceNumber:Word;</code>
+
| Volume Sequence Number
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FDataFree:LongWord;</code>
+
| Data Free
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FPath:TCDFSDiskPath;</code>
+
| &nbsp;
+
|-
+
| <code>FPathM:TCDFSDiskPath;</code>
+
| &nbsp;
+
|-
+
| <code>FAltPath:TCDFSDiskPath;</code>
+
| &nbsp;
+
|-
+
| <code>FAltPathM:TCDFSDiskPath;</code>
+
| &nbsp;
+
|-
+
| <code>FExtended:TCDFSDiskExtended;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetVersion:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetVersion(const AVersion:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property Unicode:Boolean read FUnicode write FUnicode;</code>
+
| &nbsp;
+
|-
+
| <code>property Version:String read GetVersion write SetVersion;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property EntryOffset:LongWord read FEntryOffset write FEntryOffset;</code>
+
| &nbsp;
+
|-
+
| <code>property EntryCluster:LongWord read FEntryCluster write FEntryCluster;</code>
+
| &nbsp;
+
|-
+
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
+
| &nbsp;
+
|-
+
| <code>property ClusterCount:LongWord read FClusterCount write FClusterCount;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property RecordSize:Byte read FRecordSize write FRecordSize;</code>
+
| &nbsp;
+
|-
+
| <code>property ExtendedSize:Byte read FExtendedSize write FExtendedSize;</code>
+
| &nbsp;
+
|-
+
| <code>property DataSize:LongWord read FDataSize write FDataSize;</code>
+
| &nbsp;
+
|-
+
| <code>property FirstBlock:LongWord read FStartCluster write FStartCluster;</code>
+
| &nbsp;
+
|-
+
| <code>property UnitSize:Byte read FUnitSize write FUnitSize;</code>
+
| &nbsp;
+
|-
+
| <code>property InterleaveSize:Byte read FInterleaveSize write FInterleaveSize;</code>
+
| &nbsp;
+
|-
+
| <code>property SequenceNumber:Word read FSequenceNumber write FSequenceNumber;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property DataFree:LongWord read FDataFree write FDataFree;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property Path:TCDFSDiskPath read FPath write FPath;</code>
+
| &nbsp;
+
|-
+
| <code>property PathM:TCDFSDiskPath read FPathM write FPathM;</code>
+
| &nbsp;
+
|-
+
| <code>property AltPath:TCDFSDiskPath read FAltPath write FAltPath;</code>
+
| &nbsp;
+
|-
+
| <code>property AltPathM:TCDFSDiskPath read FAltPathM write FAltPathM;</code>
+
| &nbsp;
+
|-
+
| <code>property Extended:TCDFSDiskExtended read FExtended write FExtended;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function PathNumber:Word;</code>
+
| &nbsp;
+
|-
+
| <code>function ParentNumber:Word;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function FileIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>function FileIdentifierSize:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>function DirectoryRecordSize:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>function ExtendedRecordSize:Byte;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk catalog'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskCatalog = class(TDiskCatalog)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|Note: Represents a CDFS boot catalog entry (Also the Initial/Default entry).
+
| [[TCDFSDiskCatalog|<code>TCDFSDiskCatalog = class(TDiskCatalog)</code>]]
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FCatalogOffset:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FCatalogCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FStartCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FClusterCount:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FInitial:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FBootIndicator:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FBootMedia:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FLoadSegment:Word;</code>
+
| &nbsp;
+
|-
+
| <code>FSystemType:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FLoadCount:Word;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FSelectionType:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FSelectionData:Pointer;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FEntry:TCDFSDiskEntry;</code>
+
| &nbsp;
+
|-
+
| <code>FHeader:TCDFSDiskHeader;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>
+
|-
+
| <code>function GetName:String; override;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetName(const AName:String); override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetMediaType:TMediaType; override;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetMediaType(AMediaType:TMediaType); override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetFloppyType:TFloppyType; override;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetFloppyType(AFloppyType:TFloppyType); override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetAttributes:LongWord; override;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetAttributes(AAttributes:LongWord); override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetSectorSize:Word; override;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetSectorSize(ASectorSize:Word); override;</code>
+
| &nbsp;
+
|-
+
| <code>function GetSectorCount:Int64; override;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetSectorCount(const ASectorCount:Int64); override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetStartCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetStartCluster(AStartCluster:LongWord);</code>
+
| &nbsp;
+
|-
+
| <code>function GetClusterCount:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetClusterCount(AClusterCount:LongWord);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property CatalogOffset:LongWord read FCatalogOffset write FCatalogOffset;</code>
+
| &nbsp;
+
|-
+
| <code>property CatalogCluster:LongWord read FCatalogCluster write FCatalogCluster;</code>
+
| &nbsp;
+
|-
+
| <code>property StartCluster:LongWord read GetStartCluster write SetStartCluster;</code>
+
| &nbsp;
+
|-
+
| <code>property ClusterCount:LongWord read GetClusterCount write SetClusterCount;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property Initial:Boolean read FInitial write FInitial;</code>
+
| &nbsp;
+
|-
+
| <code>property BootIndicator:Byte read FBootIndicator write FBootIndicator;</code>
+
| &nbsp;
+
|-
+
| <code>property BootMedia:Byte read FBootMedia write FBootMedia;</code>
+
| &nbsp;
+
|-
+
| <code>property LoadSegment:Word read FLoadSegment write FLoadSegment;</code>
+
| &nbsp;
+
|-
+
| <code>property SystemType:Byte read FSystemType write FSystemType;</code>
+
| &nbsp;
+
|-
+
| <code>property LoadCount:Word read FLoadCount write FLoadCount;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property SelectionType:Byte read FSelectionType write FSelectionType;</code>
+
| &nbsp;
+
|-
+
| <code>property SelectionData:Pointer read FSelectionData write FSelectionData;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property Entry:TCDFSDiskEntry read FEntry write FEntry;</code>
+
| &nbsp;
+
|-
+
| <code>property Header:TCDFSDiskHeader read FHeader write FHeader;</code>
+
| &nbsp;
+
|-
+
| <code>property Validation:TCDFSDiskHeader read FHeader write FHeader;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk path'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskPath = class(TListObject)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
|-
+
|colspan="2"|Note: Represents a CDFS path table entry.
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FLocalLock:TMutexHandle;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FName:String;</code>
+
| &nbsp;
+
|-
+
| <code>FHash:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FPathNumber:Word;</code>
+
| &nbsp;
+
|-
+
| <code>FPathOffset:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FStartCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FExtendedSize:Byte;</code>
+
| Extended Attribute Record Length
+
|-
+
| <code>FParentNumber:Word;</code>
+
| Parent Directory Number
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FParent:TCDFSDiskPath;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AcquireLock:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReleaseLock:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetName:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetName(const AName:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property Name:String read GetName write SetName;</code>
+
| &nbsp;
+
|-
+
| <code>property Hash:LongWord read FHash;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property PathNumber:Word read FPathNumber write FPathNumber;</code>
+
| &nbsp;
+
|-
+
| <code>property PathOffset:LongWord read FPathOffset write FPathOffset;</code>
+
| &nbsp;
+
|-
+
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property ExtendedSize:Byte read FExtendedSize write FExtendedSize;</code>
+
| &nbsp;
+
|-
+
| <code>property FirstBlock:LongWord read FStartCluster write FStartCluster;</code>
+
| &nbsp;
+
|-
+
| <code>property ParentNumber:Word read FParentNumber write FParentNumber;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property Parent:TCDFSDiskPath read FParent write FParent;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function PathIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>function PathIdentifierSize(AUnicode:Boolean):Byte;</code>
+
| &nbsp;
+
 
|-
 
|-
| <code>function PathRecordSize(AUnicode:Boolean):Byte;</code>
+
| [[TCDFSDiskPath|<code>TCDFSDiskPath = class(TListObject)</code>]]
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk extended'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskExtended = class(TObject)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|Note: Represents a CDFS extended attribute.
+
| [[TCDFSDiskExtended|<code>TCDFSDiskExtended = class(TObject)</code>]]
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FLocalLock:TMutexHandle;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FStartCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FClusterCount:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FOwnerId:Word;</code>
+
| Owner Identification
+
|-
+
| <code>FGroupId:Word;</code>
+
| Group Identification
+
|-
+
| <code>FPermissions:Word;</code>
+
| Permissions 16 bits
+
|-
+
| <code>FCreateTime:TFileTime;</code>
+
| File Creation Date and Time
+
|-
+
| <code>FModifyTime:TFileTime;</code>
+
| File Modification Date and Time
+
|-
+
| <code>FExpireTime:TFileTime;</code>
+
| File Expiration Date and Time
+
|-
+
| <code>FEffectiveTime:TFileTime;</code>
+
| File Effective Date and Time
+
|-
+
| <code>FRecordFormat:Byte;</code>
+
| Record Format
+
|-
+
| <code>FRecordAttributes:Byte;</code>
+
| Record Attributes
+
|-
+
| <code>FRecordLength:Word;</code>
+
| Record Length
+
|-
+
| <code>FSystemIdentifier:String;</code>
+
| System Identifier a-characters, a1-characters
+
|-
+
| <code>FSystemData:Pointer;</code>
+
| System Use not specified
+
|-
+
| <code>FExtendedVersion:Byte;</code>
+
| Extended Attribute Record Version
+
|-
+
| <code>FEscapeSequenceSize:Byte;</code>
+
| Length of Escape Sequences (LEN_ESC)
+
|-
+
| <code>FApplicationDataSize:Word;</code>
+
| Length of Application Use (LEN_AU)
+
|-
+
| <code>FApplicationData:Pointer;</code>
+
| Application Use LEN_AU bytes
+
|-
+
| <code>FEscapeSequence:Pointer;</code>
+
| Escape Sequences LEN_ESC bytes
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AcquireLock:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReleaseLock:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetSystemIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetSystemIdentifier(const ASystemIdentifier:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
+
| &nbsp;
+
|-
+
| <code>property ClusterCount:LongWord read FClusterCount write FClusterCount;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property OwnerId:Word read FOwnerId write FOwnerId;</code>
+
| &nbsp;
+
|-
+
| <code>property GroupId:Word read FGroupId write FGroupId;</code>
+
| &nbsp;
+
|-
+
| <code>property Permissions:Word read FPermissions write FPermissions;</code>
+
| &nbsp;
+
|-
+
| <code>property CreateTime:TFileTime read FCreateTime write FCreateTime;</code>
+
| &nbsp;
+
|-
+
| <code>property ModifyTime:TFileTime read FModifyTime write FModifyTime;</code>
+
| &nbsp;
+
|-
+
| <code>property ExpireTime:TFileTime read FExpireTime write FExpireTime;</code>
+
| &nbsp;
+
|-
+
| <code>property EffectiveTime:TFileTime read FEffectiveTime write FEffectiveTime;</code>
+
| &nbsp;
+
|-
+
| <code>property RecordFormat:Byte read FRecordFormat write FRecordFormat;</code>
+
| &nbsp;
+
|-
+
| <code>property RecordAttributes:Byte read FRecordAttributes write FRecordAttributes;</code>
+
| &nbsp;
+
|-
+
| <code>property RecordLength:Word read FRecordLength write FRecordLength;</code>
+
| &nbsp;
+
|-
+
| <code>property SystemIdentifier:String read GetSystemIdentifier write SetSystemIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property SystemData:Pointer read FSystemData write FSystemData;</code>
+
| &nbsp;
+
|-
+
| <code>property ExtendedVersion:Byte read FExtendedVersion write FExtendedVersion;</code>
+
| &nbsp;
+
|-
+
| <code>property EscapeSequenceSize:Byte read FEscapeSequenceSize write FEscapeSequenceSize;</code>
+
| &nbsp;
+
|-
+
| <code>property ApplicationDataSize:Word read FApplicationDataSize write FApplicationDataSize;</code>
+
| &nbsp;
+
|-
+
| <code>property ApplicationData:Pointer read FApplicationData write FApplicationData;</code>
+
| &nbsp;
+
|-
+
| <code>property EscapeSequence:Pointer read FEscapeSequence write FEscapeSequence;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function ExtendedRecordSize:Byte;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk descriptor'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskDescriptor = class(TListObject)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|Note: Represents a CDFS volume descriptor.
+
| [[TCDFSDiskDescriptor|<code>TCDFSDiskDescriptor = class(TListObject)</code>]]
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FLocalLock:TMutexHandle;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FUnicode:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FStartCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FDescriptorType:Byte;</code>
+
| Descriptor Type (00 = Boot, 01 = Primary etc)
+
|-
+
| <code>FDescriptorVersion:Byte;</code>
+
| Descriptor Version (1)
+
|-
+
| <code>FStandardIdentifier:String;</code>
+
| Standard Identifier ('CD001')
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FSystemIdentifier:String;</code>
+
| System Identifier a-characters (eg EL TORITO SPECIFICATION)
+
|-
+
| <code>FVolumeIdentifier:String;</code>
+
| Volume Identifier d-characters
+
|-
+
| <code>FVolumeSpaceSize:LongWord;</code>
+
| Volume Space Size
+
|-
+
| <code>FVolumeSetSize:Word;</code>
+
| Volume Set Size
+
|-
+
| <code>FVolumeSequenceNumber:Word;</code>
+
| Volume Sequence Number
+
|-
+
| <code>FLogicalBlockSize:Word;</code>
+
| Logical Block Size
+
|-
+
| <code>FPathTableSize:LongWord;</code>
+
| Path Table Size
+
|-
+
| <code>FPrimaryPathTable:LongWord;</code>
+
| Location of Occurrence of Type L Path Table
+
|-
+
| <code>FAlternatePathTable:LongWord;</code>
+
| Location of Optional Occurrence of Type L Path Table
+
|-
+
| <code>FPrimaryPathTableM:LongWord;</code>
+
| Location of Occurrence of Type M Path Table
+
|-
+
| <code>FAlternatePathTableM:LongWord;</code>
+
| Location of Optional Occurrence of Type M Path Table
+
|-
+
| <code>FVolumeSetIdentifier:String;</code>
+
| Volume Set Identifier d-characters
+
|-
+
| <code>FPublisherIdentifier:String;</code>
+
| Publisher Identifier a-characters
+
|-
+
| <code>FPreparerIdentifier:String;</code>
+
| Data Preparer Identifier a-characters
+
|-
+
| <code>FApplicationIdentifier:String;</code>
+
| Application Identifier a-characters
+
|-
+
| <code>FCopyrightIdentifier:String;</code>
+
| Copyright File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
+
|-
+
| <code>FAbstractIdentifier:String;</code>
+
| Abstract File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
+
|-
+
| <code>FBibliographicIdentifier:String;</code>
+
| Bibliographic File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
+
|-
+
| <code>FCreateTime:TFileTime;</code>
+
| Volume Creation Date and Time
+
|-
+
| <code>FModifyTime:TFileTime;</code>
+
| Volume Modification Date and Time
+
|-
+
| <code>FExpireTime:TFileTime;</code>
+
| Volume Expiration Date and Time
+
|-
+
| <code>FEffectiveTime:TFileTime;</code>
+
| Volume Effective Date and Time
+
|-
+
| <code>FFileStructureVersion:Byte;</code>
+
| File Structure Version
+
|-
+
| <code>FApplicationData:Pointer;</code>
+
| Application Use not specified
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FVolumeFlags:Byte;</code>
+
| Volume Flags 8 bits
+
|-
+
| <code>FEscapeSequences:Pointer;</code>
+
| Escape Sequences 32 bytes
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FBootIdentifier:String;</code>
+
| 32 a-characters
+
|-
+
| <code>FCatalogStart:LongWord;</code>
+
| Absolute pointer to first sector of Boot Catalog
+
|-
+
| <code>FCatalogCount:LongWord;</code>
+
| Number of Sectors in Boot Catalog (Not Stored)
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FPartitionIdentifier:String;</code>
+
| Volume Partition Identifier d-characters
+
|-
+
| <code>FPartitionStart:LongWord;</code>
+
| Volume Partition Location (first Logical Block)
+
|-
+
| <code>FPartitionSize:LongWord;</code>
+
| Volume Partition Size (in Logical Blocks)
+
|-
+
| <code>FSystemData:Pointer;</code>
+
| System Use not specified
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FRoot:TCDFSDiskEntry;</code>
+
| &nbsp;
+
|-
+
| <code>FPrimary:TCDFSDiskTable;</code>
+
| &nbsp;
+
|-
+
| <code>FPrimaryM:TCDFSDiskTable;</code>
+
| &nbsp;
+
|-
+
| <code>FAlternate:TCDFSDiskTable;</code>
+
| &nbsp;
+
|-
+
| <code>FAlternateM:TCDFSDiskTable;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FInitial:TCDFSDiskCatalog;</code>
+
| &nbsp;
+
|-
+
| <code>FValidation:TCDFSDiskHeader;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AcquireLock:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReleaseLock:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetStandardIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetStandardIdentifier(const AStandardIdentifier:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetSystemIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetSystemIdentifier(const ASystemIdentifier:String);</code>
+
| &nbsp;
+
|-
+
| <code>function GetVolumeIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetVolumeIdentifier(const AVolumeIdentifier:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetVolumeSetIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetVolumeSetIdentifier(const AVolumeSetIdentifier:String);</code>
+
| &nbsp;
+
|-
+
| <code>function GetPublisherIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetPublisherIdentifier(const APublisherIdentifier:String);</code>
+
| &nbsp;
+
|-
+
| <code>function GetPreparerIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetPreparerIdentifier(const APreparerIdentifier:String);</code>
+
| &nbsp;
+
|-
+
| <code>function GetApplicationIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetApplicationIdentifier(const AApplicationIdentifier:String);</code>
+
| &nbsp;
+
|-
+
| <code>function GetCopyrightIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetCopyrightIdentifier(const ACopyrightIdentifier:String);</code>
+
| &nbsp;
+
|-
+
| <code>function GetAbstractIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetAbstractIdentifier(const AAbstractIdentifier:String);</code>
+
| &nbsp;
+
|-
+
| <code>function GetBibliographicIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetBibliographicIdentifier(const ABibliographicIdentifier:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetBootIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetBootIdentifier(const ABootIdentifier:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetPartitionIdentifier:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetPartitionIdentifier(const APartitionIdentifier:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property Unicode:Boolean read FUnicode write FUnicode;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property DescriptorType:Byte read FDescriptorType write FDescriptorType;</code>
+
| &nbsp;
+
|-
+
| <code>property DescriptorVersion:Byte read FDescriptorVersion write FDescriptorVersion;</code>
+
| &nbsp;
+
|-
+
| <code>property StandardIdentifier:String read GetStandardIdentifier write SetStandardIdentifier;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property SystemIdentifier:String read GetSystemIdentifier write SetSystemIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property VolumeIdentifier:String read GetVolumeIdentifier write SetVolumeIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property VolumeSpaceSize:LongWord read FVolumeSpaceSize write FVolumeSpaceSize;</code>
+
| &nbsp;
+
|-
+
| <code>property VolumeSetSize:Word read FVolumeSetSize write FVolumeSetSize;</code>
+
| &nbsp;
+
|-
+
| <code>property VolumeSequenceNumber:Word read FVolumeSequenceNumber write FVolumeSequenceNumber;</code>
+
| &nbsp;
+
|-
+
| <code>property LogicalBlockSize:Word read FLogicalBlockSize write FLogicalBlockSize;</code>
+
| &nbsp;
+
|-
+
| <code>property PathTableSize:LongWord read FPathTableSize write FPathTableSize;</code>
+
| &nbsp;
+
|-
+
| <code>property PrimaryPathTable:LongWord read FPrimaryPathTable write FPrimaryPathTable;</code>
+
| &nbsp;
+
|-
+
| <code>property AlternatePathTable:LongWord read FAlternatePathTable write FAlternatePathTable;</code>
+
| &nbsp;
+
|-
+
| <code>property PrimaryPathTableM:LongWord read FPrimaryPathTableM write FPrimaryPathTableM;</code>
+
| &nbsp;
+
|-
+
| <code>property AlternatePathTableM:LongWord read FAlternatePathTableM write FAlternatePathTableM;</code>
+
| &nbsp;
+
|-
+
| <code>property VolumeSetIdentifier:String read GetVolumeSetIdentifier write SetVolumeSetIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property PublisherIdentifier:String read GetPublisherIdentifier write SetPublisherIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property PreparerIdentifier:String read GetPreparerIdentifier write SetPreparerIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property ApplicationIdentifier:String read GetApplicationIdentifier write SetApplicationIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property CopyrightIdentifier:String read GetCopyrightIdentifier write SetCopyrightIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property AbstractIdentifier:String read GetAbstractIdentifier write SetAbstractIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property BibliographicIdentifier:String read GetBibliographicIdentifier write SetBibliographicIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property CreateTime:TFileTime read FCreateTime write FCreateTime;</code>
+
| &nbsp;
+
|-
+
| <code>property ModifyTime:TFileTime read FModifyTime write FModifyTime;</code>
+
| &nbsp;
+
|-
+
| <code>property ExpireTime:TFileTime read FExpireTime write FExpireTime;</code>
+
| &nbsp;
+
|-
+
| <code>property EffectiveTime:TFileTime read FEffectiveTime write FEffectiveTime;</code>
+
| &nbsp;
+
|-
+
| <code>property FileStructureVersion:Byte read FFileStructureVersion write FFileStructureVersion;</code>
+
| &nbsp;
+
|-
+
| <code>property ApplicationData:Pointer read FApplicationData write FApplicationData;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property VolumeFlags:Byte read FVolumeFlags write FVolumeFlags;</code>
+
| &nbsp;
+
|-
+
| <code>property EscapeSequences:Pointer read FEscapeSequences write FEscapeSequences;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property BootIdentifier:String read GetBootIdentifier write SetBootIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property CatalogStart:LongWord read FCatalogStart write FCatalogStart;</code>
+
| &nbsp;
+
|-
+
| <code>property CatalogCount:LongWord read FCatalogCount write FCatalogCount;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property PartitionIdentifier:String read GetPartitionIdentifier write SetPartitionIdentifier;</code>
+
| &nbsp;
+
|-
+
| <code>property PartitionStart:LongWord read FPartitionStart write FPartitionStart;</code>
+
| &nbsp;
+
|-
+
| <code>property PartitionSize:LongWord read FPartitionSize write FPartitionSize;</code>
+
| &nbsp;
+
|-
+
| <code>property SystemData:Pointer read FSystemData write FSystemData;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property Root:TCDFSDiskEntry read FRoot write FRoot;</code>
+
| &nbsp;
+
|-
+
| <code>property Primary:TCDFSDiskTable read FPrimary write FPrimary;</code>
+
| &nbsp;
+
|-
+
| <code>property PrimaryM:TCDFSDiskTable read FPrimaryM write FPrimaryM;</code>
+
| &nbsp;
+
|-
+
| <code>property Alternate:TCDFSDiskTable read FAlternate write FAlternate;</code>
+
| &nbsp;
+
|-
+
| <code>property AlternateM:TCDFSDiskTable read FAlternateM write FAlternateM;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property Initial:TCDFSDiskCatalog read FInitial write FInitial;</code>
+
| &nbsp;
+
|-
+
| <code>property Validation:TCDFSDiskHeader read FValidation write FValidation;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk header'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskHeader = class(TListObject)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
 
|-
 
|-
|colspan="2"|Note: Represents a CDFS catalog header (Also the Validation entry).
+
| [[TCDFSDiskHeader|<code>TCDFSDiskHeader = class(TListObject)</code>]]
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FLocalLock:TMutexHandle;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FHeaderNo:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FHeaderOffset:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FHeaderCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FValidation:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>FHeaderId:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FPlatformId:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FVendorId:String;</code>
+
| &nbsp;
+
|-
+
| <code>FChecksum:Word;</code>
+
| &nbsp;
+
|-
+
| <code>FSignature:Word;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FSectionCount:Word;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AcquireLock:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReleaseLock:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function GetVendorId:String;</code>
+
| &nbsp;
+
|-
+
| <code>procedure SetVendorId(const AVendorId:String);</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property HeaderNo:LongWord read FHeaderNo write FHeaderNo;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property HeaderOffset:LongWord read FHeaderOffset write FHeaderOffset;</code>
+
| &nbsp;
+
|-
+
| <code>property HeaderCluster:LongWord read FHeaderCluster write FHeaderCluster;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property Validation:Boolean read FValidation write FValidation;</code>
+
| &nbsp;
+
|-
+
| <code>property HeaderId:Byte read FHeaderId write FHeaderId;</code>
+
| &nbsp;
+
|-
+
| <code>property PlatformId:Byte read FPlatformId write FPlatformId;</code>
+
| &nbsp;
+
|-
+
| <code>property VendorId:String read GetVendorId write SetVendorId;</code>
+
| &nbsp;
+
|-
+
| <code>property Checksum:Word read FChecksum write FChecksum;</code>
+
| &nbsp;
+
|-
+
| <code>property Signature:Word read FSignature write FSignature;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property HeaderIndicator:Byte read FHeaderId write FHeaderId;</code>
+
| &nbsp;
+
|-
+
| <code>property SectionCount:Word read FSectionCount write FSectionCount;</code>
+
| &nbsp;
+
|-
+
| <code>property SectionId:String read GetVendorId write SetVendorId;</code>
+
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
 
+
'''CDFS disk extension'''
+
 
+
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
+
 
+
<code>TCDFSDiskExtension = class(TListObject)</code>
+
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+
{| class="wikitable" style="font-size: 14px; background: white;"
+
|-
+
|colspan="2"|Note: Represents a CDFS catalog extension.
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
+
| style="width: 50%;"|&nbsp;
+
|-
+
| <code>destructor Destroy; override;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
+
|-
+
| <code>FLocalLock:TMutexHandle;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FExtensionNo:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FExtensionOffset:LongWord;</code>
+
| &nbsp;
+
|-
+
| <code>FExtensionCluster:LongWord;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FExtensionIndicator:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FExtensionFlag:Byte;</code>
+
| &nbsp;
+
|-
+
| <code>FSelectionData:Pointer;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>FCatalog:TCDFSDiskCatalog;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>function AcquireLock:Boolean;</code>
+
| &nbsp;
+
|-
+
| <code>function ReleaseLock:Boolean;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
+
|-
+
| <code>property ExtensionNo:LongWord read FExtensionNo write FExtensionNo;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property ExtensionOffset:LongWord read FExtensionOffset write FExtensionOffset;</code>
+
| &nbsp;
+
|-
+
| <code>property ExtensionCluster:LongWord read FExtensionCluster write FExtensionCluster;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
|-
+
| <code>property ExtensionIndicator:Byte read FExtensionIndicator write FExtensionIndicator;</code>
+
| &nbsp;
+
|-
+
| <code>property ExtensionFlag:Byte read FExtensionFlag write FExtensionFlag;</code>
+
| &nbsp;
+
|-
+
| <code>property SelectionData:Pointer read FSelectionData write FSelectionData;</code>
+
| &nbsp;
+
|-
+
|colspan="2"|&nbsp;
+
 
|-
 
|-
| <code>property Catalog:TCDFSDiskCatalog read FCatalog write FCatalog;</code>
+
| [[TCDFSDiskExtension|<code>TCDFSDiskExtension = class(TListObject)</code>]]
| &nbsp;
+
 
|-
 
|-
 
|}
 
|}
</div></div>
+
<br />
<br />
+
  
 
=== Public variables ===
 
=== Public variables ===

Revision as of 00:25, 1 May 2018

Return to Unit Reference


Description


Ultibo CDFS interface unit

To be documented

Constants



CDFS specific constants cdfs*
cdfsIso9660 = 0;  
cdfsJoilet = 1;  
cdfsSierra = 2;  
cdfsRockRidge = 3;  
cdfsAudio = 4;  
cdfsUDF = 5;  
 
cdfsAnyName = '*';  
cdfsDotName = '.';  
cdfsDotDotName = '..';  
cdfsVersionName = '1'; Used by version information on end of identifier (Not Used)
cdfsSeparator1Name = '.'; Dot on end of identifier when no extension exists (File only)
cdfsSeparator2Name = ';'; Used by version information on end of identifier (File only)
 
cdfsJolietMaxPath = 240; 120 (240 bytes)
cdfsJolietMaxFile = 64; (128 bytes)
cdfsISO9660MaxPath = 240;  
cdfsISO9660MaxFile = 30; 31 for Directories
 
cdfsISO9660StandardIdentifier = 'CD001';  
cdfsELTORITOSystemIdentifier = 'EL TORITO SPECIFICATION';  
 
cdfsFirstSector = 0;  
cdfsReservedSectors = 16;  
cdfsISO9660StartSector = 16;  
cdfsELTORITOBootSector = 17;  
 
cdfsISO9660StructureVersion = 1;  
cdfsISO9660DescriptorVersion = 1;  
cdfsELTORITODescriptorVersion = 1;  
 
cdfsJolietUCS2Sequence1 = #37 + #47 + #64; '%/@'
cdfsJolietUCS2Sequence2 = #37 + #47 + #67; '%/C'
cdfsJolietUCS2Sequence3 = #37 + #47 + #69; '%/E'
 
cdfsDotIdentifier = $00;  
cdfsDotDotIdentifier = $01;  
 
cdfsSeparator1Value = $2E; '.'
cdfsSeparator2Value = $3B; ';'
 
cdfsTimeStartYear = 1900; CDFS Time starts at 1900
cdfsTimeOffsetInterval = 15; Offset is in 15 minute intervals
 
cdfsNullFileTime:TFileTime = (dwLowDateTime:$00000000;dwHighDateTime:$00000000);  
 
cdfsStartCluster = 16;  
cdfsUnknownCluster = LongWord(-1);  
 
cdfsRootPathNumber = 1;  
 
cdfsPathRecordSize = 9; Minimum
cdfsExtendedRecordSize = 250; Minimum
cdfsDirectoryRecordSize = 34; Minimum
 
cdfsFileIdentifierSize = 1; Minimum
cdfsPathIdentifierSize = 1; Minimum
 
cdfsHeaderRecordSize = 32; Fixed
cdfsCatalogRecordSize = 32; Fixed
cdfsExtensionRecordSize = 32; Fixed
 
cdfsEvenSize = 0;  
cdfsUnevenSize = 1;  
 
cdfsRootRecordOffset = 156; Offset of Root Directory in Descriptor
 
cdfsInstanceFirst = 0;  
cdfsInstanceLast = Byte(-1);  
 
cdfsTableTypeMask = $00FF0000;  
cdfsTableTypeShift = 16;  
cdfsTableInstanceMask = $0000FF00;  
cdfsTableInstanceShift = 8;  
cdfsTableDescriptorMask = $000000FF;  
cdfsTableDescriptorShift = 0;  
 
cdfsBitmapUnknown = LongWord(-1);  


CDFS bitmap mask cdfsBitmapMask*
cdfsBitmapMaskBits = 64; Int64 Bitmap Masks
cdfsBitmapMaskNone = $0000000000000000; Int64 Used for fast counting of free blocks
cdfsBitmapMaskAll = $FFFFFFFFFFFFFFFF; Int64 Used for fast counting of used blocks


CDFS volume flag cdfsVolumeFlag*
cdfsVolumeFlagNone = $00;  
cdfsVolumeFlagUnregistered = $01; If set this SVD contains an unregistered escape sequence


CDFS file flag cdfsFileFlag*
cdfsFileFlagNone = $00;  
cdfsFileFlagExistence = $01; If set this file is hidden
cdfsFileFlagDirectory = $02; If set this record is a directory
cdfsFileFlagAssociated = $04; If set this file is an associated file
cdfsFileFlagRecord = $08; If set record information is recorded for this file
cdfsFileFlagProtection = $10; If set permissions are recorded for this file
cdfsFileFlagReserved1 = $20; Reserved
cdfsFileFlagReserved2 = $40; Reserved
cdfsFileFlagMore = $80; If set there are more directory records for this file


CDFS permissions cdfsPermission*
cdfsPermissionSystemRead = $0001; If set system cannot Read
cdfsPermissionSystemWrite = $0002; If set system cannot Write
cdfsPermissionSystemExecute = $0004; If set system cannot Execute
cdfsPermissionReserved1 = $0008; Reserved
cdfsPermissionOwnerRead = $0010; If set owner cannot Read
cdfsPermissionOwnerWrite = $0020; If set owner cannot Write
cdfsPermissionOwnerExecute = $0040; If set owner cannot Execute
cdfsPermissionReserved2 = $0080; Reserved
cdfsPermissionGroupRead = $0100; If set group cannot Read
cdfsPermissionGroupWrite = $0200; If set group cannot Write
cdfsPermissionGroupExecute = $0400; If set group cannot Execute
cdfsPermissionReserved3 = $0800; Reserved
cdfsPermissionOtherRead = $1000; If set other cannot Read
cdfsPermissionOtherWrite = $2000; If set other cannot Write
cdfsPermissionOtherExecute = $4000; If set other cannot Execute
cdfsPermissionReserved4 = $8000; Reserved


CDFS path table cdfsPathTable*
cdfsPathTableTypePrimary = $00;  
cdfsPathTableTypeAlternate = $01;  
cdfsPathTableTypePrimaryM = $02;  
cdfsPathTableTypeAlternateM = $03;  


CDFS volume descriptor cdfsVolumeDescriptor*
cdfsVolumeDescriptorTypeBoot = $00;  
cdfsVolumeDescriptorTypePrimary = $01;  
cdfsVolumeDescriptorTypeSupplementary = $02;  
cdfsVolumeDescriptorTypePartition = $03;  
cdfsVolumeDescriptorTypeTerminator = $FF;  


CDFS header cdfsElTorito*
cdfsElToritoHeaderId = $01;  
cdfsElToritoBootIndicator = $88;  
cdfsElToritoNoBootIndicator = $00;  
cdfsElToritoHeaderIndicator = $90; 91 if final header
cdfsElToritoHeaderTerminator = $91;  
cdfsElToritoExtensionIndicator = $44;  


CDFS signature cdfsElToritoSignature*
cdfsElToritoSignature = $AA55;  


CDFS platform Id cdfsElToritoPlatform*
cdfsElToritoPlatformIdx86 = $00;  
cdfsElToritoPlatformIdPPC = $01;  
cdfsElToritoPlatformIdMac = $02;  


CDFS media type cdfsElToritoMedia*
cdfsElToritoMediaTypeNone = $00; No Emulation
cdfsElToritoMediaType12M = $01; 1.2 meg diskette
cdfsElToritoMediaType144M = $02; 1.44 meg diskette
cdfsElToritoMediaType288M = $03; 2.88 meg diskette
cdfsElToritoMediaTypeHDD = $04; Hard Disk (drive 80)
cdfsElToritoMediaTypeMask = $0F; Values 5-F Reserved, invalid at this time
 
cdfsElToritoMediaFlagReserved = $10; Reserved, must be 0
cdfsElToritoMediaFlagContinuation = $20; Continuation Entry Follows
cdfsElToritoMediaFlagAtapi = $40; Image contains ATAPI driver
cdfsElToritoMediaFlagScsi = $80; Image contains SCSI drivers
cdfsElToritoMediaFlagMask = $F0;  


CDFS extension flag cdfsElToritoExtensionFlag*
cdfsElToritoExtensionFlagExtension = $20; Extension Record Follows


Type definitions



CDFS specific types

TCDFSType = (ctNONE,ctISO9660,ctJOLIET,ctSIERRA,ctROCKRIDGE,ctAUDIO,ctUDF);

CDFS time

PCDFSTime = ^TCDFSTime;

TCDFSTime = packed record

Note: 7 Bytes
Years:Byte; Number of years since 1900
Month:Byte; Month of the year from 1 to 12
Day:Byte; Day of the month from 1 to 31
Hour:Byte; Hour of the day from 0 to 23
Minute:Byte; Minute of the hour from 0 to 59
Second:Byte; Second of the minute from 0 to 59
Offset:ShortInt; Offset from Greenwich Mean Time in number of 15 min intervals from -48 (West) to +52 (East)

CDFS date time

PCDFSDateTime = ^TCDFSDateTime;

TCDFSDateTime = packed record

Note: 17 Bytes
Year:array[0..3] of Char; Year from 1 to 9999
Month:array[0..1] of Char; Month of the year from 1 to 12
Day:array[0..1] of Char; Day of the month from 1 to 31
Hour:array[0..1] of Char; Hour of the day from 0 to 23
Minute:array[0..1] of Char; Minute of the hour from 0 to 59
Second:array[0..1] of Char; Second of the minute from 0 to 59
Hundredths:array[0..1] of Char; Hundredths of a second
Offset:ShortInt; Offset from Greenwich Mean Time in number of 15 min intervals from -48 (West) to +52 (East)

CDFS directory record

PCDFSDirectoryRecord = ^TCDFSDirectoryRecord;

TCDFSDirectoryRecord = packed record

Note: 34 Bytes (Minimum not including padding)
RecordSize:Byte; Length of Directory Record (LEN-DR)
ExtendedSize:Byte; Extended Attribute Record Length
FirstBlock:LongWord; Location of Extent
FirstBlockM:LongWord;  
DataSize:LongWord; Data Length
DataSizeM:LongWord;  
CreateTime:TCDFSTime; Recording Date and Time
FileFlags:Byte; File Flags 8 bits
UnitSize:Byte; File Unit Size
InterleaveSize:Byte; Interleave Gap Size
SequenceNumber:Word; Volume Sequence Number
SequenceNumberM:Word;  
FileIdentifierSize:Byte; Length of File Identifier (LEN_FI)
FileIdentifier:array[0..0] of Char; File Identifier d-characters,d1-characters,SEPARATOR 1,SEPARATOR 2,(00) or (01) byte
Padding:Byte; Padding Field (00) byte (Only present if FileIdentifierSize is even (Total size would be odd))
SystemData:array[0..0] of Byte; System Use LEN_SU bytes

CDFS path record

PCDFSPathRecord = ^TCDFSPathRecord;

TCDFSPathRecord = packed record

Note: 9 Bytes (Minimum not including padding)
PathIdentifierSize:Byte; Length of Directory Identifier (LEN_DI)
ExtendedSize:Byte; Extended Attribute Record Length
FirstBlock:LongWord; Location of Extent
ParentNumber:Word; Parent Directory Number
PathIdentifier:array[0..0] of Char; Directory Identifier d-characters, d1-characters, (00) byte
Padding:Byte; Padding Field (00) byte (Only present if PathIdentifierSize is odd (Total size would be odd))

CDFS extended record

PCDFSExtendedRecord = ^TCDFSExtendedRecord;

TCDFSExtendedRecord = packed record

Note: 250 Bytes (Minimum)
OwnerId:Word; Owner Identification
OwnerIdM:Word;  
GroupId:Word; Group Identification
GroupIdM:Word;  
Permissions:Word; Permissions 16 bits
CreateTime:TCDFSDateTime; File Creation Date and Time
ModifyTime:TCDFSDateTime; File Modification Date and Time
ExpireTime:TCDFSDateTime; File Expiration Date and Time
EffectiveTime:TCDFSDateTime; File Effective Date and Time
RecordFormat:Byte; Record Format
RecordAttributes:Byte; Record Attributes
RecordLength:Word; Record Length
RecordLengthM:Word;  
SystemIdentifier:array[0..31] of Char; System Identifier a-characters, a1-characters
SystemData:array[0..63] of Byte; System Use not specified
ExtendedVersion:Byte; Extended Attribute Record Version
EscapeSequenceSize:Byte; Length of Escape Sequences (LEN_ESC)
Reserved1:array[0..63] of Byte; Reserved for future standardization (00) bytes
ApplicationDataSize:Word; Length of Application Use (LEN_AU)
ApplicationDataSizeM:Word;  
ApplicationData:array[0..0] of Byte; Application Use LEN_AU bytes
EscapeSequence:array[0..0] of Byte; Escape Sequences LEN_ESC bytes

CDFS volume descriptor header

PCDFSVolumeDescriptorHeader = ^TCDFSVolumeDescriptorHeader;

TCDFSVolumeDescriptorHeader = packed record

Note: 2048 Bytes
DescriptorType:Byte; Descriptor Type 00 = Boot, 01 = Primary etc
StandardIdentifier:array[0..4] of Char; Standard Identifier ('CD001')
DescriptorVersion:Byte; Descriptor Version (1)
Reserved:array[0..2040] of Byte; Content depends on Descriptor Type

CDFS volume descriptor boot

PCDFSVolumeDescriptorBoot = ^TCDFSVolumeDescriptorBoot;

TCDFSVolumeDescriptorBoot = packed record

Note: 2048 Bytes
DescriptorType:Byte; Descriptor Type (00 = Boot)
StandardIdentifier:array[0..4] of Char; Standard Identifier ('CD001')
DescriptorVersion:Byte; Descriptor Version (1)
SystemIdentifier:array[0..31] of Char; 32 a-characters (eg EL TORITO SPECIFICATION)
BootIdentifier:array[0..31] of Char; 32 a-characters
BootData:array[0..1976] of Byte;  

CDFS volume descriptor primary

PCDFSVolumeDescriptorPrimary = ^TCDFSVolumeDescriptorPrimary;

TCDFSVolumeDescriptorPrimary = packed record

Note: 2048 Bytes
DescriptorType:Byte; Descriptor Type (01 = Primary)
StandardIdentifier:array[0..4] of Char; Standard Identifier ('CD001')
DescriptorVersion:Byte; Descriptor Version (1)
Reserved1:Byte; Unused Field (00) byte
SystemIdentifier:array[0..31] of Char; System Identifier a-characters
VolumeIdentifier:array[0..31] of Char; Volume Identifier d-characters
Reserved2:array[0..7] of Byte; Unused Field (00) bytes
VolumeSpaceSize:LongWord; Volume Space Size
VolumeSpaceSizeM:LongWord;  
Reserved3:array[0..31] of Byte; Unused Field (00) bytes
VolumeSetSize:Word; Volume Set Size
VolumeSetSizeM:Word;  
VolumeSequenceNumber:Word; Volume Sequence Number
VolumeSequenceNumberM:Word;  
LogicalBlockSize:Word; Logical Block Size
LogicalBlockSizeM:Word;  
PathTableSize:LongWord; Path Table Size
PathTableSizeM:LongWord;  
PrimaryPathTable:LongWord; Location of Occurrence of Type L Path Table
AlternatePathTable:LongWord; Location of Optional Occurrence of Type L Path Table
PrimaryPathTableM:LongWord; Location of Occurrence of Type M Path Table
AlternatePathTableM:LongWord; Location of Optional Occurrence of Type M Path Table
RootDirectory:TCDFSDirectoryRecord; Directory Record for Root Directory 34 bytes
VolumeSetIdentifier:array[0..127] of Char; Volume Set Identifier d-characters
PublisherIdentifier:array[0..127] of Char; Publisher Identifier a-characters
PreparerIdentifier:array[0..127] of Char; Data Preparer Identifier a-characters
ApplicationIdentifier:array[0..127] of Char; Application Identifier a-characters
CopyrightIdentifier:array[0..36] of Char; Copyright File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
AbstractIdentifier:array[0..36] of Char; Abstract File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
BibliographicIdentifier:array[0..36] of Char; Bibliographic File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
CreateTime:TCDFSDateTime; Volume Creation Date and Time
ModifyTime:TCDFSDateTime; Volume Modification Date and Time
ExpireTime:TCDFSDateTime; Volume Expiration Date and Time
EffectiveTime:TCDFSDateTime; Volume Effective Date and Time
FileStructureVersion:Byte; File Structure Version
Reserved4:Byte; Reserved for future standardization (00) byte
ApplicationData:array[0..511] of Byte; Application Use not specified
Reserved5:array[0..652] of Byte; Reserved for future standardization (00) bytes

CDFS volume descriptor supplementary

PCDFSVolumeDescriptorSupplementary = ^TCDFSVolumeDescriptorSupplementary;

TCDFSVolumeDescriptorSupplementary = packed record

Note: 2048 Bytes
DescriptorType:Byte; Descriptor Type (02 = Supplementary)
StandardIdentifier:array[0..4] of Char; Standard Identifier ('CD001')
DescriptorVersion:Byte; Descriptor Version (1)
VolumeFlags:Byte; Volume Flags 8 bits
SystemIdentifier:array[0..31] of Char; System Identifier a-characters
VolumeIdentifier:array[0..31] of Char; Volume Identifier d-characters
Reserved2:array[0..7] of Byte; Unused Field (00) bytes
VolumeSpaceSize:LongWord; Volume Space Size
VolumeSpaceSizeM:LongWord;  
EscapeSequences:array[0..31] of Byte; Escape Sequences 32 bytes
VolumeSetSize:Word; Volume Set Size
VolumeSetSizeM:Word;  
VolumeSequenceNumber:Word; Volume Sequence Number
VolumeSequenceNumberM:Word;  
LogicalBlockSize:Word; Logical Block Size
LogicalBlockSizeM:Word;  
PathTableSize:LongWord; Path Table Size
PathTableSizeM:LongWord;  
PrimaryPathTable:LongWord; Location of Occurrence of Type L Path Table
AlternatePathTable:LongWord; Location of Optional Occurrence of Type L Path Table
PrimaryPathTableM:LongWord; Location of Occurrence of Type M Path Table
AlternatePathTableM:LongWord; Location of Optional Occurrence of Type M Path Table
RootDirectory:TCDFSDirectoryRecord; Directory Record for Root Directory 34 bytes
VolumeSetIdentifier:array[0..127] of Char; Volume Set Identifier d-characters
PublisherIdentifier:array[0..127] of Char; Publisher Identifier a-characters
PreparerIdentifier:array[0..127] of Char; Data Preparer Identifier a-characters
ApplicationIdentifier:array[0..127] of Char; Application Identifier a-characters
CopyrightIdentifier:array[0..36] of Char; Copyright File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
AbstractIdentifier:array[0..36] of Char; Abstract File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
BibliographicIdentifier:array[0..36] of Char; Bibliographic File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
CreateTime:TCDFSDateTime; Volume Creation Date and Time
ModifyTime:TCDFSDateTime; Volume Modification Date and Time
ExpireTime:TCDFSDateTime; Volume Expiration Date and Time
EffectiveTime:TCDFSDateTime; Volume Effective Date and Time
FileStructureVersion:Byte; File Structure Version
Reserved4:Byte; Reserved for future standardization (00) byte
ApplicationData:array[0..511] of Byte; Application Use not specified
Reserved5:array[0..652] of Byte; Reserved for future standardization (00) bytes

CDFS volume descriptor partition

PCDFSVolumeDescriptorPartition = ^TCDFSVolumeDescriptorPartition;

TCDFSVolumeDescriptorPartition = packed record

Note: 2048 Bytes
DescriptorType:Byte; Descriptor Type (03 = Partition)
StandardIdentifier:array[0..4] of Char; Standard Identifier ('CD001')
DescriptorVersion:Byte; Descriptor Version (1)
Reserved1:Byte; Unused Field (00) byte
SystemIdentifier:array[0..31] of Char; System Identifier a-characters
PartitionIdentifier:array[0..31] of Char; Volume Partition Identifier d-characters
PartitionStart:LongWord; Volume Partition Location (first Logical Block)
PartitionStartM:LongWord;  
PartitionSize:LongWord; Volume Partition Size (in Logical Blocks)
PartitionSizeM:LongWord;  
SystemData:array[0..1959] of Byte; System Use not specified

CDFS volume descriptor terminator

PCDFSVolumeDescriptorTerminator = ^TCDFSVolumeDescriptorTerminator;

TCDFSVolumeDescriptorTerminator = packed record

Note: 2048 Bytes
DescriptorType:Byte; Descriptor Type (FF = Terminator)
StandardIdentifier:array[0..4] of Char; Standard Identifier ('CD001')
DescriptorVersion:Byte; Descriptor Version (1)
Reserved:array[0..2040] of Byte; Reserved (Always 00)

EL TORITO validation record

PELTORITOValidationRecord = ^TELTORITOValidationRecord;

TELTORITOValidationRecord = packed record

Note: 32 Bytes
HeaderId:Byte; Header ID, must be 01
PlatformId:Byte; Platform ID 0 = 80x86, 1 = PowerPC, 2 = Mac
Reserved1:Word; Reserved, must be 0
VendorId:array[0..23] of Char; ID string. This is intended to identify the manufacturer/developer of the CD-ROM
Checksum:Word; Checksum Word. This sum of all the words in this record should be 0
Signature:Word; Key byte, must be 55. Key byte, must be AA. This value is included in the checksum

EL TORITO default record

PELTORITODefaultRecord = ^TELTORITODefaultRecord;

TELTORITODefaultRecord = packed record

Note: 32 Bytes
BootIndicator:Byte; Boot Indicator. 88 = Bootable, 00 = Not Bootable
BootMedia:Byte; Boot media type. This specifies what media the boot image is intended to emulate
LoadSegment:Word; This is the load segment for the initial boot image. If this value is 0 the system will use the traditional segment of 7C0
SystemType:Byte; This must be a copy of byte 5 (System Type) from the Partition Table found in the boot image (PartitionId)
Reserved1:Byte; Unused, must be 0
LoadCount:Word; Sector Count. This is the number of virtual/emulated sectors the system will store at Load Segment during the initial boot procedure
LoadRBA:LongWord; Load RBA. This is the start address of the virtual disk. CDs use Relative/Logical block addressing
Reserved2:array[0..19] of Byte; {Unused, must be 0}  

EL TORITO section header

PELTORITOSectionHeader = ^TELTORITOSectionHeader;

TELTORITOSectionHeader = packed record

Note: 32 Bytes
HeaderIndicator:Byte; Header Indicator, 90 - Header, more headers follow, 91 - Final Header
PlatformId:Byte; Platform ID 0 = 80x86, 1 = PowerPC, 2 = Mac
SectionCount:Word; Number of section entries following this header
SectionId:array[0..27] of Char; ID string. This identifies a section

EL TORITO section record

PELTORITOSectionRecord = ^TELTORITOSectionRecord;

TELTORITOSectionRecord = packed record

Note: 32 Bytes
BootIndicator:Byte; Boot Indicator. 88 = Bootable, 00 = Not Bootable
BootMedia:Byte; Boot media type. This specifies what media the boot image emulates
LoadSegment:Word; Load Segment. This is the load segment for the initial boot image. If this value is 0 the system will use the traditional segment of 7C0
SystemType:Byte; System Type. This must be a copy of byte 5 (System Type) from the Partition Table found in the boot image (PartitionId)
Reserved1:Byte; Unused, must be 0
LoadCount:Word; Sector Count. This is the number of virtual/emulated sectors the system will store at Load Segment during the initial boot procedure
LoadRBA:LongWord; Load RBA. This is the start address of the virtual disk. CDs use Relative/Logical block addressing
SelectionType:Byte; Selection criteria type. 0 - No selection criteria, 1- Language and Version Information (IBM), 2-FF - Reserved
SelectionData:array[0..18] of Byte; Vendor unique selection criteria

EL TORITO section extension

PELTORITOSectionExtension = ^TELTORITOSectionExtension;

TELTORITOSectionExtension = packed record

Note: 32 Bytes
ExtensionIndicator:Byte; Extension Indicator. Must be 44
ExtensionFlag:Byte; Bits 1-4 - Unused, Bit 5 (1 = Extension Record follows, 0 = This is final Extension), Bits 6-7 - Unused
SelectionData:array[0..29] of Byte; Vendor unique selection criteria

EL TORITO volume descriptor boot

PELTORITOVolumeDescriptorBoot = ^TELTORITOVolumeDescriptorBoot;

TELTORITOVolumeDescriptorBoot = packed record

Note: 2048 Bytes
DescriptorType:Byte; Boot Record Indicator, must be 0
StandardIdentifier:array[0..4] of Char; ISO-9660 Identifier, must be 'CD001'
DescriptorVersion:Byte; Version of this descriptor, must be 1
SystemIdentifier:array[0..31] of Char; Boot System Identifier, must be 'EL TORITO SPECIFICATION' padded with 0s
Reserved1:array[0..31] of Byte; Unused, must be 0
CatalogStart:LongWord; Absolute pointer to first sector of Boot Catalog
Reserved2:array[0..1972] of Byte; Unused, must be 0


Class definitions



CDFS specific classes

TCDFSRecognizer = class(TRecognizer)
TCDFSFormatter = class(TDiskFormatter)
TCDFSResizer = class(TDiskResizer)
TCDFSCopier = class(TDiskCopier)
TCDFSFileSystem = class(TFileSystem)
TCDFSDiskTable = class(TDiskTable)
TCDFSDiskBlock = class(TDiskBlock)
TCDFSDiskEntry = class(TDiskEntry)
TCDFSDiskCatalog = class(TDiskCatalog)
TCDFSDiskPath = class(TListObject)
TCDFSDiskExtended = class(TObject)
TCDFSDiskDescriptor = class(TListObject)
TCDFSDiskHeader = class(TListObject)
TCDFSDiskExtension = class(TListObject)


Public variables


None defined

Function declarations



Initialization functions

procedure CDFSInit;
Description: To be documented
Note None documented


procedure CDFSQuit;
Description: To be documented
Note None documented


CDFS helper functions

function CDFSDataToPointer(const AData; ASize:Integer; ASwap:Boolean):Pointer;
Description: Creates a pointer and copies data from a buffer
Note Allows byte order swapping on copy


function CDFSPointerToData(APointer:Pointer; var AData; ASize:Integer; ASwap:Boolean):Boolean;
Description: Copies data to a buffer from supplied pointer
Note Allows byte order swapping on copy


function CDFSIdentifierToString(const AIdentifier; ASize:Integer; AUnicode:Boolean):String;
Description: Converts the supplied indentifier to a string
Note Accounts for unicode and byte ordering


function CDFSStringToIdentifier(const AString:String; var AIdentifier; ASize:Integer; AUnicode:Boolean):Boolean;
Description: Converts the supplied string to an identifier
Note Accounts for unicode and byte ordering


function CDFSIdentifierToFileName(const AIdentifier; ASize:Integer; AUnicode:Boolean):String;
Description: Converts the supplied identifier to a filename
Note Accounts for dot and dot dot special entries


function CDFSFileNameToIdentifier(const AFileName:String; var AIdentifier; ASize:Integer; AUnicode:Boolean):Boolean;
Description: Converts the supplied filename to an identifier
Note Accounts for dot and dot dot special entries


function CDFSTimeToFileTime(const ATime:TCDFSTime):TFileTime;
Description: Converts a CDFS Time in Local to a File Time in UTC
Note None documented


function FileTimeToCDFSTime(const AFileTime:TFileTime; var ATime:TCDFSTime):Boolean;
Description: Converts a File Time in UTC to a CDFS Time in Local
Note None documented


function CDFSDateTimeToFileTime(const ADateTime:TCDFSDateTime):TFileTime;
Description: Converts a CDFS Date Time in Local to a File Time in UTC
Note None documented


function FileTimeToCDFSDateTime(const AFileTime:TFileTime; var ADateTime:TCDFSDateTime):Boolean;
Description: Converts a File Time in UTC to a CDFS Date Time in Local
Note None documented


Return to Unit Reference