Стартовый пул
This commit is contained in:
302
acs/Demos/fileconverter/fileconverter.lpi
Normal file
302
acs/Demos/fileconverter/fileconverter.lpi
Normal file
@@ -0,0 +1,302 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="5"/>
|
||||
<General>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
</General>
|
||||
<LazDoc Paths=""/>
|
||||
<Units Count="12">
|
||||
<Unit0>
|
||||
<CursorPos X="1" Y="14"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<Filename Value="fileconverter.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="1"/>
|
||||
<UnitName Value="fileconverter"/>
|
||||
<UsageCount Value="22"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<CursorPos X="20" Y="71"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<Filename Value="umain.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<Loaded Value="True"/>
|
||||
<ResourceFilename Value="umain.lrs"/>
|
||||
<TopLine Value="54"/>
|
||||
<UnitName Value="uMain"/>
|
||||
<UsageCount Value="22"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<CursorPos X="1" Y="337"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_file.pas"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="321"/>
|
||||
<UnitName Value="acs_file"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<CursorPos X="2" Y="724"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_classes.pas"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="712"/>
|
||||
<UnitName Value="acs_classes"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<CursorPos X="1" Y="2235"/>
|
||||
<Filename Value="D:\lazarus\lcl\include\control.inc"/>
|
||||
<TopLine Value="2219"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<CursorPos X="1" Y="814"/>
|
||||
<Filename Value="D:\lazarus\lcl\EditBtn.pas"/>
|
||||
<TopLine Value="798"/>
|
||||
<UnitName Value="EditBtn"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<CursorPos X="18" Y="82"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="66"/>
|
||||
<UnitName Value="acs_vorbis"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<CursorPos X="22" Y="317"/>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_dsfiles.pas"/>
|
||||
<TopLine Value="313"/>
|
||||
<UnitName Value="acs_dsfiles"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<CursorPos X="8" Y="12"/>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\ACS_Allformats.pas"/>
|
||||
<TopLine Value="1"/>
|
||||
<UnitName Value="acs_allformats"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<CursorPos X="1" Y="227"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_lame.pas"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="195"/>
|
||||
<UnitName Value="acs_lame"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<CursorPos X="1" Y="1038"/>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\general\lame.pas"/>
|
||||
<TopLine Value="1022"/>
|
||||
<UnitName Value="lame"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<CursorPos X="3" Y="96"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\general\vorbiscodec.pas"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="80"/>
|
||||
<UnitName Value="vorbiscodec"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit11>
|
||||
</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"/>
|
||||
<MinVersion Major="2" Minor="4" Valid="True"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="348" Column="1" TopLine="332"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="346" Column="28" TopLine="328"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="66" Column="1" TopLine="50"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="335" Column="1" TopLine="319"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="351" Column="17" TopLine="335"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="66" Column="1" TopLine="50"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="335" Column="1" TopLine="319"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="336" Column="1" TopLine="320"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="337" Column="1" TopLine="321"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="344" Column="1" TopLine="328"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="345" Column="1" TopLine="329"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="346" Column="1" TopLine="330"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="347" Column="1" TopLine="331"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="66" Column="1" TopLine="50"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="335" Column="1" TopLine="319"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="336" Column="1" TopLine="320"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="337" Column="1" TopLine="321"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="344" Column="1" TopLine="328"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="345" Column="1" TopLine="329"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="346" Column="1" TopLine="330"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="347" Column="1" TopLine="331"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="348" Column="1" TopLine="332"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="349" Column="1" TopLine="333"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="351" Column="1" TopLine="335"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="353" Column="1" TopLine="337"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_file.pas"/>
|
||||
<Caret Line="334" Column="15" TopLine="321"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="353" Column="45" TopLine="347"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Caret Line="82" Column="18" TopLine="66"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_classes.pas"/>
|
||||
<Caret Line="724" Column="2" TopLine="712"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="umain.pas"/>
|
||||
<Caret Line="66" Column="1" TopLine="50"/>
|
||||
</Position30>
|
||||
</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>
|
||||
<BreakPoints Count="3">
|
||||
<Item1>
|
||||
<Source Value="D:\LKomponenten\acs\Demos\Ripper\umain.pas"/>
|
||||
<Line Value="68"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Source Value="D:\LKomponenten\acs\Src\fileformats\acs_lame.pas"/>
|
||||
<Line Value="297"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Source Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
|
||||
<Line Value="335"/>
|
||||
</Item3>
|
||||
</BreakPoints>
|
||||
<Watches Count="1">
|
||||
<Item1>
|
||||
<Expression Value="newfilename"/>
|
||||
</Item1>
|
||||
</Watches>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
165
acs/Demos/fileconverter/umain.lfm
Normal file
165
acs/Demos/fileconverter/umain.lfm
Normal file
@@ -0,0 +1,165 @@
|
||||
object Form1: TForm1
|
||||
ActiveControl = BitBtn1
|
||||
BorderStyle = bsToolWindow
|
||||
Caption = 'Fileconverter'
|
||||
ClientHeight = 62
|
||||
ClientWidth = 401
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
HorzScrollBar.Page = 400
|
||||
VertScrollBar.Page = 61
|
||||
Left = 440
|
||||
Height = 62
|
||||
Top = 309
|
||||
Width = 401
|
||||
object Label1: TLabel
|
||||
Caption = 'Output Dir'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 96
|
||||
Height = 14
|
||||
Top = 16
|
||||
Width = 51
|
||||
end
|
||||
object pbProgress: TProgressBar
|
||||
Max = 100
|
||||
Left = 8
|
||||
Height = 16
|
||||
Top = 40
|
||||
Width = 384
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Open'
|
||||
Glyph.Data = {
|
||||
910900002F2A2058504D202A2F0D0A7374617469632063686172202A2062746E
|
||||
5F6F70656E66696C655F78706D5B5D203D207B0D0A2231382031382039372032
|
||||
222C0D0A2220200963204E6F6E65222C0D0A222E200963202330303030303022
|
||||
2C0D0A222B2009632023344533333142222C0D0A224020096320234535413536
|
||||
36222C0D0A22232009632023464544333941222C0D0A22242009632023464543
|
||||
353835222C0D0A22252009632023464443353837222C0D0A2226200963202346
|
||||
4543323832222C0D0A222A2009632023463841433632222C0D0A223D20096320
|
||||
23464543383841222C0D0A222D2009632023353335303444222C0D0A223B2009
|
||||
632023353535323446222C0D0A223E2009632023354335413537222C0D0A222C
|
||||
2009632023353435313445222C0D0A22272009632023353635333530222C0D0A
|
||||
22292009632023433438363445222C0D0A22212009632023353234463443222C
|
||||
0D0A227E2009632023463546354635222C0D0A227B2009632023454345434543
|
||||
222C0D0A225D2009632023453445344534222C0D0A225E200963202344434443
|
||||
4443222C0D0A222F2009632023443444344434222C0D0A222820096320234342
|
||||
43424342222C0D0A225F2009632023433443344334222C0D0A223A2009632023
|
||||
424342434243222C0D0A223C2009632023423542354235222C0D0A225B200963
|
||||
2023423342334233222C0D0A227D2009632023333033303330222C0D0A227C20
|
||||
09632023344133313139222C0D0A22312009632023444244424442222C0D0A22
|
||||
322009632023444644464445222C0D0A22332009632023453845384537222C0D
|
||||
0A22342009632023453645364534222C0D0A2235200963202344324432443122
|
||||
2C0D0A22362009632023433743374336222C0D0A223720096320234241424142
|
||||
39222C0D0A22382009632023414441444143222C0D0A22392009632023413041
|
||||
303946222C0D0A22302009632023393439343933222C0D0A2261200963202334
|
||||
3934393438222C0D0A22622009632023423737443434222C0D0A226320096320
|
||||
23353335313445222C0D0A22642009632023444144414441222C0D0A22652009
|
||||
632023444244424441222C0D0A22662009632023453145314530222C0D0A2267
|
||||
2009632023444444444443222C0D0A22682009632023443644364435222C0D0A
|
||||
22692009632023434243424341222C0D0A226A2009632023433143314330222C
|
||||
0D0A226B2009632023423642364235222C0D0A226C2009632023413941394138
|
||||
222C0D0A226D2009632023363836383637222C0D0A226E200963202332323232
|
||||
3231222C0D0A226F2009632023343933303138222C0D0A227020096320234344
|
||||
43444344222C0D0A22712009632023434143414339222C0D0A22722009632023
|
||||
443544354434222C0D0A22732009632023443244324430222C0D0A2274200963
|
||||
2023434343434342222C0D0A22752009632023433243324331222C0D0A227620
|
||||
09632023423942394238222C0D0A22772009632023414641464145222C0D0A22
|
||||
782009632023413241324131222C0D0A22792009632023393539353934222C0D
|
||||
0A227A2009632023434543454345222C0D0A2241200963202342454245424322
|
||||
2C0D0A22422009632023433443344332222C0D0A224320096320234336433643
|
||||
35222C0D0A22442009632023433343334332222C0D0A22452009632023424642
|
||||
464245222C0D0A22462009632023414541454144222C0D0A2247200963202341
|
||||
3541354134222C0D0A22482009632023394539453944222C0D0A224920096320
|
||||
23364636463645222C0D0A224A2009632023313231323132222C0D0A224B2009
|
||||
632023424442444244222C0D0A224C2009632023413641364135222C0D0A224D
|
||||
2009632023414141414138222C0D0A224E2009632023414441444142222C0D0A
|
||||
224F2009632023414541454143222C0D0A22502009632023414241424141222C
|
||||
0D0A22512009632023413741374136222C0D0A22522009632023413141314130
|
||||
222C0D0A22532009632023394139413939222C0D0A2254200963202339343934
|
||||
3932222C0D0A22552009632023384438443842222C0D0A225620096320233233
|
||||
32333233222C0D0A22572009632023344134413441222C0D0A22582009632023
|
||||
344134413439222C0D0A22592009632023344334433442222C0D0A225A200963
|
||||
2023344334433443222C0D0A22602009632023344234423441222C0D0A22202E
|
||||
09632023343634363436222C0D0A222E2E09632023343334333433222C0D0A22
|
||||
2B2E09632023343134313430222C0D0A22402E09632023333433343333222C0D
|
||||
0A22232E09632023314631463145222C0D0A222020202020202020202020202E
|
||||
202E202E202E2020202020202020202020202020202020222C0D0A2220202020
|
||||
2020202020202E202E2020202E202E202E202E2020202E202020202020202020
|
||||
222C0D0A2220202020202020202E20202020202020202020202E202E202E202E
|
||||
202020202020202020222C0D0A22202020202020202020202020202020202020
|
||||
202020202E202E202E202020202020202020222C0D0A22202020202020202020
|
||||
20202020202020202020202E202E202E202E202020202020202020222C0D0A22
|
||||
20202B202B202B202B2020202020202020202020202020202020202020202020
|
||||
20202020222C0D0A222B2040202320242040202B202B202B202B202B202B202B
|
||||
20202020202020202020202020222C0D0A222B202320252026202A202A202A20
|
||||
2A202A202A202A202A202E2020202020202020202020222C0D0A222B203D2026
|
||||
202B202D202D203B203E202C202C20272027202C202E202E202E202020202022
|
||||
2C0D0A222B202620292021207E207E207B205D205E202F2028205F203A203C20
|
||||
5B207D2020202020222C0D0A222B2026207C2031203220332034203220352036
|
||||
2037203820392030206120202020202020222C0D0A222B206220632064206520
|
||||
66206720682069206A206B206C2039206D206E20202020202020222C0D0A222B
|
||||
206F207020712072207220732074207520762077207820792061202020202020
|
||||
202020222C0D0A222B2027207A20412042204320442045206B20462047204820
|
||||
49204A202020202020202020222C0D0A222B204B204C204D204E204F20502051
|
||||
205220532054205520612020202020202020202020222C0D0A22562057205820
|
||||
59205A20592060206120202E2E2E2B2E402E232E20202020202020202020222C
|
||||
0D0A222020202020202020202020202020202020202020202020202020202020
|
||||
20202020202020222C0D0A222020202020202020202020202020202020202020
|
||||
20202020202020202020202020202020227D3B0D0A
|
||||
}
|
||||
NumGlyphs = 0
|
||||
OnClick = BitBtn1Click
|
||||
TabOrder = 0
|
||||
Left = 8
|
||||
Height = 24
|
||||
Top = 11
|
||||
Width = 72
|
||||
end
|
||||
object DirectoryEdit: TDirectoryEdit
|
||||
ButtonWidth = 23
|
||||
NumGlyphs = 1
|
||||
ParentColor = False
|
||||
TabOrder = 1
|
||||
TabOrder = 1
|
||||
Left = 152
|
||||
Height = 23
|
||||
Top = 11
|
||||
Width = 112
|
||||
end
|
||||
object btStart: TBitBtn
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Start'
|
||||
NumGlyphs = 0
|
||||
OnClick = BitBtn2Click
|
||||
TabOrder = 2
|
||||
Left = 352
|
||||
Height = 22
|
||||
Top = 11
|
||||
Width = 43
|
||||
end
|
||||
object cbOutput: TComboBox
|
||||
MaxLength = 0
|
||||
Style = csDropDownList
|
||||
TabOrder = 3
|
||||
Left = 295
|
||||
Height = 21
|
||||
Top = 11
|
||||
Width = 49
|
||||
end
|
||||
object FileIn: TACSFileIn
|
||||
EndSample = -1
|
||||
EndSample = -1
|
||||
left = 32
|
||||
top = 8
|
||||
end
|
||||
object FileOut: TACSFileOut
|
||||
Input = FileIn
|
||||
OnDone = FileOutDone
|
||||
OnProgress = FileOutProgress
|
||||
left = 32
|
||||
top = 368
|
||||
end
|
||||
end
|
||||
95
acs/Demos/fileconverter/umain.pas
Normal file
95
acs/Demos/fileconverter/umain.pas
Normal file
@@ -0,0 +1,95 @@
|
||||
unit uMain;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls, Buttons, EditBtn, ACS_File, StdCtrls
|
||||
,ACS_AllFormats,ACS_Classes;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
BitBtn1: TBitBtn;
|
||||
btStart: TBitBtn;
|
||||
cbOutput: TComboBox;
|
||||
DirectoryEdit: TDirectoryEdit;
|
||||
FileIn: TACSFileIn;
|
||||
FileOut: TACSFileOut;
|
||||
Label1: TLabel;
|
||||
pbProgress: TProgressBar;
|
||||
procedure BitBtn1Click(Sender: TObject);
|
||||
procedure BitBtn2Click(Sender: TObject);
|
||||
procedure FileOutDone(Sender: TComponent);
|
||||
procedure FileOutProgress(Sender: TComponent);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.BitBtn1Click(Sender: TObject);
|
||||
begin
|
||||
FileIn.Open;
|
||||
DirectoryEdit.Text := ExtractFileDir(FileIn.FileName);
|
||||
end;
|
||||
|
||||
procedure TForm1.BitBtn2Click(Sender: TObject);
|
||||
var
|
||||
newfilename : string;
|
||||
begin
|
||||
newfilename := ExtractFileName(FileIn.FileName);
|
||||
if newfilename = '' then
|
||||
begin
|
||||
ShowMessage('You must open an file first !');
|
||||
exit;
|
||||
end;
|
||||
newfilename := copy(newfilename,0,length(newfilename)-length(ExtractFileExt(newfilename)));
|
||||
if DirectoryEdit.Directory = '' then
|
||||
begin
|
||||
ShowMessage('You must select an directory first !');
|
||||
exit;
|
||||
end;
|
||||
FileOut.FileName := DirectoryEdit.Directory+DirectorySeparator+newfilename+'.'+cbOutput.Text;
|
||||
btStart.Enabled := False;
|
||||
FileOut.Run;
|
||||
end;
|
||||
|
||||
procedure TForm1.FileOutDone(Sender: TComponent);
|
||||
begin
|
||||
btStart.Enabled := True;
|
||||
pbProgress.Position := 0;
|
||||
end;
|
||||
|
||||
procedure TForm1.FileOutProgress(Sender: TComponent);
|
||||
begin
|
||||
pbProgress.Position := round(FileOut.Progress);
|
||||
Update;
|
||||
Application.Processmessages;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
for i := 0 to Fileformats.Count-1 do
|
||||
if TACSFileFormat(Fileformats[i]).FileClass.InheritsFrom(TACSCustomFileOut) then
|
||||
cbOutput.Items.Add(TACSFileFormat(Fileformats[i]).Extension);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I umain.lrs}
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user