main.xfm

delphi audio 处理控件

object Form1: TForm1
  Left = 217
  Top = 237
  Width = 498
  Height = 290
  HorzScrollBar.Range = 489
  VertScrollBar.Range = 274
  ActiveControl = Button1
  Caption = 'Wav Converter'
  Color = clBackground
  PixelsPerInch = 75
  TextHeight = 15
  TextWidth = 7
  object ProgressBar1: TProgressBar
    Left = 112
    Top = 256
    Width = 377
    Height = 18
    Smooth = True
    Step = 1
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 64
    Width = 233
    Height = 169
    Caption = 'Input File Parameters'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 48
      Width = 56
      Height = 15
      Caption = 'Channels:'
    end
    object Label2: TLabel
      Left = 8
      Top = 80
      Width = 73
      Height = 15
      Caption = 'Sample Rate:'
    end
    object Label3: TLabel
      Left = 8
      Top = 24
      Width = 57
      Height = 15
      Caption = 'File Name'
    end
    object Label4: TLabel
      Left = 8
      Top = 104
      Width = 91
      Height = 15
      Caption = 'Bits Per Sample:'
    end
    object Label5: TLabel
      Left = 105
      Top = 24
      Width = 120
      Height = 22
      AutoSize = False
      BorderStyle = bsSunken3d
    end
    object Label6: TLabel
      Left = 104
      Top = 48
      Width = 49
      Height = 22
      AutoSize = False
      BorderStyle = bsSunken3d
    end
    object Label7: TLabel
      Left = 105
      Top = 72
      Width = 48
      Height = 22
      AutoSize = False
      BorderStyle = bsSunken3d
    end
    object Label8: TLabel
      Left = 105
      Top = 96
      Width = 48
      Height = 22
      AutoSize = False
      BorderStyle = bsSunken3d
    end
    object Label14: TLabel
      Left = 8
      Top = 128
      Width = 53
      Height = 15
      Caption = 'Encoding'
    end
    object Label15: TLabel
      Left = 105
      Top = 128
      Width = 1
      Height = 15
    end
  end
  object Button1: TButton
    Left = 8
    Top = 24
    Width = 81
    Height = 25
    Caption = 'Input File...'
    TabOrder = 1
    OnClick = Button1Click
  end
  object GroupBox2: TGroupBox
    Left = 256
    Top = 64
    Width = 233
    Height = 169
    Caption = 'Output File Parameters'
    TabOrder = 2
    object Label9: TLabel
      Left = 8
      Top = 24
      Width = 57
      Height = 15
      Caption = 'File Name'
    end
    object Label10: TLabel
      Left = 105
      Top = 24
      Width = 120
      Height = 22
      AutoSize = False
      BorderStyle = bsSunken3d
    end
    object Label11: TLabel
      Left = 8
      Top = 80
      Width = 73
      Height = 15
      Caption = 'Sample Rate:'
    end
    object Label12: TLabel
      Left = 8
      Top = 48
      Width = 56
      Height = 15
      Caption = 'Channels:'
    end
    object Label13: TLabel
      Left = 8
      Top = 104
      Width = 91
      Height = 15
      Caption = 'Bits Per Sample:'
    end
    object SpinEdit1: TSpinEdit
      Left = 104
      Top = 48
      Width = 33
      Height = 23
      Max = 2
      Min = 1
      TabOrder = 5
      Value = 1
    end
    object SpinEdit3: TSpinEdit
      Left = 104
      Top = 102
      Width = 41
      Height = 23
      Max = 16
      Min = 8
      Increment = 8
      TabOrder = 6
      Value = 8
    end
    object ComboBox1: TComboBox
      Left = 104
      Top = 136
      Width = 121
      Height = 23
      Style = csDropDownList
      ItemHeight = 17
      Items.Strings = (
        'RAW PCM'
        'DVI IMA ADPCM')
      ItemIndex = 0
      TabOrder = 7
      Text = 'RAW PCM'
    end
    object Label16: TLabel
      Left = 8
      Top = 144
      Width = 53
      Height = 15
      Caption = 'Encoding'
    end
    object Edit1: TEdit
      Left = 104
      Top = 80
      Width = 57
      Height = 17
      TabOrder = 9
      Text = '22050'
    end
  end
  object Button2: TButton
    Left = 256
    Top = 24
    Width = 89
    Height = 25
    Caption = 'Output File...'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 8
    Top = 248
    Width = 75
    Height = 25
    Caption = 'Convert!'
    TabOrder = 4
    OnClick = Button3Click
  end
  object RateConverter1: TRateConverter
    FilterWindow = fwBlackman
    KernelWidth = 30
    OutSampleRate = 22050
    Left = 304
    Top = 248
  end
  object SampleConverter1: TSampleConverter
    Left = 240
    Top = 248
  end
  object MSConverter1: TMSConverter
    Mode = msmMonoToBoth
    Left = 272
    Top = 248
  end
  object SampleConverter2: TSampleConverter
    Left = 336
    Top = 248
  end
  object WaveIn1: TWaveIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 208
    Top = 248
  end
  object WaveOut1: TWaveOut
    SuspendWhenIdle = False
    OnDone = WaveOut1Done
    OnProgress = WaveOut1Progress
    FileMode = foRewrite
    WavType = wtPCM
    BlockSize = 512
    Left = 368
    Top = 248
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'wav'
    Filter = '*.wav'
    FilterIndex = 0
    Height = 0
    Title = 'Open'
    Width = 0
    Left = 136
    Top = 248
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'wav'
    Filter = '*.wav'
    FilterIndex = 0
    Height = 0
    Title = 'Save As'
    Width = 0
    Left = 168
    Top = 248
  end
end