paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some explanatory comments from Andrew Haines (bug ID 27898)

Browse Source 
git-svn-id: trunk@30652 -
This commit is contained in:
michael 2015-04-18 16:34:01 +00:00
parent e8b8cf348d
commit 81950878b9
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/cdrom/src/cdrom.pp
View File

@ -20,12 +20,23 @@ unit cdrom;
interface
Type
// Frames are 1/75th of a second.
// To get the seconds of a track divide the frames by 75.
// TrackLen: Double; ...
// TrackLen := Frames / 75.
TTocEntry = Record
min, sec, frame : Integer;
end;
PTocEntry = ^TTocEntry;
// Returns the High value to use in a loop. Each entry is the position of the end
// of a track. For audio cd's the zero'th entry is not audio data. If an audio cd
// has 10 songs then ReadCDToc will return 10 but there are 11 entries: 0..10.
// You still need to use the zero'th entry to get the first track length:
// Track1Length := TOC[1].frames = TOC[0].frames.
Function ReadCDTOC(Device : String; Var CDTOC : Array of TTocEntry) : Integer;
// Returns the number of devices placed in 'Devices'
Function GetCDRomDevices(Var Devices : Array of string) : Integer;
Implementation