main.xfm

delphi audio 处理控件

object Form1: TForm1
  Left = 235
  Top = 184
  Width = 272
  Height = 135
  HorzScrollBar.Range = 265
  VertScrollBar.Range = 130
  ActiveControl = Button1
  Caption = 'MP3 Converter'
  Color = clBackground
  PixelsPerInch = 72
  TextHeight = 15
  TextWidth = 7
  object ProgressBar1: TProgressBar
    Left = 8
    Top = 112
    Width = 257
    Height = 18
    FillColor = clPurple
    Smooth = True
    Step = 2
  end
  object Button1: TButton
    Left = 8
    Top = 16
    Width = 81
    Height = 25
    Caption = 'Set Input...'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 96
    Top = 16
    Width = 81
    Height = 25
    Caption = 'Set Output...'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 152
    Top = 56
    Width = 49
    Height = 23
    TabOrder = 2
    Text = '0,4'
  end
  object Button3: TButton
    Left = 184
    Top = 16
    Width = 81
    Height = 25
    Caption = 'Convert'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Label1: TLabel
    Left = 8
    Top = 56
    Width = 132
    Height = 15
    Caption = 'Ogg Compression Ratio'
  end
  object Label2: TLabel
    Left = 8
    Top = 88
    Width = 33
    Height = 15
  end
  object WaveIn1: TWaveIn
    EndSample = -1
    Loop = False
    StartSample = 0
    Left = 112
    Top = 80
  end
  object VorbisOut1: TVorbisOut
    Input = WaveIn1
    SuspendWhenIdle = False
    OnDone = VorbisOut1Done
    OnProgress = VorbisOut1Progress
    FileMode = foRewrite
    Compression = 0.200000002980232200
    DesiredMaximumBitrate = brAutoSelect
    DesiredNominalBitrate = brAutoSelect
    MinimumBitrate = brAutoSelect
    Serial = 0
    Left = 144
    Top = 80
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'mp3'
    Filter = 'MP3 Files|*.mp3'
    FilterIndex = 0
    Height = 0
    Width = 0
    Left = 184
    Top = 80
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'wav'
    Filter = 'Wave Files|*.wav|Ogg Vorbis Files|*.ogg'
    FilterIndex = 0
    Height = 0
    Title = 'Save'
    Width = 0
    OnFilterChange = SaveDialog1FilterChange
    Left = 216
    Top = 80
  end
  object MP3ToWav1: TMP3ToWav
    OnDone = MP3ToWav1Done
    OnProgress = MP3ToWav1Progress
    Left = 80
    Top = 80
  end
end