Πώς να χρησιμοποιήσετε το LAME σε Visual Basic

LAME είναι μια βιβλιοθήκη που επιτρέπει στους προγραμματιστές να κωδικοποιήσει τα αρχεία MP3 . LAME είναι ανοικτού κώδικα και μπορείτε να το κατεβάσετε δωρεάν . Το αρχείο είναι χρήσιμο " LameLib " ή " libmp3lame.dylib . " Visual Studio είναι ένα Microsoft ολοκληρωμένο περιβάλλον ανάπτυξης . Μπορείτε να χρησιμοποιήσετε το Visual Basic , C + + ή C # με αυτό το IDE . VB είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού , το οποίο χρησιμοποιείται ευρέως για τη δημιουργία εφαρμογών των Windows , η εφαρμογή του δικτύου ή εφαρμογές web υπηρεσία . Με VB.NET , μπορείτε επίσης να κωδικοποιήσει τα αρχεία mp3 . Η έξοδος θα είναι 32 - bit MP3 κωδικοποιημένα . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί "Start ", επιλέξτε " Όλα τα προγράμματα " και επιλέξτε " Visual Studio . " Κάντε κλικ στο κουμπί " Νέο" και επιλέξτε " Project" για να δημιουργήσετε ένα νέο έργο . Επιλέξτε " Visual Studio" ως γλώσσα προγραμματισμού και «Εφαρμογή των Windows ", όπως τον τύπο εφαρμογής . Πληκτρολογήστε ένα όνομα για το έργο . Καθορίστε μια τοποθεσία για τα αρχεία του έργου . 2

Κάντε διπλό κλικ στο Form1.vb . Δώστε τη διαδρομή για lame.exe μέσω κώδικα : Dim WithEvents _lameShell As New LameShell_lameShell.InFile = Application.StartupPath & " \\ input.mp3 " _lameShell.OutFile = Application.StartupPath & " \\ output.mp3 " _lameShell.Options = " 32 -b " _lameShell.Start ( )
εικόνων 3

Προσθήκη χειρισμού συμβάντων για να δείξει την πρόοδο που κωδικοποιεί : Private Sub _lameShell_Progress ( ByRef πρόοδος Όπως LameProgress ) _Handles _lameShell.ProgressIf pBar.Maximum Progress.FrameMax ThenpBar.Value = 0pBar.Maximum = Progress.FrameMaxElsepBar.Value = Progress.FrameCurrentEnd IflblFeedback.Text = Progress.PercentDone & " % " & " ETA : " & Progress.ETAEnd υπο
Η

4 κάντε δεξί κλικ στο πρόγραμμα και επιλέξτε " νέα τάξη " για να δημιουργήσετε μια νέα κατηγορία " Lame.vb. " Δημιουργήστε μια νέα μεταβλητή ProcessStartInfo : Ιδιωτικός _startInfo Όπως New ProcessStartInfo_startInfo.FileName = " κουτσός . exe " _startInfo.UseShellExecute = False_startInfo.RedirectStandardOutput = True_startInfo.RedirectStandardError = True_startInfo.CreateNoWindow = True
5

Δημιουργία Reader για να κρατήσει την έξοδο της lame.exe : Private Sub LameReader ( ) Dim oneline Όπως String_lameProcess.Start ( ) oneline = _lameProcess.StandardError.ReadLine ( ) Ενώ δεν oneline Είναι NothingoneLine = _lameProcess.StandardError.ReadLine ( ) End Sub WhileEnd
Η
εικόνων