home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 639
- Top = 243
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'mp3 Coder'
- ClientHeight = 317
- ClientWidth = 360
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poDefaultPosOnly
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 360
- Height = 317
- ActivePage = codepage
- Align = alClient
- TabOrder = 0
- object codepage: TTabSheet
- Caption = 'Encode/Decode'
- object DriveComboBox1: TDriveComboBox
- Left = 4
- Top = 4
- Width = 153
- Height = 19
- DirList = DirectoryListBox1
- TabOrder = 0
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 4
- Top = 24
- Width = 153
- Height = 129
- FileList = FileListBox1
- ItemHeight = 16
- TabOrder = 1
- end
- object FileListBox1: TFileListBox
- Left = 160
- Top = 4
- Width = 189
- Height = 149
- FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
- ItemHeight = 16
- Mask = '*.wav'
- TabOrder = 2
- end
- object rED: TRadioGroup
- Left = 4
- Top = 160
- Width = 197
- Height = 33
- Caption = 'Encode or Decode?'
- Columns = 2
- ItemIndex = 0
- Items.Strings = (
- 'Encode'
- 'Decode')
- TabOrder = 3
- OnClick = rEDClick
- end
- object rBitrate: TRadioGroup
- Left = 4
- Top = 196
- Width = 345
- Height = 45
- Caption = 'Bitrate (kbits/s)'
- Columns = 5
- ItemIndex = 8
- Items.Strings = (
- '8'
- '16'
- '24'
- '32'
- '56'
- '64'
- '96'
- '112'
- '128'
- '256')
- TabOrder = 4
- OnClick = rBitrateClick
- end
- object cbDM: TCheckBox
- Left = 4
- Top = 248
- Width = 145
- Height = 17
- Caption = 'DownMix (stereo to mono)'
- TabOrder = 5
- OnClick = cbDMClick
- end
- object cbCRC: TCheckBox
- Left = 4
- Top = 267
- Width = 76
- Height = 17
- Caption = 'CRC Check'
- State = cbChecked
- TabOrder = 6
- OnClick = cbCRCClick
- end
- object cbHQ: TCheckBox
- Left = 165
- Top = 248
- Width = 128
- Height = 17
- Caption = 'High Quality Encoding'
- State = cbChecked
- TabOrder = 7
- OnClick = cbHQClick
- end
- object cbAD: TCheckBox
- Left = 165
- Top = 267
- Width = 104
- Height = 17
- Caption = 'Auto Delete .wav'
- TabOrder = 8
- OnClick = cbADClick
- end
- object btn: TButton
- Left = 204
- Top = 165
- Width = 145
- Height = 29
- Caption = '>>>>>> Do It! <<<<<<'
- TabOrder = 9
- OnClick = btnClick
- end
- end
- object HelpPage: TTabSheet
- Caption = 'Help'
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 352
- Height = 289
- Align = alClient
- BorderStyle = bsNone
- Lines.Strings = (
- 'mp3 Coder'
-
- 'freeware written in Delphi by william '#39'pete'#39' moss -- kaeru@flash' +
- '.net'
- ''
- 'mp3Coder will encode and decode .mp3 files from .wav files using'
- 'registered versions of l3enc and l3dec.'
- ''
-
- 'For encoding, the input .wav files must have a resolution of 16b' +
- 'its.'
- ''
- 'the various bitrates are compared below:'
-
- 'sound quality bandwidth mode bitrate ' +
- ' reduction ratio'
-
- '"telephone sound" 2.5 kHz mono 8 kbps ' +
- ' 96:1'
-
- '"better than shortwave" 4.5 kHz mono 16 kbps ' +
- ' 48:1'
-
- '"better than AM radio" 7.5 kHz mono 32 kbps ' +
- ' 24:1'
-
- '"similar to FM radio" 11 kHz stereo 56..64 kbps ' +
- ' 26..24:1'
-
- '"near-CD" 15 kHz stereo 96 kbps ' +
- ' 16:1'
-
- '"CD" > 15 kHz stereo 112..12' +
- '8 kbps 14..12:1'
- ''
- 'DownMix -- converts stereo .wav files to mono'
- 'CRC check -- checks CRC of resulting .mp3 file'
-
- 'High Quality -- highest quality .mp3 output with encoding speed ' +
- 'reduction'
- 'AutoDelete -- Delete original .wav after converting')
- ReadOnly = True
- TabOrder = 0
- end
- end
- object setupPage: TTabSheet
- Caption = 'Settings'
- object Label1: TLabel
- Left = 4
- Top = 20
- Width = 345
- Height = 21
- Alignment = taCenter
- AutoSize = False
- Caption = 'Specify the directory that contains l3enc and l3dec:'
- end
- object Label2: TLabel
- Left = 4
- Top = 232
- Width = 345
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = 'Specify a drive with enough space for temporary files:'
- end
- object DriveComboBox2: TDriveComboBox
- Left = 4
- Top = 44
- Width = 345
- Height = 19
- DirList = DirectoryListBox2
- TabOrder = 0
- end
- object DirectoryListBox2: TDirectoryListBox
- Left = 4
- Top = 68
- Width = 345
- Height = 145
- ItemHeight = 16
- TabOrder = 1
- end
- object tempDrive: TDriveComboBox
- Left = 4
- Top = 252
- Width = 345
- Height = 19
- TabOrder = 2
- OnChange = tempDriveChange
- end
- end
- end
- object SendKeys1: TSendKeys
- Left = 286
- Top = 68
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 2000
- OnTimer = Timer1Timer
- Left = 216
- Top = 80
- end
- end
-