Differenze tra le versioni di "Convertire i formati audio mediante il Componente gb.media"

Da Gambas-it.org - Wikipedia.
Riga 4: Riga 4:
  
 
===Conversione audio dal formato WAV al formato MP3===
 
===Conversione audio dal formato WAV al formato MP3===
−
Private pl As MediaPipeline  <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
 
  Private Const QUALITY As String = "quality"
 
  Private Const QUALITY As String = "quality"
 
  Private Const BITRATE As String = "bitrate"
 
  Private Const BITRATE As String = "bitrate"
Riga 13: Riga 12:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, wprs, cnv, lam, snk As MediaControl
 
   Dim src, wprs, cnv, lam, snk As MediaControl
 
   
 
   
Riga 53: Riga 53:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
Riga 68: Riga 65:
  
 
===Conversione audio dal formato WAV al formato OGG===
 
===Conversione audio dal formato WAV al formato OGG===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 76: Riga 71:
 
    
 
    
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, wprs, cnv, vor, mux, snk As MediaControl
 
   Dim src, wprs, cnv, vor, mux, snk As MediaControl
 
   
 
   
Riga 113: Riga 109:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 128: Riga 121:
  
 
===Conversione audio dal formato WAV al formato AAC===
 
===Conversione audio dal formato WAV al formato AAC===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 136: Riga 127:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, wav, cnv, aac, snk As MediaControl
 
   Dim src, wav, cnv, aac, snk As MediaControl
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
Riga 175: Riga 167:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 190: Riga 179:
  
 
===Conversione audio dal formato MP3 al formato OGG===
 
===Conversione audio dal formato MP3 al formato OGG===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 198: Riga 185:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, map, mad, vor, mux, snk As MediaControl
 
   Dim src, map, mad, vor, mux, snk As MediaControl
 
   
 
   
Riga 235: Riga 223:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 250: Riga 235:
  
 
===Conversione audio dal formato MP3 al formato WAV===
 
===Conversione audio dal formato MP3 al formato WAV===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 258: Riga 241:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, map, mad, wav, snk As MediaControl
 
   Dim src, map, mad, wav, snk As MediaControl
 
   
 
   
Riga 293: Riga 277:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 308: Riga 289:
  
 
===Conversione audio dal formato MP3 al formato AAC===
 
===Conversione audio dal formato MP3 al formato AAC===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 316: Riga 295:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, map, mad, aac, snk As MediaControl
 
   Dim src, map, mad, aac, snk As MediaControl
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
Riga 354: Riga 334:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 370: Riga 347:
 
===Conversione audio dal formato MP3 al formato RAW===
 
===Conversione audio dal formato MP3 al formato RAW===
 
Con il seguente codice si otterranno da un file MP3 i dati audio grezzi nel formato: frequenza di campionamento = 44100, risoluzione = 16 bit, canali = 2.
 
Con il seguente codice si otterranno da un file MP3 i dati audio grezzi nel formato: frequenza di campionamento = 44100, risoluzione = 16 bit, canali = 2.
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 378: Riga 353:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, par, dcd, snk As MediaControl
 
   Dim src, par, dcd, snk As MediaControl
−
   Dim fil As MediaFilter
+
   Dim flt As MediaFilter
 
   
 
   
 
   fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>"
 
   fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>"
Riga 390: Riga 366:
 
   par = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
 
   par = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
 
   dcd = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>")
 
   dcd = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>")
−
   fil = New MediaFilter(pl, "<FONT Color=#B22222>audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16</font>")
+
   flt = New MediaFilter(pl, "<FONT Color=#B22222>audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16</font>")
 
   snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 
   snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 
   snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".raw"
 
   snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".raw"
Riga 396: Riga 372:
 
   src.LinkTo(par)
 
   src.LinkTo(par)
 
   par.LinkTo(dcd)
 
   par.LinkTo(dcd)
−
   dcd.LinkTo(fil)
+
   dcd.LinkTo(flt)
−
   fil.LinkTo(snk)
+
   flt.LinkTo(snk)
 
   
 
   
 
   pl.Play()
 
   pl.Play()
Riga 414: Riga 390:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 429: Riga 402:
  
 
===Conversione audio dal formato OGG-Vorbis al formato MP3===
 
===Conversione audio dal formato OGG-Vorbis al formato MP3===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private Const QUALITY As String = "quality"
 
  Private Const QUALITY As String = "quality"
 
  Private Const BITRATE As String = "bitrate"
 
  Private Const BITRATE As String = "bitrate"
Riga 439: Riga 410:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, ogg, vor, cnv, lam, snk As MediaControl
 
   Dim src, ogg, vor, cnv, lam, snk As MediaControl
 
   
 
   
Riga 477: Riga 449:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 492: Riga 461:
  
 
===Conversione audio dal formato OGG-Vorbis al formato AAC===
 
===Conversione audio dal formato OGG-Vorbis al formato AAC===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 500: Riga 467:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, ogg, vor, con, aac, snk As MediaControl
 
   Dim src, ogg, vor, con, aac, snk As MediaControl
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
Riga 537: Riga 505:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 553: Riga 518:
 
===Conversione audio dal formato RAW al formato WAV===
 
===Conversione audio dal formato RAW al formato WAV===
 
Il seguente codice prevede che i dati del file audio [https://it.wikipedia.org/wiki/Formato_Audio_RAW RAW] abbiano le seguenti caratteristiche: frequenza di campionamento = 44100; numero di canali = 2; modalità ''interleaved'' e [https://gstreamer.freedesktop.org/documentation/audio/audio-format.html?gi-language=c#GstAudioFormat formato-pcm] = S16LE.
 
Il seguente codice prevede che i dati del file audio [https://it.wikipedia.org/wiki/Formato_Audio_RAW RAW] abbiano le seguenti caratteristiche: frequenza di campionamento = 44100; numero di canali = 2; modalità ''interleaved'' e [https://gstreamer.freedesktop.org/documentation/audio/audio-format.html?gi-language=c#GstAudioFormat formato-pcm] = S16LE.
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
 
  Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
 
  Private bo As Boolean
 
  Private bo As Boolean
Riga 562: Riga 525:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, raw, wav, snk As MediaControl
 
   Dim src, raw, wav, snk As MediaControl
 
   
 
   
Riga 596: Riga 560:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 611: Riga 572:
  
 
===Conversione audio dal formato RAW al formato MP3===
 
===Conversione audio dal formato RAW al formato MP3===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
 
  Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
 
  Private Const QUALITY As String = "quality"
 
  Private Const QUALITY As String = "quality"
Riga 622: Riga 581:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, raw, lam, snk As MediaControl
 
   Dim src, raw, lam, snk As MediaControl
 
   
 
   
Riga 662: Riga 622:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 677: Riga 634:
  
 
===Conversione audio dal formato RAW al formato OGG-Vorbis===
 
===Conversione audio dal formato RAW al formato OGG-Vorbis===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
 
  Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
 
  Private bo As Boolean
 
  Private bo As Boolean
Riga 686: Riga 641:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, raw, cnv, vor, mux, snk As MediaControl
 
   Dim src, raw, cnv, vor, mux, snk As MediaControl
 
   
 
   
Riga 727: Riga 683:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 742: Riga 695:
  
 
===Conversione audio dal formato RAW al formato AAC===
 
===Conversione audio dal formato RAW al formato AAC===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
 
  Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
 
  Private bo As Boolean
 
  Private bo As Boolean
Riga 751: Riga 702:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, raw, aac, snk As MediaControl
 
   Dim src, raw, aac, snk As MediaControl
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
Riga 788: Riga 740:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 803: Riga 752:
  
 
===Conversione audio dal formato FLAC al formato WAV===
 
===Conversione audio dal formato FLAC al formato WAV===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 811: Riga 758:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, flp, fld, wav, snk As MediaControl
 
   Dim src, flp, fld, wav, snk As MediaControl
 
   
 
   
Riga 845: Riga 793:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 860: Riga 805:
  
 
===Conversione audio dal formato FLAC al formato MP3===
 
===Conversione audio dal formato FLAC al formato MP3===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private Const QUALITY As String = "quality"
 
  Private Const QUALITY As String = "quality"
 
  Private Const BITRATE As String = "bitrate"
 
  Private Const BITRATE As String = "bitrate"
Riga 870: Riga 813:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, flp, fld, lam, snk As MediaControl
 
   Dim src, flp, fld, lam, snk As MediaControl
 
   
 
   
Riga 907: Riga 851:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 922: Riga 863:
  
 
===Conversione audio dal formato FLAC al formato OGG-Vorbis===
 
===Conversione audio dal formato FLAC al formato OGG-Vorbis===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 930: Riga 869:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, flp, fld, cnv, vor, mux, snk As MediaControl
 
   Dim src, flp, fld, cnv, vor, mux, snk As MediaControl
 
   
 
   
Riga 968: Riga 908:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 983: Riga 920:
  
 
===Conversione audio dal formato AAC al formato WAV===
 
===Conversione audio dal formato AAC al formato WAV===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 991: Riga 926:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, aac, wav, snk As MediaControl
 
   Dim src, aac, wav, snk As MediaControl
 
   
 
   
Riga 1 023: Riga 959:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 1 038: Riga 971:
  
 
===Conversione audio dal formato AAC al formato MP3===
 
===Conversione audio dal formato AAC al formato MP3===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private Const QUALITY As String = "quality"
 
  Private Const QUALITY As String = "quality"
 
  Private Const BITRATE As String = "bitrate"
 
  Private Const BITRATE As String = "bitrate"
Riga 1 048: Riga 979:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, aac, lam, snk As MediaControl
 
   Dim src, aac, lam, snk As MediaControl
 
   
 
   
Riga 1 083: Riga 1 015:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 1 098: Riga 1 027:
  
 
===Conversione audio dal formato AAC al formato OGG-Vorbis===
 
===Conversione audio dal formato AAC al formato OGG-Vorbis===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 1 106: Riga 1 033:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, aac, cnv, vor, mux, snk As MediaControl
 
   Dim src, aac, cnv, vor, mux, snk As MediaControl
 
   
 
   
Riga 1 142: Riga 1 070:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 1 157: Riga 1 082:
  
 
===Conversione audio dal formato AAC al formato RAW===
 
===Conversione audio dal formato AAC al formato RAW===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 1 165: Riga 1 088:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, aac, snk As MediaControl
 
   Dim src, aac, snk As MediaControl
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
Riga 1 198: Riga 1 122:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 1 213: Riga 1 134:
  
 
===Conversione audio dal formato AIFF al formato WAV===
 
===Conversione audio dal formato AIFF al formato WAV===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 1 221: Riga 1 140:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, aif, cnv, wav, snk As MediaControl
 
   Dim src, aif, cnv, wav, snk As MediaControl
 
   
 
   
Riga 1 255: Riga 1 175:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 1 270: Riga 1 187:
  
 
===Conversione audio dal formato AIFF al formato MP3===
 
===Conversione audio dal formato AIFF al formato MP3===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private Const QUALITY As String = "quality"
 
  Private Const QUALITY As String = "quality"
 
  Private Const BITRATE As String = "bitrate"
 
  Private Const BITRATE As String = "bitrate"
Riga 1 280: Riga 1 195:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, aif, cnv, lam, snk As MediaControl
 
   Dim src, aif, cnv, lam, snk As MediaControl
 
   
 
   
Riga 1 317: Riga 1 233:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 1 332: Riga 1 245:
  
 
===Conversione audio dal formato AIFF al formato OGG-Vorbis===
 
===Conversione audio dal formato AIFF al formato OGG-Vorbis===
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 1 340: Riga 1 251:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, aif, cnv, vor, mux, snk As MediaControl
 
   Dim src, aif, cnv, vor, mux, snk As MediaControl
 
   
 
   
Riga 1 376: Riga 1 288:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 1 394: Riga 1 303:
 
Usando il plugin "decodebin" è possibile convertire qualsiasi formato audio in un altro desiderato.
 
Usando il plugin "decodebin" è possibile convertire qualsiasi formato audio in un altro desiderato.
 
<BR>Mostriamo un esempio, nel quale sarà convertito un file audio "OGG" in un file audio "WAV", avente il seguente formato: frequenza di campionamento = 44100, risoluzione = 16 bit, canali = 2.
 
<BR>Mostriamo un esempio, nel quale sarà convertito un file audio "OGG" in un file audio "WAV", avente il seguente formato: frequenza di campionamento = 44100, risoluzione = 16 bit, canali = 2.
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 1 402: Riga 1 309:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, dcb, con, flt, wav, snk As MediaControl
 
   Dim src, dcb, con, flt, wav, snk As MediaControl
 
   
 
   
Riga 1 436: Riga 1 344:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
Riga 1 451: Riga 1 356:
  
 
Mostriamo un esempio pratico, nel quale si convertirà un file MP3 in un file WAV avente frequenza di campionamento uguale a 22050 hertz e risoluzione a 8 bit:
 
Mostriamo un esempio pratico, nel quale si convertirà un file MP3 in un file WAV avente frequenza di campionamento uguale a 22050 hertz e risoluzione a 8 bit:
−
<FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font>
 
−
Private pl As MediaPipeline
 
 
  Private bo As Boolean
 
  Private bo As Boolean
 
   
 
   
Riga 1 459: Riga 1 362:
 
   
 
   
 
   Dim fileaudio As String
 
   Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 
   Dim src, dcb, con, res, flt, wav, snk As MediaControl
 
   Dim src, dcb, con, res, flt, wav, snk As MediaControl
 
   
 
   
Riga 1 496: Riga 1 400:
 
   
 
   
 
   Print "\n\e[0mConversione terminata !"
 
   Print "\n\e[0mConversione terminata !"
−
 
−
<FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font>
 
−
  Quit
 
 
   
 
   
 
  End
 
  End
 
   
 
   
 
   
 
   
−
  Public Sub PLine_End()
+
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
 
   bo = True
 
   bo = True
 
   
 
   
 
  End
 
  End

Versione delle 17:34, 17 gen 2024

Utilizzando i plugin di GStreamer con le Classi MediaControl e MediaPipeline del Componente gb.media, è possibile effettuare diverse conversioni di file audio da un formato ad un altro.

Mostriamo di seguito qualche esempio pratico.

Conversione audio dal formato WAV al formato MP3

Private Const QUALITY As String = "quality"
Private Const BITRATE As String = "bitrate"
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, wprs, cnv, lam, snk As MediaControl

 fileaudio = "/percorso/del/file.wav"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio

 wprs = New MediaControl(pl, "wavparse")
 cnv = New MediaControl(pl, "audioconvert")
 lam = New MediaControl(pl, "lamemp3enc")
 lam["target"] = BITRATE    ' Imposta il Bitrate.
 lam["cbr"] = True          ' Imposta il Bitrate "Costante".
 lam["bitrate"] = 192       ' Imposta il valore del Bitrate "Costante".
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3"
 
' Collega fra loro all'interno della pipeline gli oggetti MediaControl impostati:
 src.LinkTo(wprs)
 wprs.LinkTo(cnv)
 cnv.LinkTo(lam)
 lam.LinkTo(snk)

 pl.Play()
 
 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file wav: "; Time(0, 0, 0, pl.Duration * 1000)

 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato WAV al formato OGG

Private bo As Boolean


Public Sub Main()
 
 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, wprs, cnv, vor, mux, snk As MediaControl

 fileaudio = "/percorso/del/file.wav"
 
 pl = New MediaPipeline As "PLine"
  
 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 
 wprs = New MediaControl(pl, "wavparse")
 cnv = New MediaControl(pl, "audioconvert")
 vor = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg"
 
 src.LinkTo(wprs)
 wprs.LinkTo(cnv)
 cnv.LinkTo(vor)
 vor.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file wav: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato WAV al formato AAC

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, wav, cnv, aac, snk As MediaControl
 Dim flt As MediaFilter

 fileaudio = "/percorso/del/file.wav"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio

 wav = New MediaControl(pl, "wavparse")
 cnv = New MediaControl(pl, "audioconvert")
 aac = New MediaControl(pl, "faac")   ' oppure anche "voaacenc"
 flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".aac"
 
 src.LinkTo(wav)
 wav.LinkTo(cnv)
 cnv.LinkTo(aac)
 aac.LinkTo(flt)
 flt.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file wav: "; Time(0, 0, 0, pl.Duration * 1000)

 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato MP3 al formato OGG

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, map, mad, vor, mux, snk As MediaControl

 fileaudio = "/percorso/del/file.mp3"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio

 map = New MediaControl(pl, "mpegaudioparse")
 mad = New MediaControl(pl, "mpg123audiodec")
 vor = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg"

 src.LinkTo(map)
 map.LinkTo(mad)
 mad.LinkTo(vor)
 vor.LinkTo(mux)
 mux.LinkTo(snk)
 
 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file mp3: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato MP3 al formato WAV

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, map, mad, wav, snk As MediaControl

 fileaudio = "/percorso/del/file.mp3"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio

 map = New MediaControl(pl, "mpegaudioparse")
 mad = New MediaControl(pl, "mpg123audiodec")
 wav = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"

 src.LinkTo(map)
 map.LinkTo(mad)
 mad.LinkTo(wav)
 wav.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file mp3: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato MP3 al formato AAC

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, map, mad, aac, snk As MediaControl
 Dim flt As MediaFilter

 fileaudio = "/percorso/del/file.mp3"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 map = New MediaControl(pl, "mpegaudioparse")
 mad = New MediaControl(pl, "mpg123audiodec")
 aac = New MediaControl(pl, "faac")   ' oppure anche "voaacenc"
 flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".aac"
 
 src.LinkTo(map)
 map.LinkTo(mad)
 mad.LinkTo(aac)
 aac.LinkTo(flt)
 flt.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file wav: "; Time(0, 0, 0, pl.Duration * 1000)

 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato MP3 al formato RAW

Con il seguente codice si otterranno da un file MP3 i dati audio grezzi nel formato: frequenza di campionamento = 44100, risoluzione = 16 bit, canali = 2. 

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, par, dcd, snk As MediaControl
 Dim flt As MediaFilter

 fileaudio = "/percorso/del/file.mp3"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio

 par = New MediaControl(pl, "mpegaudioparse")
 dcd = New MediaControl(pl, "mpg123audiodec")
 flt = New MediaFilter(pl, "audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".raw"

 src.LinkTo(par)
 par.LinkTo(dcd)
 dcd.LinkTo(flt)
 flt.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file mp3: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True
  
End


Conversione audio dal formato OGG-Vorbis al formato MP3

Private Const QUALITY As String = "quality"
Private Const BITRATE As String = "bitrate"
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, ogg, vor, cnv, lam, snk As MediaControl

 fileaudio = "/percorso/del/file.ogg"
 
 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio

 ogg = New MediaControl(pl, "oggdemux")
 vor = New MediaControl(pl, "vorbisdec")
 cnv = New MediaControl(pl, "audioconvert")
 lam = New MediaControl(pl, "lamemp3enc")
 lam["target"] = BITRATE    ' Imposta il Bitrate.
 lam["cbr"] = True          ' Imposta il Bitrate "Costante".
 lam["bitrate"] = 192       ' Imposta il valore del Bitrate "Costante".
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3"

 src.LinkTo(ogg)
 ogg.LinkLaterTo(vor)
 vor.LinkTo(cnv)
 cnv.LinkTo(lam)
 lam.LinkTo(snk)

 pl.Play()

 Print "Durata del file ogg: "; Time(0, 0, 0, pl.Duration * 1000)

 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato OGG-Vorbis al formato AAC

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, ogg, vor, con, aac, snk As MediaControl
 Dim flt As MediaFilter

 fileaudio = "/percorso/del/file.ogg"
 
 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 ogg = New MediaControl(pl, "oggdemux")
 vor = New MediaControl(pl, "vorbisdec")
 con = New MediaControl(pl, "audioconvert")
 aac = New MediaControl(pl, "faac")   ' oppure anche "voaacenc"
 flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".acc"

 src.LinkTo(ogg)
 ogg.LinkLaterTo(vor)
 vor.LinkTo(con)
 con.LinkTo(aac)
 aac.LinkTo(flt)
 flt.LinkTo(snk)

 pl.Play()

 Print "Durata del file ogg: "; Time(0, 0, 0, pl.Duration * 1000)

 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato RAW al formato WAV

Il seguente codice prevede che i dati del file audio RAW abbiano le seguenti caratteristiche: frequenza di campionamento = 44100; numero di canali = 2; modalità interleaved e formato-pcm = S16LE. 

Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, raw, wav, snk As MediaControl

 fileaudio = "/percorso/del/file/raw"
 
 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 
 raw = New MediaControl(pl, "rawaudioparse")
 raw["interleaved"] = True
 raw["num-channels"] = 2
 raw["pcm-format"] = GST_AUDIO_FORMAT_S16LE
 raw["sample-rate"] = 44100
 wav = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"

 src.LinkTo(raw)
 raw.LinkTo(wav)
 wav.LinkTo(snk)

 pl.Play()

 Print "Durata del file raw: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato RAW al formato MP3

Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
Private Const QUALITY As String = "quality"
Private Const BITRATE As String = "bitrate"
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, raw, lam, snk As MediaControl

 fileaudio = "/percorso/del/file/raw"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 
 raw = New MediaControl(pl, "rawaudioparse")
 raw["interleaved"] = True
 raw["num-channels"] = 2
 raw["pcm-format"] = GST_AUDIO_FORMAT_S16LE
 raw["sample-rate"] = 44100
 lam = New MediaControl(pl, "lamemp3enc")
 lam["target"] = BITRATE    ' Imposta il Bitrate
 lam["cbr"] = True          ' Imposta il Bitrate "Costante"
 lam["bitrate"] = 192       ' Imposta il valore del Bitrate "Costante"
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3"

 src.LinkTo(raw)
 raw.LinkTo(lam)
 lam.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file raw: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato RAW al formato OGG-Vorbis

Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, raw, cnv, vor, mux, snk As MediaControl

 fileaudio = "/percorso/del/file/raw"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 
 raw = New MediaControl(pl, "rawaudioparse")
 raw["interleaved"] = True
 raw["num-channels"] = 2
 raw["pcm-format"] = GST_AUDIO_FORMAT_S16LE
 raw["sample-rate"] = 44100
 cnv = New MediaControl(pl, "audioconvert")
 vor = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg"

 src.LinkTo(raw)
 raw.LinkTo(cnv)
 cnv.LinkTo(vor)
 vor.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file raw: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato RAW al formato AAC

Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, raw, aac, snk As MediaControl
 Dim flt As MediaFilter

 fileaudio = "/percorso/del/file/raw"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 
 raw = New MediaControl(pl, "rawaudioparse")
 raw["interleaved"] = True
 raw["num-channels"] = 2
 raw["pcm-format"] = GST_AUDIO_FORMAT_S16LE
 raw["sample-rate"] = 44100
 aac = New MediaControl(pl, "faac")   ' oppure anche "voaacenc"
 flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".aac"

 src.LinkTo(raw)
 raw.LinkTo(aac)
 aac.LinkTo(flt)
 flt.LinkTo(snk)

 pl.Play()

 Print "Durata del file raw: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato FLAC al formato WAV

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, flp, fld, wav, snk As MediaControl

 fileaudio = "/percorso/del/file/flac"
 
 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 flp = New MediaControl(pl, "flacparse")
 fld = New MediaControl(pl, "flacdec")
 wav = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"

 src.LinkTo(flp)
 flp.LinkTo(fld)
 fld.LinkTo(wav)
 wav.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file Flac: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato FLAC al formato MP3

Private Const QUALITY As String = "quality"
Private Const BITRATE As String = "bitrate"
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, flp, fld, lam, snk As MediaControl

 fileaudio = "/percorso/del/file/flac"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 flp = New MediaControl(pl, "flacparse")
 fld = New MediaControl(pl, "flacdec")
 lam = New MediaControl(pl, "lamemp3enc")
 lam["target"] = BITRATE
 lam["cbr"] = True
 lam["bitrate"] = 192
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3"

 src.LinkTo(flp)
 flp.LinkTo(fld)
 fld.LinkTo(lam)
 lam.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file Flac: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato FLAC al formato OGG-Vorbis

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, flp, fld, cnv, vor, mux, snk As MediaControl

 fileaudio = "/percorso/del/file/flac"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 flp = New MediaControl(pl, "flacparse")
 fld = New MediaControl(pl, "flacdec")
 cnv = New MediaControl(pl, "audioconvert")
 vor = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg"

 src.LinkTo(flp)
 flp.LinkTo(fld)
 fld.LinkTo(cnv)
 cnv.LinkTo(vor)
 vor.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file flac: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato AAC al formato WAV

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, aac, wav, snk As MediaControl

 fileaudio = "/percorso/del/file/aac"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 aac = New MediaControl(pl, "faad")   ' oppure anche "voaacenc"
 wav = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"

 src.LinkTo(aac)
 aac.LinkTo(wav)
 wav.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file aac: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato AAC al formato MP3

Private Const QUALITY As String = "quality"
Private Const BITRATE As String = "bitrate"
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, aac, lam, snk As MediaControl

 fileaudio = "/percorso/del/file/aac"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 aac = New MediaControl(pl, "faad")   ' oppure anche "voaacenc"
 lam = New MediaControl(pl, "lamemp3enc")
 lam["target"] = BITRATE
 lam["cbr"] = True
 lam["bitrate"] = 192
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3"

 src.LinkTo(aac)
 aac.LinkTo(lam)
 lam.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file Acc: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato AAC al formato OGG-Vorbis

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, aac, cnv, vor, mux, snk As MediaControl

 fileaudio = "/percorso/del/file/aac"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 aac = New MediaControl(pl, "faad")   ' oppure anche "voaacenc"
 cnv = New MediaControl(pl, "audioconvert")
 vor = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg"

 src.LinkTo(aac)
 aac.LinkTo(cnv)
 cnv.LinkTo(vor)
 vor.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file aac: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato AAC al formato RAW

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, aac, snk As MediaControl
 Dim flt As MediaFilter

 fileaudio = "/percorso/del/file/aac"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 aac = New MediaControl(pl, "faad")   ' oppure anche "voaacenc"
 flt = New MediaFilter(pl, "audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".raw"

 src.LinkTo(aac)
 aac.LinkTo(flt)
 flt.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file aac: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato AIFF al formato WAV

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, aif, cnv, wav, snk As MediaControl

 fileaudio = "/percorso/del/file/aiff"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 aif = New MediaControl(pl, "aiffparse")
 cnv = New MediaControl(pl, "audioconvert")
 wav = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"

 src.LinkTo(aif)
 aif.LinkTo(cnv)
 cnv.LinkTo(wav)
 wav.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file aiff: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato AIFF al formato MP3

Private Const QUALITY As String = "quality"
Private Const BITRATE As String = "bitrate"
Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, aif, cnv, lam, snk As MediaControl

 fileaudio = "/percorso/del/file/aiff"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 aac = New MediaControl(pl, "aiffparse")
 cnv = New MediaControl(pl, "audioconvert")
 lam = New MediaControl(pl, "lamemp3enc")
 lam["target"] = BITRATE
 lam["cbr"] = True
 lam["bitrate"] = 192
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3"

 src.LinkTo(aif)
 aif.LinkTo(cnv)
 cnv.LinkTo(lam)
 lam.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file aiff: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo
 
 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio dal formato AIFF al formato OGG-Vorbis

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, aif, cnv, vor, mux, snk As MediaControl

 fileaudio = "/percorso/del/file/aiff"
 
 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 aac = New MediaControl(pl, "aiffparse")
 cnv = New MediaControl(pl, "audioconvert")
 vor = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg"

 src.LinkTo(aif)
 aif.LinkTo(cnv)
 cnv.LinkTo(vor)
 vor.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file aiff: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End


Conversione audio con il plugin "decodebin"

Usando il plugin "decodebin" è possibile convertire qualsiasi formato audio in un altro desiderato.
Mostriamo un esempio, nel quale sarà convertito un file audio "OGG" in un file audio "WAV", avente il seguente formato: frequenza di campionamento = 44100, risoluzione = 16 bit, canali = 2. 

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, dcb, con, flt, wav, snk As MediaControl

 fileaudio = "/percorso/del/file.ogg"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio

 dcb = New MediaControl(pl, "decodebin")
 con = New MediaControl(pl, "audioconvert")
 flt = New MediaFilter(pl, "audio/x-raw, format=S16LE, rate=44100, channels=2, depth=16")
 wav = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"
 
 src.LinkTo(dcb)
 dcb.LinkLaterTo(con)
 con.LinkTo(flt)
 flt.LinkTo(wav)
 wav.LinkTo(snk)

 pl.Play()

 Print "Durata del file ogg: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
   Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True
  
End

Se si vuole convertire in un file avente caratteristiche (frequenza di campionamento, numero dei canali, risoluzione in bit) dei propri campioni audio diverse da quelle del file originario, da convertire, allora si dovranno usare l'elemento "audioresample" e la Classe MediaFilter.

Mostriamo un esempio pratico, nel quale si convertirà un file MP3 in un file WAV avente frequenza di campionamento uguale a 22050 hertz e risoluzione a 8 bit: 

Private bo As Boolean


Public Sub Main()

 Dim fileaudio As String
 Dim pl As MediaPipeline
 Dim src, dcb, con, res, flt, wav, snk As MediaControl

 fileaudio = "/percorso/del/file.mp3"

 pl = New MediaPipeline As "PLine"
  
 src = New MediaControl(pl, "filesrc")
 src["location"] = fileaudio
 dcb = New MediaControl(pl, "decodebin")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample") ' Consente di modificare le caratteristiche del file audio
 flt = New MediaFilter(pl, "audio/x-raw,rate=22050,format=U8")
 wav = New MediaFilter(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"

 src.LinkTo(dcb)
 dcb.LinkLaterTo(con)
 con.LinkTo(res)
 res.LinkTo(flt)
 flt.LinkTo(wav)
 wav.LinkTo(snk)
 
 pl.play

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "Durata del file mp3: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat
 Write "\r\e[0mTempo trascorso:     \e[31m" & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Convertire_i_formati_audio_mediante_il_Componente_gb.media&oldid=36275"