Стартовый пул

acs/Demos/cdplayer/cdplayer.lpi

@@ -0,0 +1,265 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="\"/>
+    <Version Value="5"/>
+    <General>
+      <MainUnit Value="0"/>
+      <IconPath Value="./"/>
+      <TargetFileExt Value=".exe"/>
+      <Title Value="project1"/>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+    <LazDoc Paths=""/>
+    <Units Count="27">
+      <Unit0>
+        <CursorPos X="36" Y="15"/>
+        <Filename Value="cdplayer.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <TopLine Value="1"/>
+        <UnitName Value="cdplayer"/>
+        <UsageCount Value="42"/>
+      </Unit0>
+      <Unit1>
+        <CursorPos X="22" Y="73"/>
+        <EditorIndex Value="0"/>
+        <Filename Value="umain.pas"/>
+        <ComponentName Value="Form1"/>
+        <IsPartOfProject Value="True"/>
+        <Loaded Value="True"/>
+        <ResourceFilename Value="umain.lrs"/>
+        <TopLine Value="57"/>
+        <UnitName Value="uMain"/>
+        <UsageCount Value="42"/>
+      </Unit1>
+      <Unit2>
+        <CursorPos X="1" Y="436"/>
+        <Filename Value="D:\LKomponenten\acs\Src\classes\ACS_Audio.pas"/>
+        <TopLine Value="409"/>
+        <UnitName Value="ACS_Audio"/>
+        <UsageCount Value="20"/>
+      </Unit2>
+      <Unit3>
+        <CursorPos X="1" Y="241"/>
+        <Filename Value="D:\LKomponenten\acs\Src\drivers\windows\ACS_Audio.inc"/>
+        <TopLine Value="208"/>
+        <UsageCount Value="17"/>
+      </Unit3>
+      <Unit4>
+        <CursorPos X="1" Y="1823"/>
+        <Filename Value="D:\lazarus\lcl\include\control.inc"/>
+        <TopLine Value="1808"/>
+        <UsageCount Value="10"/>
+      </Unit4>
+      <Unit5>
+        <CursorPos X="1" Y="58"/>
+        <Filename Value="D:\lazarus\lcl\include\buttoncontrol.inc"/>
+        <TopLine Value="43"/>
+        <UsageCount Value="10"/>
+      </Unit5>
+      <Unit6>
+        <CursorPos X="1" Y="242"/>
+        <Filename Value="D:\lazarus\lcl\include\buttons.inc"/>
+        <TopLine Value="227"/>
+        <UsageCount Value="10"/>
+      </Unit6>
+      <Unit7>
+        <CursorPos X="27" Y="74"/>
+        <Filename Value="D:\LKomponenten\acs\Src\drivers\ACS_StdAudio.pas"/>
+        <TopLine Value="70"/>
+        <UnitName Value="ACS_StdAudio"/>
+        <UsageCount Value="18"/>
+      </Unit7>
+      <Unit8>
+        <CursorPos X="1" Y="231"/>
+        <Filename Value="D:\LKomponenten\acs\Src\classes\ACS_File.pas"/>
+        <TopLine Value="214"/>
+        <UnitName Value="ACS_File"/>
+        <UsageCount Value="19"/>
+      </Unit8>
+      <Unit9>
+        <CursorPos X="68" Y="8"/>
+        <Filename Value="D:\LKomponenten\acs\Src\fileformats\ACS_Allformats.pas"/>
+        <TopLine Value="1"/>
+        <UnitName Value="ACS_AllFormats"/>
+        <UsageCount Value="16"/>
+      </Unit9>
+      <Unit10>
+        <CursorPos X="18" Y="31"/>
+        <Filename Value="D:\LKomponenten\acs\Src\fileformats\ACS_DSAudio.pas"/>
+        <TopLine Value="31"/>
+        <UnitName Value="ACS_DSAudio"/>
+        <UsageCount Value="9"/>
+      </Unit10>
+      <Unit11>
+        <CursorPos X="20" Y="318"/>
+        <Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_dsfiles.pas"/>
+        <TopLine Value="298"/>
+        <UnitName Value="ACS_DSFiles"/>
+        <UsageCount Value="12"/>
+      </Unit11>
+      <Unit12>
+        <CursorPos X="1" Y="474"/>
+        <Filename Value="D:\LKomponenten\acs\Src\fileformats\ACS_Vorbis.pas"/>
+        <TopLine Value="459"/>
+        <UnitName Value="ACS_Vorbis"/>
+        <UsageCount Value="16"/>
+      </Unit12>
+      <Unit13>
+        <CursorPos X="14" Y="204"/>
+        <EditorIndex Value="1"/>
+        <Filename Value="D:\LKomponenten\acs\Src\classes\ACS_Classes.pas"/>
+        <Loaded Value="True"/>
+        <TopLine Value="190"/>
+        <UnitName Value="acs_classes"/>
+        <UsageCount Value="18"/>
+      </Unit13>
+      <Unit14>
+        <CursorPos X="54" Y="48"/>
+        <Filename Value="D:\LKomponenten\acs\Src\classes\ACS_Strings.pas"/>
+        <TopLine Value="22"/>
+        <UnitName Value="ACS_Strings"/>
+        <UsageCount Value="16"/>
+      </Unit14>
+      <Unit15>
+        <CursorPos X="1" Y="424"/>
+        <Filename Value="D:\LKomponenten\acs\Src\drivers\ACS_DXAudio.pas"/>
+        <TopLine Value="410"/>
+        <UnitName Value="ACS_DXAudio"/>
+        <UsageCount Value="16"/>
+      </Unit15>
+      <Unit16>
+        <CursorPos X="25" Y="152"/>
+        <Filename Value="D:\LKomponenten\acs\Src\fileformats\ACS_Wave.pas"/>
+        <TopLine Value="138"/>
+        <UnitName Value="ACS_Wave"/>
+        <UsageCount Value="10"/>
+      </Unit16>
+      <Unit17>
+        <CursorPos X="23" Y="2003"/>
+        <Filename Value="D:\lazarus\lcl\lresources.pp"/>
+        <TopLine Value="1986"/>
+        <UnitName Value="LResources"/>
+        <UsageCount Value="10"/>
+      </Unit17>
+      <Unit18>
+        <CursorPos X="1" Y="351"/>
+        <Filename Value="D:\LKomponenten\acs\Demos\Lazarus\Mediaplayer\uplayer.pas"/>
+        <HasResources Value="True"/>
+        <TopLine Value="329"/>
+        <UnitName Value="uPlayer"/>
+        <UsageCount Value="10"/>
+      </Unit18>
+      <Unit19>
+        <CursorPos X="13" Y="121"/>
+        <Filename Value="D:\LKomponenten\acs\Demos\Win32\CDPlayer\Main.pas"/>
+        <TopLine Value="98"/>
+        <UnitName Value="Main"/>
+        <UsageCount Value="10"/>
+      </Unit19>
+      <Unit20>
+        <CursorPos X="6" Y="104"/>
+        <Filename Value="D:\LKomponenten\acs\Demos\Win32\OggPlayer\Main.pas"/>
+        <TopLine Value="77"/>
+        <UnitName Value="Main"/>
+        <UsageCount Value="10"/>
+      </Unit20>
+      <Unit21>
+        <CursorPos X="13" Y="28"/>
+        <Filename Value="D:\LKomponenten\acs\Demos\Win32\AudioPlayer\Main.pas"/>
+        <TopLine Value="28"/>
+        <UnitName Value="Main"/>
+        <UsageCount Value="10"/>
+      </Unit21>
+      <Unit22>
+        <CursorPos X="5" Y="2678"/>
+        <Filename Value="D:\fpc\packages\extra\winunits\activex.pp"/>
+        <TopLine Value="2661"/>
+        <UnitName Value="activex"/>
+        <UsageCount Value="10"/>
+      </Unit22>
+      <Unit23>
+        <CursorPos X="1" Y="201"/>
+        <EditorIndex Value="2"/>
+        <Filename Value="D:\LKomponenten\acs\Src\classes\windows\acs_cdrom.inc"/>
+        <Loaded Value="True"/>
+        <TopLine Value="187"/>
+        <UsageCount Value="10"/>
+      </Unit23>
+      <Unit24>
+        <CursorPos X="9" Y="61"/>
+        <Filename Value="D:\LKomponenten\acs\Src\classes\ACS_CDROM.pas"/>
+        <TopLine Value="44"/>
+        <UnitName Value="ACS_CDROM"/>
+        <UsageCount Value="10"/>
+      </Unit24>
+      <Unit25>
+        <CursorPos X="1" Y="238"/>
+        <Filename Value="D:\LKomponenten\acs\Src\classes\linux\ACS_CDROM.inc"/>
+        <TopLine Value="226"/>
+        <UsageCount Value="10"/>
+      </Unit25>
+      <Unit26>
+        <CursorPos X="3" Y="32"/>
+        <Filename Value="D:\lazarus\lcl\LCLClasses.pp"/>
+        <TopLine Value="15"/>
+        <UnitName Value="LCLClasses"/>
+        <UsageCount Value="10"/>
+      </Unit26>
+    </Units>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="2">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="LAZ_ACS"/>
+      </Item2>
+    </RequiredPackages>
+    <JumpHistory Count="1" HistoryIndex="0">
+      <Position1>
+        <Filename Value="D:\LKomponenten\acs\Src\classes\windows\ACS_CDROM.inc"/>
+        <Caret Line="201" Column="1" TopLine="187"/>
+      </Position1>
+    </JumpHistory>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <PathDelim Value="\"/>
+    <SearchPaths>
+      <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
+    </SearchPaths>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Linking>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Watches Count="1">
+      <Item1>
+        <Expression Value="CDIn1.EndTrack"/>
+      </Item1>
+    </Watches>
+  </Debugging>
+</CONFIG>

acs/Demos/cdplayer/umain.lfm

@@ -0,0 +1,466 @@
+object Form1: TForm1
+  ActiveControl = btOpen
+  Caption = 'CD Player'
+  ClientHeight = 99
+  ClientWidth = 189
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  HorzScrollBar.Page = 188
+  VertScrollBar.Page = 98
+  Left = 298
+  Height = 99
+  Top = 268
+  Width = 189
+  object Panel1: TPanel
+    BevelOuter = bvLowered
+    ClientHeight = 64
+    ClientWidth = 182
+    FullRepaint = False
+    TabOrder = 0
+    Left = 4
+    Height = 64
+    Width = 182
+    object lTime: TLabel
+      AutoSize = False
+      Caption = '00:00:00'
+      Color = clNone
+      Font.Height = -25
+      ParentColor = False
+      Left = 68
+      Height = 29
+      Top = 24
+      Width = 108
+    end
+    object lTrack: TLabel
+      Caption = '01'
+      Color = clNone
+      Font.Height = -37
+      ParentColor = False
+      Left = 16
+      Height = 46
+      Top = 17
+      Width = 41
+    end
+    object Label1: TLabel
+      Caption = 'Track'
+      Color = clNone
+      Font.Height = -9
+      ParentColor = False
+      Left = 4
+      Height = 12
+      Top = 14
+      Width = 24
+    end
+    object Label2: TLabel
+      Caption = 'remain'
+      Color = clNone
+      Font.Height = -9
+      ParentColor = False
+      Left = 92
+      Height = 12
+      Top = 14
+      Width = 29
+    end
+    object Label3: TLabel
+      Caption = 'Tracks'
+      Color = clNone
+      Font.Height = -9
+      ParentColor = False
+      Left = 4
+      Height = 12
+      Top = 2
+      Width = 28
+    end
+    object lTracksCount: TLabel
+      Caption = '09'
+      Color = clNone
+      ParentColor = False
+      Left = 44
+      Height = 14
+      Top = 1
+      Width = 13
+    end
+    object Label5: TLabel
+      Caption = 'Time left'
+      Color = clNone
+      Font.Height = -9
+      ParentColor = False
+      Left = 60
+      Height = 12
+      Width = 38
+    end
+    object lLeft: TLabel
+      Alignment = taRightJustify
+      Caption = '00:00:00'
+      Color = clNone
+      Font.Height = -12
+      ParentColor = False
+      Left = 124
+      Height = 15
+      Top = 1
+      Width = 51
+    end
+    object Progress: TProgressBar
+      Align = alBottom
+      Max = 1000
+      Smooth = True
+      Left = 1
+      Height = 8
+      Top = 55
+      Width = 180
+    end
+  end
+  object btOpen: TBitBtn
+    BorderSpacing.InnerBorder = 2
+    Glyph.Data = {
+      970300002F2A2058504D202A2F0D0A7374617469632063686172202A5069786D
+      61705B5D203D207B0D0A2231362031362031362032222C0D0A22303020632023
+      303830383130222C0D0A22303120632023313831383231222C0D0A2230322063
+      20677261793136222C0D0A22303320632023443644364345222C0D0A22303420
+      632067726179313030222C0D0A22303520632067726179313030222C0D0A2230
+      3620632067726179313030222C0D0A22303720632067726179313030222C0D0A
+      22303820632067726179313030222C0D0A22303920632067726179313030222C
+      0D0A22313020632067726179313030222C0D0A22313120632067726179313030
+      222C0D0A22313220632067726179313030222C0D0A2231332063206772617931
+      3030222C0D0A22313420632067726179313030222C0D0A223135206320677261
+      79313030222C0D0A223033303330333033303330333033303330333033303330
+      333033303330333033222C0D0A22303330333033303330333033303330333033
+      3033303330333033303330333033222C0D0A2230333033303330333033303330
+      33303330333033303330333033303330333033222C0D0A223033303330333033
+      303330333033303030333033303330333033303330333033222C0D0A22303330
+      3330333033303330333030303130303033303330333033303330333033222C0D
+      0A22303330333033303330333030303130313031303030333033303330333033
+      3033222C0D0A2230333033303330333030303130313031303130313030303330
+      33303330333033222C0D0A223033303330333030303130313031303130313031
+      303130303033303330333033222C0D0A22303330333032303230323032303230
+      3230323032303230323032303330333033222C0D0A2230333033303330333033
+      30333033303330333033303330333033303330333033222C0D0A223033303330
+      303030303030303030303030303030303030303030303330333033222C0D0A22
+      3033303330303031303130313031303130313031303130313032303330333033
+      222C0D0A22303330333032303230323032303230323032303230323032303230
+      3330333033222C0D0A2230333033303330333033303330333033303330333033
+      30333033303330333033222C0D0A223033303330333033303330333033303330
+      333033303330333033303330333033222C0D0A22303330333033303330333033
+      3033303330333033303330333033303330333033220D0A7D3B0D0A
+    }
+    Layout = blGlyphTop
+    NumGlyphs = 0
+    OnClick = OpenClick
+    TabOrder = 1
+    Left = 4
+    Height = 26
+    Top = 67
+    Width = 28
+  end
+  object btRew: TBitBtn
+    BorderSpacing.InnerBorder = 2
+    Glyph.Data = {
+      970300002F2A2058504D202A2F0D0A7374617469632063686172202A5069786D
+      61705B5D203D207B0D0A2231362031362031362032222C0D0A22303020632023
+      303830383130222C0D0A22303120632023313831383231222C0D0A2230322063
+      20677261793136222C0D0A22303320632023443644364345222C0D0A22303420
+      632067726179313030222C0D0A22303520632067726179313030222C0D0A2230
+      3620632067726179313030222C0D0A22303720632067726179313030222C0D0A
+      22303820632067726179313030222C0D0A22303920632067726179313030222C
+      0D0A22313020632067726179313030222C0D0A22313120632067726179313030
+      222C0D0A22313220632067726179313030222C0D0A2231332063206772617931
+      3030222C0D0A22313420632067726179313030222C0D0A223135206320677261
+      79313030222C0D0A223033303330333033303330333033303330333033303330
+      333033303330333033222C0D0A22303330333033303330333033303330333033
+      3033303330333033303330333033222C0D0A2230333033303330333033303330
+      33303330333033303330333033303330333033222C0D0A223033303330333030
+      303030303033303330333033303330303030303330333033222C0D0A22303330
+      3330333030303130323033303330333033303030313032303330333033222C0D
+      0A22303330333033303030313032303330333033303030313031303230333033
+      3033222C0D0A2230333033303330303031303230333033303030313031303130
+      32303330333033222C0D0A223033303330333030303130323033303030313031
+      303130313032303330333033222C0D0A22303330333033303030313032303330
+      3230313031303130313032303330333033222C0D0A2230333033303330303031
+      30323033303330323031303130313032303330333033222C0D0A223033303330
+      333030303130323033303330333032303130313032303330333033222C0D0A22
+      3033303330333030303130323033303330333033303230313032303330333033
+      222C0D0A22303330333033303230323032303330333033303330333032303230
+      3330333033222C0D0A2230333033303330333033303330333033303330333033
+      30333033303330333033222C0D0A223033303330333033303330333033303330
+      333033303330333033303330333033222C0D0A22303330333033303330333033
+      3033303330333033303330333033303330333033220D0A7D3B0D0A
+    }
+    NumGlyphs = 0
+    OnClick = btRewClick
+    TabOrder = 2
+    Left = 32
+    Height = 26
+    Top = 67
+    Width = 28
+  end
+  object btFfw: TBitBtn
+    BorderSpacing.InnerBorder = 2
+    Glyph.Data = {
+      970300002F2A2058504D202A2F0D0A7374617469632063686172202A5069786D
+      61705B5D203D207B0D0A2231362031362031362032222C0D0A22303020632023
+      303830383130222C0D0A22303120632023313831383231222C0D0A2230322063
+      20677261793136222C0D0A22303320632023443644364345222C0D0A22303420
+      632067726179313030222C0D0A22303520632067726179313030222C0D0A2230
+      3620632067726179313030222C0D0A22303720632067726179313030222C0D0A
+      22303820632067726179313030222C0D0A22303920632067726179313030222C
+      0D0A22313020632067726179313030222C0D0A22313120632067726179313030
+      222C0D0A22313220632067726179313030222C0D0A2231332063206772617931
+      3030222C0D0A22313420632067726179313030222C0D0A223135206320677261
+      79313030222C0D0A223033303330333033303330333033303330333033303330
+      333033303330333033222C0D0A22303330333033303330333033303330333033
+      3033303330333033303330333033222C0D0A2230333033303330333033303330
+      33303330333033303330333033303330333033222C0D0A223033303330333030
+      303030333033303330333033303030303030303330333033222C0D0A22303330
+      3330333032303130303033303330333033303230313030303330333033222C0D
+      0A22303330333033303230313031303030333033303330323031303030333033
+      3033222C0D0A2230333033303330323031303130313030303330333032303130
+      30303330333033222C0D0A223033303330333032303130313031303130303033
+      303230313030303330333033222C0D0A22303330333033303230313031303130
+      3130323033303230313030303330333033222C0D0A2230333033303330323031
+      30313031303230333033303230313030303330333033222C0D0A223033303330
+      333032303130313032303330333033303230313030303330333033222C0D0A22
+      3033303330333032303130323033303330333033303230313030303330333033
+      222C0D0A22303330333033303230323033303330333033303330323032303230
+      3330333033222C0D0A2230333033303330333033303330333033303330333033
+      30333033303330333033222C0D0A223033303330333033303330333033303330
+      333033303330333033303330333033222C0D0A22303330333033303330333033
+      3033303330333033303330333033303330333033220D0A7D3B0D0A
+    }
+    Layout = blGlyphRight
+    NumGlyphs = 0
+    OnClick = btFfwClick
+    TabOrder = 3
+    Left = 60
+    Height = 26
+    Top = 67
+    Width = 28
+  end
+  object btPlay: TBitBtn
+    BorderSpacing.InnerBorder = 2
+    Glyph.Data = {
+      911300002F2A2058504D202A2F0D0A7374617469632063686172202A5069786D
+      61705B5D203D207B0D0A223136203136203235362033222C0D0A223030302063
+      2023304330463132222C0D0A2230303120632023314231443230222C0D0A2230
+      303220632023324132443244222C0D0A2230303320632023443444304338222C
+      0D0A22303034206320626C61636B222C0D0A22303035206320626C61636B222C
+      0D0A22303036206320626C61636B222C0D0A22303037206320626C61636B222C
+      0D0A22303038206320626C61636B222C0D0A22303039206320626C61636B222C
+      0D0A22303130206320626C61636B222C0D0A22303131206320626C61636B222C
+      0D0A22303132206320626C61636B222C0D0A22303133206320626C61636B222C
+      0D0A22303134206320626C61636B222C0D0A22303135206320626C61636B222C
+      0D0A22303136206320626C61636B222C0D0A22303137206320626C61636B222C
+      0D0A22303138206320626C61636B222C0D0A22303139206320626C61636B222C
+      0D0A22303230206320626C61636B222C0D0A22303231206320626C61636B222C
+      0D0A22303232206320626C61636B222C0D0A22303233206320626C61636B222C
+      0D0A22303234206320626C61636B222C0D0A22303235206320626C61636B222C
+      0D0A22303236206320626C61636B222C0D0A22303237206320626C61636B222C
+      0D0A22303238206320626C61636B222C0D0A22303239206320626C61636B222C
+      0D0A22303330206320626C61636B222C0D0A22303331206320626C61636B222C
+      0D0A22303332206320626C61636B222C0D0A22303333206320626C61636B222C
+      0D0A22303334206320626C61636B222C0D0A22303335206320626C61636B222C
+      0D0A22303336206320626C61636B222C0D0A22303337206320626C61636B222C
+      0D0A22303338206320626C61636B222C0D0A22303339206320626C61636B222C
+      0D0A22303430206320626C61636B222C0D0A22303431206320626C61636B222C
+      0D0A22303432206320626C61636B222C0D0A22303433206320626C61636B222C
+      0D0A22303434206320626C61636B222C0D0A22303435206320626C61636B222C
+      0D0A22303436206320626C61636B222C0D0A22303437206320626C61636B222C
+      0D0A22303438206320626C61636B222C0D0A22303439206320626C61636B222C
+      0D0A22303530206320626C61636B222C0D0A22303531206320626C61636B222C
+      0D0A22303532206320626C61636B222C0D0A22303533206320626C61636B222C
+      0D0A22303534206320626C61636B222C0D0A22303535206320626C61636B222C
+      0D0A22303536206320626C61636B222C0D0A22303537206320626C61636B222C
+      0D0A22303538206320626C61636B222C0D0A22303539206320626C61636B222C
+      0D0A22303630206320626C61636B222C0D0A22303631206320626C61636B222C
+      0D0A22303632206320626C61636B222C0D0A22303633206320626C61636B222C
+      0D0A22303634206320626C61636B222C0D0A22303635206320626C61636B222C
+      0D0A22303636206320626C61636B222C0D0A22303637206320626C61636B222C
+      0D0A22303638206320626C61636B222C0D0A22303639206320626C61636B222C
+      0D0A22303730206320626C61636B222C0D0A22303731206320626C61636B222C
+      0D0A22303732206320626C61636B222C0D0A22303733206320626C61636B222C
+      0D0A22303734206320626C61636B222C0D0A22303735206320626C61636B222C
+      0D0A22303736206320626C61636B222C0D0A22303737206320626C61636B222C
+      0D0A22303738206320626C61636B222C0D0A22303739206320626C61636B222C
+      0D0A22303830206320626C61636B222C0D0A22303831206320626C61636B222C
+      0D0A22303832206320626C61636B222C0D0A22303833206320626C61636B222C
+      0D0A22303834206320626C61636B222C0D0A22303835206320626C61636B222C
+      0D0A22303836206320626C61636B222C0D0A22303837206320626C61636B222C
+      0D0A22303838206320626C61636B222C0D0A22303839206320626C61636B222C
+      0D0A22303930206320626C61636B222C0D0A22303931206320626C61636B222C
+      0D0A22303932206320626C61636B222C0D0A22303933206320626C61636B222C
+      0D0A22303934206320626C61636B222C0D0A22303935206320626C61636B222C
+      0D0A22303936206320626C61636B222C0D0A22303937206320626C61636B222C
+      0D0A22303938206320626C61636B222C0D0A22303939206320626C61636B222C
+      0D0A22313030206320626C61636B222C0D0A22313031206320626C61636B222C
+      0D0A22313032206320626C61636B222C0D0A22313033206320626C61636B222C
+      0D0A22313034206320626C61636B222C0D0A22313035206320626C61636B222C
+      0D0A22313036206320626C61636B222C0D0A22313037206320626C61636B222C
+      0D0A22313038206320626C61636B222C0D0A22313039206320626C61636B222C
+      0D0A22313130206320626C61636B222C0D0A22313131206320626C61636B222C
+      0D0A22313132206320626C61636B222C0D0A22313133206320626C61636B222C
+      0D0A22313134206320626C61636B222C0D0A22313135206320626C61636B222C
+      0D0A22313136206320626C61636B222C0D0A22313137206320626C61636B222C
+      0D0A22313138206320626C61636B222C0D0A22313139206320626C61636B222C
+      0D0A22313230206320626C61636B222C0D0A22313231206320626C61636B222C
+      0D0A22313232206320626C61636B222C0D0A22313233206320626C61636B222C
+      0D0A22313234206320626C61636B222C0D0A22313235206320626C61636B222C
+      0D0A22313236206320626C61636B222C0D0A22313237206320626C61636B222C
+      0D0A22313238206320626C61636B222C0D0A22313239206320626C61636B222C
+      0D0A22313330206320626C61636B222C0D0A22313331206320626C61636B222C
+      0D0A22313332206320626C61636B222C0D0A22313333206320626C61636B222C
+      0D0A22313334206320626C61636B222C0D0A22313335206320626C61636B222C
+      0D0A22313336206320626C61636B222C0D0A22313337206320626C61636B222C
+      0D0A22313338206320626C61636B222C0D0A22313339206320626C61636B222C
+      0D0A22313430206320626C61636B222C0D0A22313431206320626C61636B222C
+      0D0A22313432206320626C61636B222C0D0A22313433206320626C61636B222C
+      0D0A22313434206320626C61636B222C0D0A22313435206320626C61636B222C
+      0D0A22313436206320626C61636B222C0D0A22313437206320626C61636B222C
+      0D0A22313438206320626C61636B222C0D0A22313439206320626C61636B222C
+      0D0A22313530206320626C61636B222C0D0A22313531206320626C61636B222C
+      0D0A22313532206320626C61636B222C0D0A22313533206320626C61636B222C
+      0D0A22313534206320626C61636B222C0D0A22313535206320626C61636B222C
+      0D0A22313536206320626C61636B222C0D0A22313537206320626C61636B222C
+      0D0A22313538206320626C61636B222C0D0A22313539206320626C61636B222C
+      0D0A22313630206320626C61636B222C0D0A22313631206320626C61636B222C
+      0D0A22313632206320626C61636B222C0D0A22313633206320626C61636B222C
+      0D0A22313634206320626C61636B222C0D0A22313635206320626C61636B222C
+      0D0A22313636206320626C61636B222C0D0A22313637206320626C61636B222C
+      0D0A22313638206320626C61636B222C0D0A22313639206320626C61636B222C
+      0D0A22313730206320626C61636B222C0D0A22313731206320626C61636B222C
+      0D0A22313732206320626C61636B222C0D0A22313733206320626C61636B222C
+      0D0A22313734206320626C61636B222C0D0A22313735206320626C61636B222C
+      0D0A22313736206320626C61636B222C0D0A22313737206320626C61636B222C
+      0D0A22313738206320626C61636B222C0D0A22313739206320626C61636B222C
+      0D0A22313830206320626C61636B222C0D0A22313831206320626C61636B222C
+      0D0A22313832206320626C61636B222C0D0A22313833206320626C61636B222C
+      0D0A22313834206320626C61636B222C0D0A22313835206320626C61636B222C
+      0D0A22313836206320626C61636B222C0D0A22313837206320626C61636B222C
+      0D0A22313838206320626C61636B222C0D0A22313839206320626C61636B222C
+      0D0A22313930206320626C61636B222C0D0A22313931206320626C61636B222C
+      0D0A22313932206320626C61636B222C0D0A22313933206320626C61636B222C
+      0D0A22313934206320626C61636B222C0D0A22313935206320626C61636B222C
+      0D0A22313936206320626C61636B222C0D0A22313937206320626C61636B222C
+      0D0A22313938206320626C61636B222C0D0A22313939206320626C61636B222C
+      0D0A22323030206320626C61636B222C0D0A22323031206320626C61636B222C
+      0D0A22323032206320626C61636B222C0D0A22323033206320626C61636B222C
+      0D0A22323034206320626C61636B222C0D0A22323035206320626C61636B222C
+      0D0A22323036206320626C61636B222C0D0A22323037206320626C61636B222C
+      0D0A22323038206320626C61636B222C0D0A22323039206320626C61636B222C
+      0D0A22323130206320626C61636B222C0D0A22323131206320626C61636B222C
+      0D0A22323132206320626C61636B222C0D0A22323133206320626C61636B222C
+      0D0A22323134206320626C61636B222C0D0A22323135206320626C61636B222C
+      0D0A22323136206320626C61636B222C0D0A22323137206320626C61636B222C
+      0D0A22323138206320626C61636B222C0D0A22323139206320626C61636B222C
+      0D0A22323230206320626C61636B222C0D0A22323231206320626C61636B222C
+      0D0A22323232206320626C61636B222C0D0A22323233206320626C61636B222C
+      0D0A22323234206320626C61636B222C0D0A22323235206320626C61636B222C
+      0D0A22323236206320626C61636B222C0D0A22323237206320626C61636B222C
+      0D0A22323238206320626C61636B222C0D0A22323239206320626C61636B222C
+      0D0A22323330206320626C61636B222C0D0A22323331206320626C61636B222C
+      0D0A22323332206320626C61636B222C0D0A22323333206320626C61636B222C
+      0D0A22323334206320626C61636B222C0D0A22323335206320626C61636B222C
+      0D0A22323336206320626C61636B222C0D0A22323337206320626C61636B222C
+      0D0A22323338206320626C61636B222C0D0A22323339206320626C61636B222C
+      0D0A22323430206320626C61636B222C0D0A22323431206320626C61636B222C
+      0D0A22323432206320626C61636B222C0D0A22323433206320626C61636B222C
+      0D0A22323434206320626C61636B222C0D0A22323435206320626C61636B222C
+      0D0A22323436206320626C61636B222C0D0A22323437206320626C61636B222C
+      0D0A22323438206320626C61636B222C0D0A22323439206320626C61636B222C
+      0D0A22323530206320626C61636B222C0D0A22323531206320626C61636B222C
+      0D0A22323532206320626C61636B222C0D0A22323533206320626C61636B222C
+      0D0A22323534206320626C61636B222C0D0A22323535206320626C61636B222C
+      0D0A223030333030333030333030333030333030333030333030333030333030
+      33303033303033303033303033303033303033222C0D0A223030333030333030
+      3330303330303330303330303330303330303330303330303330303330303330
+      3033303033303033222C0D0A2230303330303330303330303330303330303330
+      3033303033303033303033303033303033303033303033303033303033222C0D
+      0A22303033303033303033303030303030303033303033303033303033303033
+      303033303033303033303033303033303033222C0D0A22303033303033303033
+      3030303030313030303030303030333030333030333030333030333030333030
+      33303033303033222C0D0A223030333030333030333030303030313030313030
+      31303030303030303033303033303033303033303033303033303033222C0D0A
+      2230303330303330303330303030303130303130303130303130303130303030
+      3030303033303033303033303033303033222C0D0A2230303330303330303330
+      3030303031303031303031303031303031303031303031303030303030303033
+      303033303033222C0D0A22303033303033303033303030303031303031303031
+      303031303031303031303031303032303032303033303033303033222C0D0A22
+      3030333030333030333030303030313030313030313030313030313030323030
+      32303033303033303033303033303033222C0D0A223030333030333030333030
+      3030303130303130303130303230303230303330303330303330303330303330
+      3033303033222C0D0A2230303330303330303330303030303130303230303230
+      3033303033303033303033303033303033303033303033303033222C0D0A2230
+      3033303033303033303032303032303033303033303033303033303033303033
+      303033303033303033303033303033222C0D0A22303033303033303033303033
+      3030333030333030333030333030333030333030333030333030333030333030
+      33303033222C0D0A223030333030333030333030333030333030333030333030
+      33303033303033303033303033303033303033303033303033222C0D0A223030
+      3330303330303330303330303330303330303330303330303330303330303330
+      3033303033303033303033303033220D0A7D3B0D0A
+    }
+    NumGlyphs = 0
+    OnClick = PlayClick
+    TabOrder = 4
+    Left = 88
+    Height = 26
+    Top = 67
+    Width = 28
+  end
+  object btStop: TBitBtn
+    BorderSpacing.InnerBorder = 2
+    Glyph.Data = {
+      970300002F2A2058504D202A2F0D0A7374617469632063686172202A5069786D
+      61705B5D203D207B0D0A2231362031362031362032222C0D0A22303020632023
+      303830383130222C0D0A22303120632023313831383231222C0D0A2230322063
+      20677261793136222C0D0A22303320632023443644364345222C0D0A22303420
+      632067726179313030222C0D0A22303520632067726179313030222C0D0A2230
+      3620632067726179313030222C0D0A22303720632067726179313030222C0D0A
+      22303820632067726179313030222C0D0A22303920632067726179313030222C
+      0D0A22313020632067726179313030222C0D0A22313120632067726179313030
+      222C0D0A22313220632067726179313030222C0D0A2231332063206772617931
+      3030222C0D0A22313420632067726179313030222C0D0A223135206320677261
+      79313030222C0D0A223033303330333033303330333033303330333033303330
+      333033303330333033222C0D0A22303330333033303330333033303330333033
+      3033303330333033303330333033222C0D0A2230333033303330333033303330
+      33303330333033303330333033303330333033222C0D0A223033303330333030
+      303030303030303030303030303030303030303330333033222C0D0A22303330
+      3330333030303130313031303130313031303130313032303330333033222C0D
+      0A22303330333033303030313031303130313031303130313031303230333033
+      3033222C0D0A2230333033303330303031303130313031303130313031303130
+      32303330333033222C0D0A223033303330333030303130313031303130313031
+      303130313032303330333033222C0D0A22303330333033303030313031303130
+      3130313031303130313032303330333033222C0D0A2230333033303330303031
+      30313031303130313031303130313032303330333033222C0D0A223033303330
+      333030303130313031303130313031303130313032303330333033222C0D0A22
+      3033303330333030303130313031303130313031303130313032303330333033
+      222C0D0A22303330333033303230323032303230323032303230323032303230
+      3330333033222C0D0A2230333033303330333033303330333033303330333033
+      30333033303330333033222C0D0A223033303330333033303330333033303330
+      333033303330333033303330333033222C0D0A22303330333033303330333033
+      3033303330333033303330333033303330333033220D0A7D3B0D0A
+    }
+    NumGlyphs = 0
+    OnClick = StopClick
+    TabOrder = 5
+    Left = 116
+    Height = 26
+    Top = 67
+    Width = 28
+  end
+  object PlayTimer: TTimer
+    Enabled = False
+    Interval = 150
+    OnTimer = Timer1Timer
+    top = 152
+  end
+  object CDIn1: TACSCDIn
+    top = 8
+  end
+  object AudioOut1: TACSAudioOut
+    Driver = 'Wavemapper'
+    Input = CDIn1
+    Delay = 6
+    SuspendWhenIdle = True
+    OnDone = AudioOut1Done
+    OnProgress = AudioOut1Progress
+    top = 40
+  end
+end

acs/Demos/cdplayer/umain.pas

@@ -0,0 +1,143 @@
+unit uMain; 
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
+  ACS_Audio,ACS_File,ACS_Classes,ACS_Allformats, ExtCtrls, StdCtrls, ComCtrls, ACS_CDROM;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    AudioOut1: TACSAudioOut;
+    CDIn1: TACSCDIn;
+    btRew: TBitBtn;
+    btFfw: TBitBtn;
+    btPlay: TBitBtn;
+    btStop: TBitBtn;
+    btOpen: TBitBtn;
+    lTrack: TLabel;
+    lTime: TLabel;
+    Panel1: TPanel;
+    Progress: TProgressBar;
+    PlayTimer: TTimer;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    lTracksCount: TLabel;
+    Label5: TLabel;
+    lLeft: TLabel;
+    procedure AudioOut1Done(Sender: TComponent);
+    procedure AudioOut1Progress(Sender: TComponent);
+    procedure AudioOut1ThreadException(Sender: TComponent; E: Exception);
+    procedure PlayClick(Sender: TObject);
+    procedure StopClick(Sender: TObject);
+    procedure OpenClick(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
+    procedure btFfwClick(Sender: TObject);
+    procedure btRewClick(Sender: TObject);
+    procedure FormCreate(Sender : TObject);
+  private
+    { private declarations }
+  public
+    { public declarations }
+  end;
+
+var
+  Form1: TForm1; 
+
+implementation
+
+{ TForm1 }
+
+procedure TForm1.PlayClick(Sender: TObject);
+begin
+  AudioOut1.Run;
+  btPlay.Enabled := False;
+  btStop.Enabled := True;
+  btOpen.Enabled := False;
+  btRew.Enabled := False;
+  btFfw.Enabled := False;
+end;
+
+procedure TForm1.AudioOut1Done(Sender: TComponent);
+begin
+  btPlay.Enabled := True;
+  btStop.Enabled := False;
+  btOpen.Enabled := True;
+  btRew.Enabled := True;
+  btFfw.Enabled := True;
+  PlayTimer.Enabled := false;
+end;
+
+procedure TForm1.AudioOut1Progress(Sender: TComponent);
+begin
+  PlayTimer.Enabled := True;
+end;
+
+procedure TForm1.AudioOut1ThreadException(Sender: TComponent; E: Exception);
+begin
+  ShowMessage(E.Message);
+end;
+
+procedure TForm1.StopClick(Sender: TObject);
+begin
+  AudioOut1.Stop;
+end;
+
+procedure TForm1.OpenClick(Sender: TObject);
+begin
+  lTracksCount.Caption := Format('%.2d',[CDIn1.Trackscount]);
+end;
+
+procedure TForm1.Timer1Timer(Sender: TObject);
+var
+  tmp : real;
+begin
+  tmp := ((CDIn1.Position * CDIn1.TotalTime) / CDIn1.Size);
+  lTime.Caption := Format('%.2d:%.2d:%.2d',[round((tmp-30) / 60) mod 120,round(tmp) mod 60,round(tmp*100) mod 100]);
+  tmp := CDIn1.TotalTime-((CDIn1.Position * CDIn1.TotalTime) / CDIn1.Size);
+  lLeft.Caption := Format('%.2d:%.2d:%.2d',[round((tmp-30) / 60) mod 120,round(tmp) mod 60,round(tmp*100) mod 100]);
+  Progress.Position := round((CDIn1.Position * 100) / CDIn1.Size);
+end;
+
+procedure TForm1.btFfwClick(Sender: TObject);
+begin
+  CDIn1.StartTrack := CDIn1.StartTrack+1;
+  CDIn1.EndTrack := CDIn1.StartTrack+1;
+  if CDIn1.StartTrack = CDIn1.TracksCount-1 then
+    btFfw.Enabled := False;
+  if CDIn1.StartTrack > 0 then
+    btRew.Enabled := True;
+  lTrack.Caption := Format('%.2d',[CDIn1.EndTrack]);
+  lLeft.Caption := '';
+  lTime.Caption := '00:00:00';
+end;
+
+procedure TForm1.btRewClick(Sender: TObject);
+begin
+  CDIn1.StartTrack := CDIn1.StartTrack-1;
+  CDIn1.EndTrack := CDIn1.StartTrack+1;
+  if CDIn1.StartTrack < CDIn1.TracksCount-1 then
+    btFfw.Enabled := True;
+  if CDIn1.StartTrack <= 0 then
+    btRew.Enabled := False;
+  lTrack.Caption := Format('%.2d',[CDIn1.EndTrack]);
+  lLeft.Caption := '';
+  lTime.Caption := '00:00:00';
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  lTracksCount.Caption := Format('%.2d',[CDIn1.Trackscount]);
+end;
+
+initialization
+  {$I umain.lrs}
+
+end.
+