LAME er et bibliotek , der gør det muligt for programmører at kode MP3-filer. LAME er open source , og du kan downloade det gratis. Den nyttige fil er " LameLib " eller " libmp3lame.dylib . " Visual Studio er en Microsoft integreret udviklingsmiljø. Du kan bruge Visual Basic , C + + eller C # med denne IDE. VB er et objekt -orienteret programmeringssprog, som er meget udbredt til at skabe Windows-programmer , netværk ansøgning eller web service-applikationer . Med VB.NET , kan du også indkode mp3-filer. Outputtet vil være 32-bit kodet MP3. Instruktioner
1
Klik på "Start ", vælg " Alle programmer " og vælg " Visual Studio ". Klik på "Ny " og vælg " Project" for at oprette et nyt projekt. Vælg "Visual Studio" som programmeringssprog og "Windows Application " som ansøgningen type. Indtast et navn til projektet . Angiv en placering til projektfiler.
2
Dobbeltklik på form1.vb . Giv stien til lame.exe via kode : Dim WithEvents _lameShell Da New LameShell_lameShell.InFile = Application.StartupPath & " \\ input.mp3 " _lameShell.OutFile = Application.StartupPath & " \\ output.mp3 " _lameShell.Options = " -b 32" _lameShell.Start ()
3
Tilføj hændelseshandlere at vise kodning fremskridt : Private Sub _lameShell_Progress ( ByRef fremskridt LameProgress ) _Handles _lameShell.ProgressIf pBar.Maximum < ; > Progress.FrameMax ThenpBar.Value = 0pBar.Maximum = Progress.FrameMaxElsepBar.Value = Progress.FrameCurrentEnd IflblFeedback.Text = Progress.PercentDone & "% " & " ETA: " & Progress.ETAEnd sub
4
Højreklik på projektet og vælg " ny klasse " for at oprette en ny klasse " Lame.vb. " Opret en ny variabel ProcessStartInfo : Privat _startInfo Som New ProcessStartInfo_startInfo.FileName = " halt . exe " _startInfo.UseShellExecute = False_startInfo.RedirectStandardOutput = True_startInfo.RedirectStandardError = True_startInfo.CreateNoWindow = Sand
5
Opret en Reader til at holde produktionen af lame.exe : Private Sub LameReader ( ) Dim Oneline Som String_lameProcess.Start () Oneline = _lameProcess.StandardError.ReadLine () While Not Oneline Er NothingoneLine = _lameProcess.StandardError.ReadLine ( ) End WhileEnd Sub
