|
|
| Line 571: |
Line 571: |
| | |colspan="2"| | | |colspan="2"| |
| | |- | | |- |
| − | | <code>function OpenDevice(AMode:Integer):Integer; virtual;</code> | + | | <code>function OpenDevice(AMode:Integer):THandle; virtual;</code> |
| | | | | | |
| | |- | | |- |
| − | | <code>procedure CloseDevice(AHandle:Integer); virtual;</code> | + | | <code>procedure CloseDevice(AHandle:THandle); virtual;</code> |
| | | | | | |
| | |- | | |- |
| − | | <code>function ReadDevice(AHandle:Integer; var ABuffer; ACount:Integer):Integer; virtual;</code> | + | | <code>function ReadDevice(AHandle:THandle; var ABuffer; ACount:Integer):Integer; virtual;</code> |
| | | | | | |
| | |- | | |- |
| − | | <code>function WriteDevice(AHandle:Integer; const ABuffer; ACount:Integer):Integer; virtual;</code> | + | | <code>function WriteDevice(AHandle:THandle; const ABuffer; ACount:Integer):Integer; virtual;</code> |
| | | | | | |
| | |- | | |- |
| − | | <code>function EraseDevice(AHandle:Integer; ACount:Integer):Integer; virtual;</code> | + | | <code>function EraseDevice(AHandle:THandle; ACount:Integer):Integer; virtual;</code> |
| | | | | | |
| | |- | | |- |
| − | | <code>function SeekDevice(AHandle:Integer; const AOffset:Int64; AOrigin:Integer):Int64; virtual;</code> | + | | <code>function SeekDevice(AHandle:THandle; const AOffset:Int64; AOrigin:Integer):Int64; virtual;</code> |
| | | | | | |
| | + | |- |
| | |- | | |- |
| | |} | | |} |
| Line 1,090: |
Line 1,091: |
| | <br /> | | <br /> |
| | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> | | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> |
| − | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.OpenDevice(AMode:Integer):Integer;</pre> | + | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.OpenDevice(AMode:Integer):THandle; virtual;</pre> |
| | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> | | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> |
| | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> | | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> |
| Line 1,102: |
Line 1,103: |
| | <br /> | | <br /> |
| | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> | | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> |
| − | <pre style="border: 0; padding-bottom:0px;">procedure TDiskDevice.CloseDevice(AHandle:Integer);</pre> | + | <pre style="border: 0; padding-bottom:0px;">procedure TDiskDevice.CloseDevice(AHandle:THandle); virtual;</pre> |
| | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> | | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> |
| | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> | | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> |
| Line 1,114: |
Line 1,115: |
| | <br /> | | <br /> |
| | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> | | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> |
| − | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.ReadDevice(AHandle:Integer; var ABuffer; ACount:Integer):Integer;</pre> | + | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.ReadDevice(AHandle:THandle; var ABuffer; ACount:Integer):Integer; virtual;</pre> |
| | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> | | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> |
| | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> | | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> |
| Line 1,126: |
Line 1,127: |
| | <br /> | | <br /> |
| | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> | | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> |
| − | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.WriteDevice(AHandle:Integer; const ABuffer; ACount:Integer):Integer;</pre> | + | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.WriteDevice(AHandle:THandle; const ABuffer; ACount:Integer):Integer; virtual;</pre> |
| | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> | | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> |
| | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> | | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> |
| Line 1,138: |
Line 1,139: |
| | <br /> | | <br /> |
| | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> | | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> |
| − | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.EraseDevice(AHandle:Integer; ACount:Integer):Integer;</pre> | + | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.EraseDevice(AHandle:THandle; ACount:Integer):Integer; virtual;</pre> |
| | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> | | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> |
| | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> | | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> |
| Line 1,150: |
Line 1,151: |
| | <br /> | | <br /> |
| | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> | | <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;"> |
| − | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.SeekDevice(AHandle:Integer; const AOffset:Int64; AOrigin:Integer):Int64;</pre> | + | <pre style="border: 0; padding-bottom:0px;">function TDiskDevice.SeekDevice(AHandle:THandle; const AOffset:Int64; AOrigin:Integer):Int64; virtual;</pre> |
| | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> | | <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div> |
| | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> | | <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;"> |
Revision as of 04:25, 22 January 2025
Return to Unit Filesystem
Description
To be documented
Class definitions
[Expand]
TDiskDevice = class(TListObject)
constructor Create(ADriver:TFileSysDriver; AController:TDiskController; AImage:TDiskImage; AStorage:PStorageDevice; ADeviceNo:Integer; const AIdentifier:String);
|
|
destructor Destroy; override;
|
|
private
|
FLock:TSynchronizerHandle;
|
|
FLocalLock:TMutexHandle;
|
|
protected
|
FDriver:TFileSysDriver;
|
|
FController:TDiskController;
|
|
FImage:TDiskImage;
|
|
FStorage:PStorageDevice;
|
|
|
|
FDeviceNo:Integer;
|
00h, 01h, 80h, 81h etc - See Notes
|
FIdentifier:String;
|
Controller Specific Identifier
|
FInformation:String;
|
Description of Device - eg "Standard ATA Disk"
|
|
|
FVendorId:Word;
|
PCI or USB Vendor Id
|
FDeviceId:Word;
|
PCI or USB Device Id
|
|
|
FManufacturer:String;
|
Device Manufacturer name
|
FProduct:String;
|
Device Product name
|
FSerialNumber:String;
|
Device Serial Number
|
|
|
FHostBus:String;
|
PCI, ISA etc
|
FBusNumber:Word;
|
PCI Bus No
|
FDeviceNumber:Word;
|
PCI Device No
|
FFunctionNumber:Word;
|
PCI Function No
|
FBaseAddress:Word;
|
ISA Base Address
|
FInterfaceType:String;
|
ATA, ATAPI, SCSI, USB, 1394, FIBRE
|
|
|
FSlave:Boolean;
|
Device is Slave
|
FLogicalUnitNo:LongWord;
|
LUN No eg SCSI, ATAPI or USB
|
FFireWireGUID:Int64;
|
FireWire GUID No
|
FWorldWideNo:Int64;
|
Fibre Channel WWN
|
|
|
FPhysicalPort:Word;
|
Physical IO Port
|
FControlPort:Word;
|
Drive Control Port
|
FIRQ:LongWord;
|
IRQ No
|
|
|
FPIO:Boolean;
|
PIO Transfer Enabled
|
FDMA:Boolean;
|
DMA Transfer Enabled
|
FLBA:Boolean;
|
Supports LBA (eg Int13 Extensions)
|
FVersion:LongWord;
|
Version Information (eg Int13 Extensions Version 01h,20h,21h,30h)
|
|
|
FMediaType:TMediaType;
|
Media Type eg Fixed, Removable, Floppy
|
FFloppyType:TFloppyType;
|
Floppy Type eg 360K, 1.44M, ATAPI
|
FReady:Boolean;
|
Media is Inserted in Drive
|
FLocked:Boolean;
|
Media is Locked in Drive
|
FLockable:Boolean;
|
Media is Lockable
|
FEjectable:Boolean;
|
Media is Ejectable
|
FReadable:Boolean;
|
Media is Readable
|
FWriteable:Boolean;
|
Media is Writeable
|
FEraseable:Boolean;
|
Media is Eraseable
|
FRemovable:Boolean;
|
Media is Removable
|
FChangeLine:Boolean;
|
Supports ChangeLine detection
|
|
|
FPhysicalCylinders:LongWord;
|
Physical Cylinders on Drive
|
FPhysicalHeads:LongWord;
|
Physical Heads on Drive
|
FPhysicalSectors:LongWord;
|
Physical Sectors per Track
|
|
|
FLogicalCylinders:LongWord;
|
Logical Cylinders on Drive
|
FLogicalHeads:LongWord;
|
Logical Heads on Drive
|
FLogicalSectors:LongWord;
|
Logical Sectors per Track
|
|
|
FSectorSize:Word;
|
Bytes Per Sector
|
FSectorCount:Int64;
|
Total Sectors
|
FSectorShiftCount:Word;
|
Sectors to Bytes Shift Count
|
|
|
FPageCount:Word;
|
Cache Page Count for this Device
|
FPageShift:Word;
|
Cache Page Shift for this Device
|
FPageMask:LongWord;
|
Cache Page Mask for this Device
|
|
|
function AcquireLock:Boolean;
|
|
function ReleaseLock:Boolean;
|
|
|
|
function GetName:String;
|
|
|
|
function GetIdentifier:String;
|
|
function GetInformation:String;
|
|
|
|
function GetManufacturer:String;
|
|
function GetProduct:String;
|
|
function GetSerialNumber:String;
|
|
|
|
function GetHostBus:String;
|
|
function GetInterfaceType:String;
|
|
|
|
function GetFreeSectors:Int64;
|
Unused Sectors on Device
|
function GetAvailableSectors:Int64;
|
Largest block of Unused Sectors
|
|
|
function GetAvailableBlock(var AStart,ACount:Int64):Boolean;
|
|
|
|
function GetDiskSignature:LongWord; virtual;
|
|
procedure SetDiskSignature(ADiskSignature:LongWord); virtual;
|
|
|
|
function GetBootRecord(ARecord:Pointer,ASector:LongWord):Boolean; virtual;
|
|
function SetBootRecord(ARecord:Pointer,ASector:LongWord):Boolean; virtual;
|
|
public
|
property Name:String read GetName;
|
|
property Controller:TDiskController read FController;
|
|
property Image:TDiskImage read FImage;
|
|
property Storage:PStorageDevice read FStorage;
|
|
|
|
property DeviceNo:Integer read FDeviceNo;
|
|
property Identifier:String read GetIdentifier;
|
|
property Information:String read GetInformation;
|
|
|
|
property VendorId:Word read FVendorId;
|
|
property DeviceId:Word read FDeviceId;
|
|
|
|
property Manufacturer:String read GetManufacturer;
|
|
property Product:String read GetProduct;
|
|
property SerialNumber:String read GetSerialNumber;
|
|
|
|
property HostBus:String read GetHostBus;
|
|
property BusNumber:Word read FBusNumber;
|
|
property DeviceNumber:Word read FDeviceNumber;
|
|
property FunctionNumber:Word read FFunctionNumber;
|
|
property BaseAddress:Word read FBaseAddress;
|
|
property InterfaceType:String read GetInterfaceType;
|
|
|
|
property Slave:Boolean read FSlave;
|
|
property LogicalUnitNo:LongWord read FLogicalUnitNo;
|
|
property FireWireGUID:Int64 read FFireWireGUID;
|
|
property WorldWideNo:Int64 read FWorldWideNo;
|
|
|
|
property PhysicalPort:Word read FPhysicalPort;
|
|
property ControlPort:Word read FControlPort;
|
|
property IRQ:LongWord read FIRQ;
|
|
|
|
property PIO:Boolean read FPIO;
|
|
property DMA:Boolean read FDMA;
|
|
property LBA:Boolean read FLBA;
|
|
property Version:LongWord read FVersion;
|
|
|
|
property MediaType:TMediaType read FMediaType;
|
|
property FloppyType:TFloppyType read FFloppyType;
|
|
property Ready:Boolean read FReady;
|
|
property Locked:Boolean read FLocked;
|
|
property Lockable:Boolean read FLockable;
|
|
property Ejectable:Boolean read FEjectable;
|
|
property Readable:Boolean read FReadable;
|
|
property Writeable:Boolean read FWriteable;
|
|
property Eraseable:Boolean read FEraseable;
|
|
property Removable:Boolean read FRemovable;
|
|
property ChangeLine:Boolean read FChangeLine;
|
|
|
|
property PhysicalCylinders:LongWord read FPhysicalCylinders;
|
|
property PhysicalHeads:LongWord read FPhysicalHeads;
|
|
property PhysicalSectors:LongWord read FPhysicalSectors;
|
|
|
|
property LogicalCylinders:LongWord read FLogicalCylinders;
|
|
property LogicalHeads:LongWord read FLogicalHeads;
|
|
property LogicalSectors:LongWord read FLogicalSectors;
|
|
|
|
property SectorSize:Word read FSectorSize;
|
|
property SectorCount:Int64 read FSectorCount;
|
|
property SectorShiftCount:Word read FSectorShiftCount;
|
|
|
|
property PageCount:Word read FPageCount write FPageCount;
|
|
property PageShift:Word read FPageShift write FPageShift;
|
|
property PageMask:LongWord read FPageMask write FPageMask;
|
|
|
|
property FreeSectors:Int64 read GetFreeSectors;
|
|
property AvailableSectors:Int64 read GetAvailableSectors;
|
|
|
|
property DiskSignature:LongWord read GetDiskSignature write SetDiskSignature;
|
|
|
|
function ReaderLock:Boolean;
|
|
function ReaderUnlock:Boolean;
|
|
function WriterLock:Boolean;
|
|
function WriterUnlock:Boolean;
|
|
|
|
function DeviceInit:Boolean; virtual;
|
|
|
|
function LocatePartitions:Boolean; virtual;
|
|
function LocateVolumes:Boolean; virtual;
|
|
|
|
function CreateVolume:TDiskVolume; virtual;
|
|
function DeleteVolume(AVolume:TDiskVolume):Boolean; virtual;
|
|
|
|
function CreatePartition(AParent:TDiskPartition; APartitionId:Byte; ACount:LongWord; AActive:Boolean):Boolean; virtual;
|
|
function DeletePartition(APartition:TDiskPartition):Boolean; virtual;
|
|
function ModifyPartition(APartition:TDiskPartition; APartitionId:Byte):Boolean; virtual;
|
|
function ActivatePartition(APartition:TDiskPartition; AActive:Boolean):Boolean; virtual;
|
|
function ShrinkPartition(APartition:TDiskPartition; const AStart,ASize:Int64):Boolean; virtual;
|
|
function ExpandPartition(APartition:TDiskPartition; const AStart,ASize:Int64):Boolean; virtual;
|
|
|
|
function Reset:Boolean;
|
|
|
|
function LockMedia:Boolean;
|
|
function UnlockMedia:Boolean;
|
|
function EjectMedia:Boolean;
|
|
|
|
function MediaReady:Boolean;
|
|
function MediaChanged:Boolean;
|
|
function MediaLocked:Boolean;
|
|
|
|
function InsertDevice:Boolean; virtual;
|
|
function EjectDevice:Boolean; virtual;
|
|
|
|
function OpenDevice(AMode:Integer):THandle; virtual;
|
|
procedure CloseDevice(AHandle:THandle); virtual;
|
|
function ReadDevice(AHandle:THandle; var ABuffer; ACount:Integer):Integer; virtual;
|
|
function WriteDevice(AHandle:THandle; const ABuffer; ACount:Integer):Integer; virtual;
|
|
function EraseDevice(AHandle:THandle; ACount:Integer):Integer; virtual;
|
|
function SeekDevice(AHandle:THandle; const AOffset:Int64; AOrigin:Integer):Int64; virtual;
|
|
Function declarations
[Expand]
constructor TDiskDevice.Create(ADriver:TFileSysDriver; AController:TDiskController; AImage:TDiskImage; AStorage:PStorageDevice; ADeviceNo:Integer; const AIdentifier:String);
Description: To be documented
[Expand]
destructor TDiskDevice.Destroy;
Description: To be documented
[Expand]
function TDiskDevice.AcquireLock:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.ReleaseLock:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.GetName:String;
Description: To be documented
[Expand]
function TDiskDevice.GetIdentifier:String;
Description: To be documented
[Expand]
function TDiskDevice.GetInformation:String;
Description: To be documented
[Expand]
function TDiskDevice.GetManufacturer:String;
Description: To be documented
[Expand]
function TDiskDevice.GetProduct:String;
Description: To be documented
[Expand]
function TDiskDevice.GetSerialNumber:String;
Description: To be documented
[Expand]
function TDiskDevice.GetHostBus:String;
Description: To be documented
[Expand]
function TDiskDevice.GetInterfaceType:String;
Description: To be documented
[Expand]
function TDiskDevice.GetFreeSectors:Int64;
Description: Get the total Count of Unused Sectors on the Device
[Expand]
function TDiskDevice.GetAvailableSectors:Int64;
Description: Get the largest Count of Unused Sectors on the Device
[Expand]
function TDiskDevice.GetAvailableBlock(var AStart,ACount:Int64):Boolean;
Description: Get the Start and Count of largest Unused Sectors on the Device
[Expand]
function TDiskDevice.GetDiskSignature:LongWord;
Description: To be documented
[Expand]
procedure TDiskDevice.SetDiskSignature(ADiskSignature:LongWord);
Description: To be documented
[Expand]
function TDiskDevice.ReaderLock:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.ReaderUnlock:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.WriterLock:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.WriterUnlock:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.DeviceInit:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.LocatePartitions:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.LocateVolumes:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.CreateVolume:TDiskVolume;
Description: To be documented
[Expand]
function TDiskDevice.DeleteVolume(AVolume:TDiskVolume):Boolean;
Description: To be documented
| Note
|
Caller must hold the volume writer lock
|
[Expand]
function TDiskDevice.CreatePartition(AParent:TDiskPartition; APartitionId:Byte; ACount:LongWord; AActive:Boolean):Boolean;
Description: To be documented
| Note
|
Caller must hold the parent writer lock
|
[Expand]
function TDiskDevice.DeletePartition(APartition:TDiskPartition):Boolean;
Description: To be documented
| Note
|
Caller must hold the partition writer lock
|
[Expand]
function TDiskDevice.ModifyPartition(APartition:TDiskPartition; APartitionId:Byte):Boolean;
Description: To be documented
| Note
|
Caller must hold the partition writer lock
|
[Expand]
function TDiskDevice.ActivatePartition(APartition:TDiskPartition; AActive:Boolean):Boolean;
Description: To be documented
| Note
|
Caller must hold the partition writer lock
|
[Expand]
function TDiskDevice.ShrinkPartition(APartition:TDiskPartition; const AStart,ASize:Int64):Boolean;
Description: To be documented
| Note
|
Caller must hold the partition writer lock
|
[Expand]
function TDiskDevice.ExpandPartition(APartition:TDiskPartition; const AStart,ASize:Int64):Boolean;
Description: To be documented
| Note
|
Caller must hold the partition writer lock
|
[Expand]
function TDiskDevice.Reset:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.LockMedia:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.UnlockMedia:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.EjectMedia:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.MediaReady:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.MediaChanged:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.MediaLocked:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.InsertDevice:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.EjectDevice:Boolean;
Description: To be documented
[Expand]
function TDiskDevice.OpenDevice(AMode:Integer):THandle; virtual;
Description: To be documented
[Expand]
procedure TDiskDevice.CloseDevice(AHandle:THandle); virtual;
Description: To be documented
[Expand]
function TDiskDevice.ReadDevice(AHandle:THandle; var ABuffer; ACount:Integer):Integer; virtual;
Description: To be documented
| Note
|
Raw Reads must be in Sector sized multiples
|
[Expand]
function TDiskDevice.WriteDevice(AHandle:THandle; const ABuffer; ACount:Integer):Integer; virtual;
Description: To be documented
| Note
|
Raw Writes must be in Sector sized multiples
|
[Expand]
function TDiskDevice.EraseDevice(AHandle:THandle; ACount:Integer):Integer; virtual;
Description: To be documented
| Note
|
Raw Erases must be in Sector sized multiples
|
[Expand]
function TDiskDevice.SeekDevice(AHandle:THandle; const AOffset:Int64; AOrigin:Integer):Int64; virtual;
Description: To be documented
| Note
|
Raw Seeks must be in Sector sized multiples
Raw Seeks cannot extend the size of the Device
|
Return to Unit Reference
