fix linerecord example

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2822 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2013-11-01 23:33:58 +00:00
parent 1e4133108f
commit c9d65fa82e
5 changed files with 318 additions and 397 deletions

View File

@ -1,140 +1,18 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="9"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <Title Value="Linerecord Example"/>
<TargetFileExt Value=".exe"/> <ActiveWindowIndexAtStart Value="0"/>
<ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<LazDoc Paths=""/> <BuildModes Count="1">
<Units Count="17"> <Item1 Name="default" Default="True"/>
<Unit0> </BuildModes>
<Filename Value="linerecord.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="linerecord"/>
<UsageCount Value="21"/>
</Unit0>
<Unit1>
<CursorPos X="24" Y="71"/>
<EditorIndex Value="0"/>
<Filename Value="umain.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="umain.lrs"/>
<TopLine Value="24"/>
<UnitName Value="umain"/>
<UsageCount Value="21"/>
</Unit1>
<Unit2>
<CursorPos X="15" Y="129"/>
<Filename Value="D:/LKomponenten/acs/Src/classes/acs_file.pas"/>
<TopLine Value="129"/>
<UnitName Value="acs_file"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<CursorPos X="3" Y="153"/>
<Filename Value="D:/LKomponenten/acs/Src/classes/acs_classes.pas"/>
<TopLine Value="134"/>
<UnitName Value="acs_classes"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<CursorPos X="15" Y="169"/>
<Filename Value="D:/LKomponenten/acs/Src/classes/acs_mixer.pas"/>
<TopLine Value="153"/>
<UnitName Value="acs_mixer"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<CursorPos X="3" Y="389"/>
<Filename Value="D:/LKomponenten/acs/Src/classes/windows/acs_mixer.inc"/>
<TopLine Value="372"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<CursorPos X="1" Y="2235"/>
<Filename Value="D:/lazarus/lcl/include/control.inc"/>
<TopLine Value="2219"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<CursorPos X="1" Y="645"/>
<Filename Value="D:/lazarus/lcl/EditBtn.pas"/>
<TopLine Value="629"/>
<UnitName Value="EditBtn"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<CursorPos X="1" Y="1379"/>
<Filename Value="D:/LKomponenten/acs/Src/fileformats/acs_wave.pas"/>
<TopLine Value="1363"/>
<UnitName Value="acs_wave"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<CursorPos X="27" Y="1335"/>
<Filename Value="D:/acs tmp/Src/Common/ACS_Wave.pas"/>
<TopLine Value="1326"/>
<UnitName Value="ACS_Wave"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<CursorPos X="1" Y="681"/>
<Filename Value="D:/LKomponenten/acs/Src/classes/acs_audio.pas"/>
<TopLine Value="665"/>
<UnitName Value="acs_audio"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<CursorPos X="28" Y="377"/>
<Filename Value="D:/LKomponenten/acs/Src/drivers/windows/ACS_Audio.inc"/>
<TopLine Value="361"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<CursorPos X="14" Y="125"/>
<Filename Value="D:/LKomponenten/acs/Src/drivers/ACS_StdAudio.pas"/>
<TopLine Value="109"/>
<UnitName Value="acs_stdaudio"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<CursorPos X="1" Y="391"/>
<Filename Value="D:/LKomponenten/acs/Src/drivers/ACS_DXAudio.pas"/>
<TopLine Value="375"/>
<UnitName Value="acs_dxaudio"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<CursorPos X="1" Y="2456"/>
<Filename Value="D:/fpc/packages/extra/winunits/mmsystem.pp"/>
<TopLine Value="2440"/>
<UnitName Value="mmsystem"/>
<UsageCount Value="10"/>
</Unit14>
<Unit15>
<CursorPos X="18" Y="205"/>
<EditorIndex Value="2"/>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/acs_mixer.pas"/>
<Loaded Value="True"/>
<TopLine Value="197"/>
<UnitName Value="acs_mixer"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<CursorPos X="18" Y="99"/>
<EditorIndex Value="1"/>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Loaded Value="True"/>
<TopLine Value="152"/>
<UsageCount Value="10"/>
</Unit16>
</Units>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -145,7 +23,7 @@
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<Display Use="True" Value=":1"/> <Display Value=":1"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
@ -156,65 +34,224 @@
<PackageName Value="laz_acs"/> <PackageName Value="laz_acs"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<JumpHistory Count="12" HistoryIndex="11"> <Units Count="22">
<Position1> <Unit0>
<Filename Value="linerecord.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="linerecord"/>
<EditorIndex Value="5"/>
<WindowIndex Value="1"/>
<TopLine Value="1"/>
<CursorPos X="15" Y="9"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="umain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="fMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="umain"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="1"/>
<TopLine Value="1"/>
<CursorPos X="32" Y="16"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="D:/LKomponenten/acs/Src/classes/acs_file.pas"/>
<UnitName Value="acs_file"/>
<TopLine Value="129"/>
<CursorPos X="15" Y="129"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="D:/LKomponenten/acs/Src/classes/acs_classes.pas"/>
<UnitName Value="acs_classes"/>
<TopLine Value="134"/>
<CursorPos X="3" Y="153"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="D:/LKomponenten/acs/Src/classes/acs_mixer.pas"/>
<UnitName Value="acs_mixer"/>
<TopLine Value="153"/>
<CursorPos X="15" Y="169"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="D:/LKomponenten/acs/Src/classes/windows/acs_mixer.inc"/>
<TopLine Value="372"/>
<CursorPos X="3" Y="389"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="D:/lazarus/lcl/include/control.inc"/>
<TopLine Value="2219"/>
<CursorPos X="1" Y="2235"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="D:/lazarus/lcl/EditBtn.pas"/>
<UnitName Value="EditBtn"/>
<TopLine Value="629"/>
<CursorPos X="1" Y="645"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="D:/LKomponenten/acs/Src/fileformats/acs_wave.pas"/>
<UnitName Value="acs_wave"/>
<TopLine Value="1363"/>
<CursorPos X="1" Y="1379"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="D:/acs tmp/Src/Common/ACS_Wave.pas"/>
<UnitName Value="ACS_Wave"/>
<TopLine Value="1326"/>
<CursorPos X="27" Y="1335"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<Filename Value="D:/LKomponenten/acs/Src/classes/acs_audio.pas"/>
<UnitName Value="acs_audio"/>
<TopLine Value="665"/>
<CursorPos X="1" Y="681"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="D:/LKomponenten/acs/Src/drivers/windows/ACS_Audio.inc"/>
<TopLine Value="361"/>
<CursorPos X="28" Y="377"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="D:/LKomponenten/acs/Src/drivers/ACS_StdAudio.pas"/>
<UnitName Value="acs_stdaudio"/>
<TopLine Value="109"/>
<CursorPos X="14" Y="125"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="D:/LKomponenten/acs/Src/drivers/ACS_DXAudio.pas"/>
<UnitName Value="acs_dxaudio"/>
<TopLine Value="375"/>
<CursorPos X="1" Y="391"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<Filename Value="D:/fpc/packages/extra/winunits/mmsystem.pp"/>
<UnitName Value="mmsystem"/>
<TopLine Value="2440"/>
<CursorPos X="1" Y="2456"/>
<UsageCount Value="10"/>
</Unit14>
<Unit15>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/acs_mixer.pas"/>
<UnitName Value="acs_mixer"/>
<WindowIndex Value="1"/>
<TopLine Value="197"/>
<CursorPos X="18" Y="205"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="163" Column="1" TopLine="136"/> <WindowIndex Value="1"/>
<TopLine Value="152"/>
<CursorPos X="18" Y="99"/>
<UsageCount Value="10"/>
</Unit16>
<Unit17>
<Filename Value="umain.lfm"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<WindowIndex Value="1"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<ExtraEditorCount Value="1"/>
<ExtraEditor1>
<WindowIndex Value="1"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
</ExtraEditor1>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit17>
<Unit18>
<Filename Value="../../Src/classes/acs_audio.pas"/>
<UnitName Value="acs_audio"/>
<EditorIndex Value="1"/>
<WindowIndex Value="1"/>
<TopLine Value="242"/>
<CursorPos X="3" Y="242"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit18>
<Unit19>
<Filename Value="../../Src/fileformats/acs_allformats.pas"/>
<UnitName Value="acs_allformats"/>
<EditorIndex Value="2"/>
<WindowIndex Value="1"/>
<TopLine Value="1"/>
<CursorPos X="8" Y="11"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit19>
<Unit20>
<Filename Value="../../Src/fileformats/acs_mpeg.pas"/>
<UnitName Value="acs_mpeg"/>
<EditorIndex Value="3"/>
<WindowIndex Value="1"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit20>
<Unit21>
<Filename Value="../../Src/drivers/acs_alsaaudio.pas"/>
<UnitName Value="acs_alsaaudio"/>
<EditorIndex Value="4"/>
<WindowIndex Value="1"/>
<TopLine Value="447"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit21>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="umain.pas"/>
<Caret Line="18" Column="21" TopLine="1"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> <Filename Value="../../Src/fileformats/acs_allformats.pas"/>
<Caret Line="164" Column="1" TopLine="137"/> <Caret Line="11" Column="8" TopLine="1"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> <Filename Value="linerecord.lpr"/>
<Caret Line="163" Column="1" TopLine="136"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position3> </Position3>
<Position4>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="164" Column="1" TopLine="137"/>
</Position4>
<Position5>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="163" Column="1" TopLine="136"/>
</Position5>
<Position6>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="164" Column="1" TopLine="137"/>
</Position6>
<Position7>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="163" Column="1" TopLine="136"/>
</Position7>
<Position8>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="164" Column="1" TopLine="137"/>
</Position8>
<Position9>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="163" Column="1" TopLine="136"/>
</Position9>
<Position10>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="166" Column="1" TopLine="139"/>
</Position10>
<Position11>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/acs_mixer.pas"/>
<Caret Line="250" Column="3" TopLine="200"/>
</Position11>
<Position12>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/acs_mixer.pas"/>
<Caret Line="249" Column="40" TopLine="201"/>
</Position12>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/> <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -227,19 +264,42 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="3"> <BreakPoints Count="5">
<Item1> <Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:/LKomponenten/acs/Demos/Ripper/umain.pas"/> <Source Value="D:/LKomponenten/acs/Demos/Ripper/umain.pas"/>
<Line Value="68"/> <Line Value="68"/>
</Item1> </Item1>
<Item2> <Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:/LKomponenten/acs/Src/fileformats/acs_wave.pas"/> <Source Value="D:/LKomponenten/acs/Src/fileformats/acs_wave.pas"/>
<Line Value="1379"/> <Line Value="1379"/>
</Item2> </Item2>
<Item3> <Item3>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:/LKomponenten/acs/Src/drivers/windows/ACS_Audio.inc"/> <Source Value="D:/LKomponenten/acs/Src/drivers/windows/ACS_Audio.inc"/>
<Line Value="341"/> <Line Value="341"/>
</Item3> </Item3>
<Item4>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../Src/fileformats/acs_mpeg.pas"/>
<Line Value="141"/>
</Item4>
<Item5>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../Src/drivers/acs_alsaaudio.pas"/>
<Line Value="475"/>
</Item5>
</BreakPoints> </BreakPoints>
<Watches Count="1"> <Watches Count="1">
<Item1> <Item1>
@ -247,4 +307,5 @@
</Item1> </Item1>
</Watches> </Watches>
</Debugging> </Debugging>
<EditorMacros Count="0"/>
</CONFIG> </CONFIG>

View File

@ -1,82 +1,82 @@
object Form1: TForm1 object fMain: TfMain
Left = 347
Height = 43
Top = 208
Width = 308
HorzScrollBar.Page = 307
VertScrollBar.Page = 42
ActiveControl = bRecord ActiveControl = bRecord
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Audio Record' Caption = 'Audio Record'
ClientHeight = 43 ClientHeight = 43
ClientWidth = 308 ClientWidth = 308
OnCreate = FormCreate OnCreate = FormCreate
PixelsPerInch = 90 LCLVersion = '1.3'
HorzScrollBar.Page = 307
VertScrollBar.Page = 42
Left = 347
Height = 43
Top = 208
Width = 308
object Label1: TLabel object Label1: TLabel
Caption = 'Source'
Color = clNone
ParentColor = False
Left = 60 Left = 60
Height = 13 Height = 14
Width = 41 Top = 0
Width = 39
Caption = 'Source'
ParentColor = False
end end
object bRecord: TBitBtn object bRecord: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Record'
NumGlyphs = 0
OnClick = bRecordClick
TabOrder = 0
Left = 184 Left = 184
Height = 26 Height = 26
Top = 12 Top = 12
Width = 60 Width = 60
BorderSpacing.InnerBorder = 2
Caption = 'Record'
OnClick = bRecordClick
TabOrder = 0
end end
object cbRecordSource: TComboBox object cbRecordSource: TComboBox
MaxLength = 0 Left = 60
Height = 27
Top = 12
Width = 116
ItemHeight = 0
OnChange = cbRecordSourceChange OnChange = cbRecordSourceChange
TabOrder = 1 TabOrder = 1
Left = 60
Height = 21
Top = 16
Width = 116
end end
object bStop: TBitBtn object bStop: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Stop'
NumGlyphs = 0
OnClick = bStopClick
TabOrder = 2
Left = 248 Left = 248
Height = 26 Height = 26
Top = 12 Top = 12
Width = 56 Width = 56
BorderSpacing.InnerBorder = 2
Caption = 'Stop'
OnClick = bStopClick
TabOrder = 2
end end
object bOpen: TBitBtn object bOpen: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Open'
NumGlyphs = 0
OnClick = bOpenClick
TabOrder = 3
Left = 4 Left = 4
Height = 26 Height = 26
Top = 12 Top = 12
Width = 51 Width = 51
BorderSpacing.InnerBorder = 2
Caption = 'Open'
OnClick = bOpenClick
TabOrder = 3
end end
object FileOut1: TACSFileOut object FileOut1: TACSFileOut
FileMode = foRewrite
Input = AudioIn1 Input = AudioIn1
left = 4 left = 4
top = 268 top = 268
end end
object AudioIn1: TACSAudioIn object AudioIn1: TACSAudioIn
Driver = 'Wavemapper' Driver = 'Alsa'
Device = 0
InBitsPerSample = 8 InBitsPerSample = 8
InChannels = 1 InChannels = 1
InSampleRate = 8000 InSampleRate = 8000
RecTime = 0
left = 4 left = 4
top = 236 top = 236
end end
object Mixer1: TACSMixer object Mixer1: TACSMixer
MixerName = 'Realtek ALC655 rev 0' DevNum = 0
left = 4 left = 4
top = 204 top = 204
end end

View File

@ -1,25 +1,25 @@
{ Dies ist eine automatisch erzeugte Lazarus-Ressourcendatei } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TfMain','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#7'bRecord'#11'BorderStyle'#7#12 'TPF0'#6'TfMain'#5'fMain'#4'Left'#3'['#1#6'Height'#2'+'#3'Top'#3#208#0#5'Widt'
+'bsToolWindow'#7'Caption'#6#12'Audio Record'#12'ClientHeight'#2'+'#11'Client' +'h'#3'4'#1#18'HorzScrollBar.Page'#3'3'#1#18'VertScrollBar.Page'#2'*'#13'Acti'
+'Width'#3'4'#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'Z'#18'HorzSc' +'veControl'#7#7'bRecord'#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6#12
+'rollBar.Page'#3'3'#1#18'VertScrollBar.Page'#2'*'#4'Left'#3'['#1#6'Height'#2 +'Audio Record'#12'ClientHeight'#2'+'#11'ClientWidth'#3'4'#1#8'OnCreate'#7#10
+'+'#3'Top'#3#208#0#5'Width'#3'4'#1#0#6'TLabel'#6'Label1'#7'Caption'#6#6'Sour' +'FormCreate'#10'LCLVersion'#6#3'1.3'#0#6'TLabel'#6'Label1'#4'Left'#2'<'#6'He'
+'ce'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'<'#6'Height'#2#13#5'Wi' +'ight'#2#14#3'Top'#2#0#5'Width'#2''''#7'Caption'#6#6'Source'#11'ParentColor'
+'dth'#2')'#0#0#7'TBitBtn'#7'bRecord'#25'BorderSpacing.InnerBorder'#2#2#7'Cap' +#8#0#0#7'TBitBtn'#7'bRecord'#4'Left'#3#184#0#6'Height'#2#26#3'Top'#2#12#5'Wi'
+'tion'#6#6'Record'#9'NumGlyphs'#2#0#7'OnClick'#7#12'bRecordClick'#8'TabOrder' +'dth'#2'<'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Record'#7'OnClic'
+#2#0#4'Left'#3#184#0#6'Height'#2#26#3'Top'#2#12#5'Width'#2'<'#0#0#9'TComboBo' +'k'#7#12'bRecordClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#14'cbRecordSource'#4
+'x'#14'cbRecordSource'#9'MaxLength'#2#0#8'OnChange'#7#20'cbRecordSourceChang' +'Left'#2'<'#6'Height'#2#27#3'Top'#2#12#5'Width'#2't'#10'ItemHeight'#2#0#8'On'
+'e'#8'TabOrder'#2#1#4'Left'#2'<'#6'Height'#2#21#3'Top'#2#16#5'Width'#2't'#0#0 +'Change'#7#20'cbRecordSourceChange'#8'TabOrder'#2#1#0#0#7'TBitBtn'#5'bStop'#4
+#7'TBitBtn'#5'bStop'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Stop'#9 +'Left'#3#248#0#6'Height'#2#26#3'Top'#2#12#5'Width'#2'8'#25'BorderSpacing.Inn'
+'NumGlyphs'#2#0#7'OnClick'#7#10'bStopClick'#8'TabOrder'#2#2#4'Left'#3#248#0#6 +'erBorder'#2#2#7'Caption'#6#4'Stop'#7'OnClick'#7#10'bStopClick'#8'TabOrder'#2
+'Height'#2#26#3'Top'#2#12#5'Width'#2'8'#0#0#7'TBitBtn'#5'bOpen'#25'BorderSpa' +#2#0#0#7'TBitBtn'#5'bOpen'#4'Left'#2#4#6'Height'#2#26#3'Top'#2#12#5'Width'#2
+'cing.InnerBorder'#2#2#7'Caption'#6#4'Open'#9'NumGlyphs'#2#0#7'OnClick'#7#10 +'3'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Open'#7'OnClick'#7#10'b'
+'bOpenClick'#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2#26#3'Top'#2#12#5'Width' +'OpenClick'#8'TabOrder'#2#3#0#0#11'TACSFileOut'#8'FileOut1'#8'FileMode'#7#9
+#2'3'#0#0#11'TACSFileOut'#8'FileOut1'#5'Input'#7#8'AudioIn1'#4'left'#2#4#3't' +'foRewrite'#5'Input'#7#8'AudioIn1'#4'left'#2#4#3'top'#3#12#1#0#0#11'TACSAudi'
+'op'#3#12#1#0#0#11'TACSAudioIn'#8'AudioIn1'#6'Driver'#6#10'Wavemapper'#15'In' +'oIn'#8'AudioIn1'#6'Driver'#6#4'Alsa'#6'Device'#2#0#15'InBitsPerSample'#2#8
+'BitsPerSample'#2#8#10'InChannels'#2#1#12'InSampleRate'#3'@'#31#4'left'#2#4#3 +#10'InChannels'#2#1#12'InSampleRate'#3'@'#31#7'RecTime'#2#0#4'left'#2#4#3'to'
+'top'#3#236#0#0#0#9'TACSMixer'#6'Mixer1'#9'MixerName'#6#20'Realtek ALC655 re' +'p'#3#236#0#0#0#9'TACSMixer'#6'Mixer1'#6'DevNum'#2#0#4'left'#2#4#3'top'#3#204
+'v 0'#4'left'#2#4#3'top'#3#204#0#0#0#0 +#0#0#0#0
]); ]);

View File

@ -10,9 +10,9 @@ uses
type type
{ TForm1 } { TfMain }
TForm1 = class(TForm) TfMain = class(TForm)
bOpen: TBitBtn; bOpen: TBitBtn;
Mixer1: TACSMixer; Mixer1: TACSMixer;
AudioIn1: TACSAudioIn; AudioIn1: TACSAudioIn;
@ -33,13 +33,13 @@ type
end; end;
var var
Form1: TForm1; fMain: TfMain;
implementation implementation
{ TForm1 } { TfMain }
procedure TForm1.FormCreate(Sender: TObject); procedure TfMain.FormCreate(Sender: TObject);
var var
i : Integer; i : Integer;
begin begin
@ -49,24 +49,24 @@ begin
cbRecordSource.Text := Mixer1.ChannelName[Mixer1.RecordSource]; cbRecordSource.Text := Mixer1.ChannelName[Mixer1.RecordSource];
end; end;
procedure TForm1.bOpenClick(Sender: TObject); procedure TfMain.bOpenClick(Sender: TObject);
begin begin
FileOut1.Open; FileOut1.Open;
if FileExists(FileOut1.FileName) then if FileExists(FileOut1.FileName) then
FileOut1.FileMode := foAppend; FileOut1.FileMode := foAppend;
end; end;
procedure TForm1.bRecordClick(Sender: TObject); procedure TfMain.bRecordClick(Sender: TObject);
begin begin
FileOut1.Run; FileOut1.Run;
end; end;
procedure TForm1.bStopClick(Sender: TObject); procedure TfMain.bStopClick(Sender: TObject);
begin begin
FileOut1.Stop; FileOut1.Stop;
end; end;
procedure TForm1.cbRecordSourceChange(Sender: TObject); procedure TfMain.cbRecordSourceChange(Sender: TObject);
var var
i : Integer; i : Integer;
begin begin

View File

@ -40,7 +40,8 @@
<Filename Value="player.lpr"/> <Filename Value="player.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="player"/> <UnitName Value="player"/>
<EditorIndex Value="7"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="7" Y="5"/> <CursorPos X="7" Y="5"/>
@ -57,7 +58,7 @@
<UnitName Value="uMain"/> <UnitName Value="uMain"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="5"/> <TopLine Value="1"/>
<CursorPos X="11" Y="20"/> <CursorPos X="11" Y="20"/>
<UsageCount Value="64"/> <UsageCount Value="64"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -144,12 +145,10 @@
<Unit13> <Unit13>
<Filename Value="..\..\Src\classes\acs_classes.pas"/> <Filename Value="..\..\Src\classes\acs_classes.pas"/>
<UnitName Value="acs_classes"/> <UnitName Value="acs_classes"/>
<EditorIndex Value="6"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="215"/> <TopLine Value="117"/>
<CursorPos X="31" Y="117"/> <CursorPos X="31" Y="117"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/> <DefaultSyntaxHighlighter Value="Delphi"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
@ -722,24 +721,19 @@
<Unit96> <Unit96>
<Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/> <Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/>
<UnitName Value="acs_alsaaudio"/> <UnitName Value="acs_alsaaudio"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="447"/> <TopLine Value="447"/>
<CursorPos X="1" Y="481"/> <CursorPos X="1" Y="481"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/> <DefaultSyntaxHighlighter Value="Delphi"/>
</Unit96> </Unit96>
<Unit97> <Unit97>
<Filename Value="..\..\Src\drivers\linux\alsa.pas"/> <Filename Value="..\..\Src\drivers\linux\alsa.pas"/>
<UnitName Value="alsa"/> <UnitName Value="alsa"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="887"/> <TopLine Value="912"/>
<CursorPos X="25" Y="904"/> <CursorPos X="1" Y="940"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/> <DefaultSyntaxHighlighter Value="Delphi"/>
</Unit97> </Unit97>
<Unit98> <Unit98>
@ -805,158 +799,31 @@
<Unit105> <Unit105>
<Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/> <Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/>
<UnitName Value="acs_stdaudio"/> <UnitName Value="acs_stdaudio"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="198"/> <TopLine Value="198"/>
<CursorPos X="1" Y="215"/> <CursorPos X="1" Y="215"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/> <DefaultSyntaxHighlighter Value="Delphi"/>
</Unit105> </Unit105>
<Unit106> <Unit106>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="232"/> <TopLine Value="232"/>
<CursorPos X="1" Y="265"/> <CursorPos X="1" Y="265"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/> <DefaultSyntaxHighlighter Value="Delphi"/>
</Unit106> </Unit106>
<Unit107> <Unit107>
<Filename Value="..\..\Src\classes\acs_procs.pas"/> <Filename Value="..\..\Src\classes\acs_procs.pas"/>
<UnitName Value="acs_procs"/> <UnitName Value="acs_procs"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="28"/> <TopLine Value="28"/>
<CursorPos X="12" Y="46"/> <CursorPos X="12" Y="46"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/> <DefaultSyntaxHighlighter Value="Delphi"/>
</Unit107> </Unit107>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="0" HistoryIndex="-1"/>
<Position1>
<Filename Value="umain.pas"/>
<Caret Line="20" Column="11" TopLine="5"/>
</Position1>
<Position2>
<Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/>
<Caret Line="475" Column="11" TopLine="447"/>
</Position2>
<Position3>
<Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/>
<Caret Line="222" Column="1" TopLine="198"/>
</Position3>
<Position4>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="242" Column="1" TopLine="224"/>
</Position4>
<Position5>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="243" Column="1" TopLine="224"/>
</Position5>
<Position6>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="244" Column="1" TopLine="224"/>
</Position6>
<Position7>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="245" Column="1" TopLine="224"/>
</Position7>
<Position8>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="246" Column="1" TopLine="224"/>
</Position8>
<Position9>
<Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/>
<Caret Line="475" Column="12" TopLine="447"/>
</Position9>
<Position10>
<Filename Value="..\..\Src\drivers\linux\alsa.pas"/>
<Caret Line="900" Column="27" TopLine="889"/>
</Position10>
<Position11>
<Filename Value="..\..\Src\drivers\linux\alsa.pas"/>
<Caret Line="904" Column="41" TopLine="890"/>
</Position11>
<Position12>
<Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/>
<Caret Line="222" Column="1" TopLine="198"/>
</Position12>
<Position13>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="242" Column="1" TopLine="232"/>
</Position13>
<Position14>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="243" Column="1" TopLine="232"/>
</Position14>
<Position15>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="244" Column="1" TopLine="232"/>
</Position15>
<Position16>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="245" Column="1" TopLine="232"/>
</Position16>
<Position17>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="246" Column="1" TopLine="232"/>
</Position17>
<Position18>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="249" Column="1" TopLine="232"/>
</Position18>
<Position19>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="250" Column="1" TopLine="232"/>
</Position19>
<Position20>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="251" Column="1" TopLine="232"/>
</Position20>
<Position21>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<Caret Line="265" Column="1" TopLine="232"/>
</Position21>
<Position22>
<Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/>
<Caret Line="223" Column="1" TopLine="198"/>
</Position22>
<Position23>
<Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/>
<Caret Line="224" Column="1" TopLine="198"/>
</Position23>
<Position24>
<Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/>
<Caret Line="475" Column="1" TopLine="447"/>
</Position24>
<Position25>
<Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/>
<Caret Line="465" Column="23" TopLine="447"/>
</Position25>
<Position26>
<Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/>
<Caret Line="475" Column="1" TopLine="447"/>
</Position26>
<Position27>
<Filename Value="..\..\Src\drivers\linux\alsa.pas"/>
<Caret Line="904" Column="41" TopLine="890"/>
</Position27>
<Position28>
<Filename Value="..\..\Src\drivers\linux\alsa.pas"/>
<Caret Line="901" Column="1" TopLine="890"/>
</Position28>
<Position29>
<Filename Value="..\..\Src\drivers\linux\alsa.pas"/>
<Caret Line="902" Column="1" TopLine="890"/>
</Position29>
<Position30>
<Filename Value="..\..\Src\drivers\linux\alsa.pas"/>
<Caret Line="937" Column="1" TopLine="880"/>
</Position30>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
@ -982,7 +849,7 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="2"> <BreakPoints Count="1">
<Item1> <Item1>
<Kind Value="bpkSource"/> <Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/> <WatchScope Value="wpsGlobal"/>
@ -990,13 +857,6 @@
<Source Value="..\..\Src\fileformats\ACS_FLAC.pas"/> <Source Value="..\..\Src\fileformats\ACS_FLAC.pas"/>
<Line Value="576"/> <Line Value="576"/>
</Item1> </Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\Src\drivers\linux\alsa.pas"/>
<Line Value="901"/>
</Item2>
</BreakPoints> </BreakPoints>
<Watches Count="2"> <Watches Count="2">
<Item1> <Item1>