LAME é uma biblioteca que permite aos programadores para codificar arquivos MP3. LAME é open source e você pode baixá -lo gratuitamente. O arquivo é útil " LameLib " ou " libmp3lame.dylib . " Visual Studio é um ambiente de desenvolvimento integrado Microsoft . Você pode usar o Visual Basic, C + + ou C # com este IDE. VB é uma linguagem de programação orientada a objetos, que é amplamente utilizado para a criação de aplicativos Windows, aplicativos de rede ou aplicações de serviços web. Com VB.NET , você também pode codificar arquivos de mp3 . A saída será de 32 bits codificado MP3 . Instruções
1
Clique em " Iniciar", selecione "Todos os Programas " e escolha " Visual Studio. " Clique em "New" e selecione " Project" para criar um novo projeto. Selecione " Visual Studio ", como a linguagem de programação e " Windows Application " como o tipo de aplicação. Digite um nome para o projeto. Especifique um local para os arquivos do projeto .
2
Clique duas vezes no Form1.vb. Forneça o caminho para LAME.EXE via código : Dim WithEvents _lameShell Como Novas LameShell_lameShell.InFile = Application.StartupPath & " \\ " input.mp3 _lameShell.OutFile = Application.StartupPath & _lameShell.Options " \\ output.mp3 " = " -b 32" _lameShell.Start ()
3
adicionar manipuladores de eventos para mostrar o progresso de codificação : Sub _lameShell_Progress privado ( ByRef progresso Como 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
o botão direito do mouse no projeto e selecione " New class" para criar uma nova classe " Lame.vb. " Criar um novo ProcessStartInfo variável : _startInfo privada as New ProcessStartInfo_startInfo.FileName = " lame . exe " _startInfo.UseShellExecute = False_startInfo.RedirectStandardOutput = True_startInfo.RedirectStandardError = True_startInfo.CreateNoWindow = True
5
Criar um Reader para manter a saída de LAME.EXE : Private Sub LameReader () Dim oneline Como String_lameProcess.Start () = oneline _lameProcess.StandardError.ReadLine () While Not oneline é NothingoneLine = _lameProcess.StandardError.ReadLine () End Sub WhileEnd
