delphi audio 处理控件
源代码在线查看： main.xfm
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
