main.xfm

delphi audio 处理控件

object Form1: TForm1
  Left = 244
  Top = 292
  Width = 323
  Height = 202
  HorzScrollBar.Range = 313
  VertScrollBar.Range = 194
  ActiveControl = Button2
  Caption = 'Recorder'
  Color = clBackground
  PixelsPerInch = 75
  TextHeight = 15
  TextWidth = 7
  object ProgressBar1: TProgressBar
    Left = 16
    Top = 176
    Width = 297
    Height = 18
    Smooth = True
    Step = 2
  end
  object ProgressBar2: TProgressBar
    Left = 296
    Top = 8
    Width = 15
    Height = 153
    FillColor = clRed
    Max = 50
    Orientation = pbVertical
  end
  object Button1: TButton
    Left = 8
    Top = 104
    Width = 65
    Height = 25
    Caption = 'Start...'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 80
    Top = 104
    Width = 65
    Height = 25
    Caption = 'Stop'
    TabOrder = 0
    OnClick = Button2Click
  end
  object Label1: TLabel
    Left = 168
    Top = 112
    Width = 74
    Height = 15
    Caption = 'Time elapsed'
  end
  object Label2: TLabel
    Left = 248
    Top = 112
    Width = 7
    Height = 15
    Caption = '0'
  end
  object Label3: TLabel
    Left = 8
    Top = 16
    Width = 53
    Height = 15
    Caption = 'Total time'
  end
  object Edit1: TEdit
    Left = 80
    Top = 16
    Width = 49
    Height = 23
    MaxLength = 3
    TabOrder = 5
    Text = '-1'
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 72
    Width = 73
    Height = 23
    Style = csDropDownList
    ItemHeight = 17
    Items.Strings = (
      '8000'
      '11025'
      '16000'
      '22050'
      '44100')
    ItemIndex = 3
    TabOrder = 6
    Text = '22050'
  end
  object Label4: TLabel
    Left = 8
    Top = 48
    Width = 70
    Height = 15
    Caption = 'Sample Rate'
  end
  object ComboBox2: TComboBox
    Left = 96
    Top = 72
    Width = 73
    Height = 23
    Style = csDropDownList
    ItemHeight = 17
    Items.Strings = (
      'Mono'
      'Stereo')
    ItemIndex = 1
    TabOrder = 8
    Text = 'Stereo'
  end
  object Label5: TLabel
    Left = 96
    Top = 48
    Width = 53
    Height = 15
    Caption = 'Channels'
  end
  object ComboBox3: TComboBox
    Left = 184
    Top = 72
    Width = 73
    Height = 23
    Style = csDropDownList
    ItemHeight = 17
    Items.Strings = (
      '8'
      '16')
    ItemIndex = 1
    TabOrder = 10
    Text = '16'
  end
  object Label6: TLabel
    Left = 184
    Top = 48
    Width = 87
    Height = 15
    Caption = 'Bits per Sample'
  end
  object AudioIn1: TAudioIn
    BaseChannel = 0
    InBitsPerSample = 16
    InChannels = 2
    InSampleRate = 22050
    RecTime = 0
    Left = 16
    Top = 144
  end
  object WaveOut1: TWaveOut
    Input = SoundIndicator1
    SuspendWhenIdle = False
    OnDone = WaveOut1Done
    OnProgress = WaveOut1Progress
    FileMode = foRewrite
    WavType = wtPCM
    BlockSize = 512
    Left = 80
    Top = 144
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'wav'
    Filter = 'Wave Files|*.wav|FLAC Files|*.flac'
    FilterIndex = 0
    Height = 0
    Title = 'Save As'
    Width = 0
    OnFilterChange = SaveDialog1FilterChange
    Left = 144
    Top = 144
  end
  object FLACOut1: TFLACOut
    Input = SoundIndicator1
    SuspendWhenIdle = False
    OnDone = WaveOut1Done
    OnProgress = WaveOut1Progress
    FileMode = foRewrite
    BestModelSearch = False
    BlockSize = 4608
    EnableMidSideStereo = True
    EnableLooseMidSideStereo = False
    MaxLPCOrder = 0
    MaxResidualPartitionOrder = 0
    MinResidualPartitionOrder = 0
    QLPCoeffPrecision = 0
    QLPCoeffPrecisionSearch = False
    Verify = False
    Left = 112
    Top = 144
  end
  object SoundIndicator1: TSoundIndicator
    Input = AudioIn1
    Left = 48
    Top = 144
  end
  object Timer1: TTimer
    Interval = 200
    OnTimer = Timer1Timer
    Left = 184
    Top = 144
  end
end