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>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<Version Value="9"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
<Title Value="Linerecord Example"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<LazDoc Paths=""/>
<Units Count="17">
<Unit0>
<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>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -145,7 +23,7 @@
<local>
<FormatVersion Value="1"/>
<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>
</RunParams>
<RequiredPackages Count="2">
@ -156,65 +34,224 @@
<PackageName Value="laz_acs"/>
</Item2>
</RequiredPackages>
<JumpHistory Count="12" HistoryIndex="11">
<Position1>
<Units Count="22">
<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"/>
<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>
<Position2>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="164" Column="1" TopLine="137"/>
<Filename Value="../../Src/fileformats/acs_allformats.pas"/>
<Caret Line="11" Column="8" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/>
<Caret Line="163" Column="1" TopLine="136"/>
<Filename Value="linerecord.lpr"/>
<Caret Line="1" Column="1" TopLine="1"/>
</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>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="11"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -227,19 +264,42 @@
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="3">
<BreakPoints Count="5">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:/LKomponenten/acs/Demos/Ripper/umain.pas"/>
<Line Value="68"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:/LKomponenten/acs/Src/fileformats/acs_wave.pas"/>
<Line Value="1379"/>
</Item2>
<Item3>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:/LKomponenten/acs/Src/drivers/windows/ACS_Audio.inc"/>
<Line Value="341"/>
</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>
<Watches Count="1">
<Item1>
@ -247,4 +307,5 @@
</Item1>
</Watches>
</Debugging>
<EditorMacros Count="0"/>
</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
BorderStyle = bsToolWindow
Caption = 'Audio Record'
ClientHeight = 43
ClientWidth = 308
OnCreate = FormCreate
PixelsPerInch = 90
HorzScrollBar.Page = 307
VertScrollBar.Page = 42
Left = 347
Height = 43
Top = 208
Width = 308
LCLVersion = '1.3'
object Label1: TLabel
Caption = 'Source'
Color = clNone
ParentColor = False
Left = 60
Height = 13
Width = 41
Height = 14
Top = 0
Width = 39
Caption = 'Source'
ParentColor = False
end
object bRecord: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Record'
NumGlyphs = 0
OnClick = bRecordClick
TabOrder = 0
Left = 184
Height = 26
Top = 12
Width = 60
BorderSpacing.InnerBorder = 2
Caption = 'Record'
OnClick = bRecordClick
TabOrder = 0
end
object cbRecordSource: TComboBox
MaxLength = 0
Left = 60
Height = 27
Top = 12
Width = 116
ItemHeight = 0
OnChange = cbRecordSourceChange
TabOrder = 1
Left = 60
Height = 21
Top = 16
Width = 116
end
object bStop: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Stop'
NumGlyphs = 0
OnClick = bStopClick
TabOrder = 2
Left = 248
Height = 26
Top = 12
Width = 56
BorderSpacing.InnerBorder = 2
Caption = 'Stop'
OnClick = bStopClick
TabOrder = 2
end
object bOpen: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Open'
NumGlyphs = 0
OnClick = bOpenClick
TabOrder = 3
Left = 4
Height = 26
Top = 12
Width = 51
BorderSpacing.InnerBorder = 2
Caption = 'Open'
OnClick = bOpenClick
TabOrder = 3
end
object FileOut1: TACSFileOut
FileMode = foRewrite
Input = AudioIn1
left = 4
top = 268
end
object AudioIn1: TACSAudioIn
Driver = 'Wavemapper'
Driver = 'Alsa'
Device = 0
InBitsPerSample = 8
InChannels = 1
InSampleRate = 8000
RecTime = 0
left = 4
top = 236
end
object Mixer1: TACSMixer
MixerName = 'Realtek ALC655 rev 0'
DevNum = 0
left = 4
top = 204
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',[
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#7'bRecord'#11'BorderStyle'#7#12
+'bsToolWindow'#7'Caption'#6#12'Audio Record'#12'ClientHeight'#2'+'#11'Client'
+'Width'#3'4'#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'Z'#18'HorzSc'
+'rollBar.Page'#3'3'#1#18'VertScrollBar.Page'#2'*'#4'Left'#3'['#1#6'Height'#2
+'+'#3'Top'#3#208#0#5'Width'#3'4'#1#0#6'TLabel'#6'Label1'#7'Caption'#6#6'Sour'
+'ce'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'<'#6'Height'#2#13#5'Wi'
+'dth'#2')'#0#0#7'TBitBtn'#7'bRecord'#25'BorderSpacing.InnerBorder'#2#2#7'Cap'
+'tion'#6#6'Record'#9'NumGlyphs'#2#0#7'OnClick'#7#12'bRecordClick'#8'TabOrder'
+#2#0#4'Left'#3#184#0#6'Height'#2#26#3'Top'#2#12#5'Width'#2'<'#0#0#9'TComboBo'
+'x'#14'cbRecordSource'#9'MaxLength'#2#0#8'OnChange'#7#20'cbRecordSourceChang'
+'e'#8'TabOrder'#2#1#4'Left'#2'<'#6'Height'#2#21#3'Top'#2#16#5'Width'#2't'#0#0
+#7'TBitBtn'#5'bStop'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Stop'#9
+'NumGlyphs'#2#0#7'OnClick'#7#10'bStopClick'#8'TabOrder'#2#2#4'Left'#3#248#0#6
+'Height'#2#26#3'Top'#2#12#5'Width'#2'8'#0#0#7'TBitBtn'#5'bOpen'#25'BorderSpa'
+'cing.InnerBorder'#2#2#7'Caption'#6#4'Open'#9'NumGlyphs'#2#0#7'OnClick'#7#10
+'bOpenClick'#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2#26#3'Top'#2#12#5'Width'
+#2'3'#0#0#11'TACSFileOut'#8'FileOut1'#5'Input'#7#8'AudioIn1'#4'left'#2#4#3't'
+'op'#3#12#1#0#0#11'TACSAudioIn'#8'AudioIn1'#6'Driver'#6#10'Wavemapper'#15'In'
+'BitsPerSample'#2#8#10'InChannels'#2#1#12'InSampleRate'#3'@'#31#4'left'#2#4#3
+'top'#3#236#0#0#0#9'TACSMixer'#6'Mixer1'#9'MixerName'#6#20'Realtek ALC655 re'
+'v 0'#4'left'#2#4#3'top'#3#204#0#0#0#0
LazarusResources.Add('TfMain','FORMDATA',[
'TPF0'#6'TfMain'#5'fMain'#4'Left'#3'['#1#6'Height'#2'+'#3'Top'#3#208#0#5'Widt'
+'h'#3'4'#1#18'HorzScrollBar.Page'#3'3'#1#18'VertScrollBar.Page'#2'*'#13'Acti'
+'veControl'#7#7'bRecord'#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6#12
+'Audio Record'#12'ClientHeight'#2'+'#11'ClientWidth'#3'4'#1#8'OnCreate'#7#10
+'FormCreate'#10'LCLVersion'#6#3'1.3'#0#6'TLabel'#6'Label1'#4'Left'#2'<'#6'He'
+'ight'#2#14#3'Top'#2#0#5'Width'#2''''#7'Caption'#6#6'Source'#11'ParentColor'
+#8#0#0#7'TBitBtn'#7'bRecord'#4'Left'#3#184#0#6'Height'#2#26#3'Top'#2#12#5'Wi'
+'dth'#2'<'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Record'#7'OnClic'
+'k'#7#12'bRecordClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#14'cbRecordSource'#4
+'Left'#2'<'#6'Height'#2#27#3'Top'#2#12#5'Width'#2't'#10'ItemHeight'#2#0#8'On'
+'Change'#7#20'cbRecordSourceChange'#8'TabOrder'#2#1#0#0#7'TBitBtn'#5'bStop'#4
+'Left'#3#248#0#6'Height'#2#26#3'Top'#2#12#5'Width'#2'8'#25'BorderSpacing.Inn'
+'erBorder'#2#2#7'Caption'#6#4'Stop'#7'OnClick'#7#10'bStopClick'#8'TabOrder'#2
+#2#0#0#7'TBitBtn'#5'bOpen'#4'Left'#2#4#6'Height'#2#26#3'Top'#2#12#5'Width'#2
+'3'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Open'#7'OnClick'#7#10'b'
+'OpenClick'#8'TabOrder'#2#3#0#0#11'TACSFileOut'#8'FileOut1'#8'FileMode'#7#9
+'foRewrite'#5'Input'#7#8'AudioIn1'#4'left'#2#4#3'top'#3#12#1#0#0#11'TACSAudi'
+'oIn'#8'AudioIn1'#6'Driver'#6#4'Alsa'#6'Device'#2#0#15'InBitsPerSample'#2#8
+#10'InChannels'#2#1#12'InSampleRate'#3'@'#31#7'RecTime'#2#0#4'left'#2#4#3'to'
+'p'#3#236#0#0#0#9'TACSMixer'#6'Mixer1'#6'DevNum'#2#0#4'left'#2#4#3'top'#3#204
+#0#0#0#0
]);

View File

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

View File

@ -40,7 +40,8 @@
<Filename Value="player.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="player"/>
<EditorIndex Value="7"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="7" Y="5"/>
@ -57,7 +58,7 @@
<UnitName Value="uMain"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="5"/>
<TopLine Value="1"/>
<CursorPos X="11" Y="20"/>
<UsageCount Value="64"/>
<Loaded Value="True"/>
@ -144,12 +145,10 @@
<Unit13>
<Filename Value="..\..\Src\classes\acs_classes.pas"/>
<UnitName Value="acs_classes"/>
<EditorIndex Value="6"/>
<WindowIndex Value="0"/>
<TopLine Value="215"/>
<TopLine Value="117"/>
<CursorPos X="31" Y="117"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit13>
<Unit14>
@ -722,24 +721,19 @@
<Unit96>
<Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/>
<UnitName Value="acs_alsaaudio"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="447"/>
<CursorPos X="1" Y="481"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit96>
<Unit97>
<Filename Value="..\..\Src\drivers\linux\alsa.pas"/>
<UnitName Value="alsa"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="887"/>
<CursorPos X="25" Y="904"/>
<TopLine Value="912"/>
<CursorPos X="1" Y="940"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit97>
<Unit98>
@ -805,158 +799,31 @@
<Unit105>
<Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/>
<UnitName Value="acs_stdaudio"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="198"/>
<CursorPos X="1" Y="215"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit105>
<Unit106>
<Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="232"/>
<CursorPos X="1" Y="265"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit106>
<Unit107>
<Filename Value="..\..\Src\classes\acs_procs.pas"/>
<UnitName Value="acs_procs"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="28"/>
<CursorPos X="12" Y="46"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit107>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<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>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
@ -982,7 +849,7 @@
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="2">
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
@ -990,13 +857,6 @@
<Source Value="..\..\Src\fileformats\ACS_FLAC.pas"/>
<Line Value="576"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\Src\drivers\linux\alsa.pas"/>
<Line Value="901"/>
</Item2>
</BreakPoints>
<Watches Count="2">
<Item1>