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

Da Gambas-it.org - Wikipedia.
 
(47 versioni intermedie di uno stesso utente non sono mostrate)
Riga 3: Riga 3:
 
Mostriamo di seguito qualche esempio pratico.
 
Mostriamo di seguito qualche esempio pratico.
  
−
====Conversione audio dal formato WAV al formato MP3====
+
===Conversione audio dal formato WAV al formato MP3===
−
  '''Public''' Sub Main()
+
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 = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
 +
  wprs = New MediaControl(pl, "<FONT Color=#B22222>wavparse</font>")
 +
  cnv = New MediaControl(pl, "<FONT Color=#B22222>audioconvert</font>")
 +
  lam = New MediaControl(pl, "<FONT Color=#B22222>lamemp3enc</font>")
 +
  lam["target"] = BITRATE    <FONT Color=gray>' ''Imposta il Bitrate.''</font>
 +
  lam["cbr"] = True          <FONT Color=gray>' ''Imposta il Bitrate "Costante".''</font>
 +
  lam["bitrate"] = 192      <FONT Color=gray>' ''Imposta il valore del Bitrate "Costante".''</font>
 +
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 +
  snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3"
 +
 
 +
<FONT Color=gray>' ''Collega fra loro all'interno della pipeline gli oggetti MediaControl impostati:''</font>
 +
  src.LinkTo(wprs)
 +
  wprs.LinkTo(cnv)
 +
  cnv.LinkTo(lam)
 +
  lam.LinkTo(snk)
 +
 +
  pl.Play()
 
    
 
    
−
  Dim pl As MediaPipeline
+
  While pl.Duration < 1
−
  Dim src, wprs, cnv, lam, snk As MediaControl
+
    Wait 0.01
−
  Dim primofile As String
+
  Wend
−
  Dim i As Integer
+
  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
 +
 +
<FONT Color=darkgray>' ''E' necessario prevedere sia il Metodo ".Stop" che il Metodo ".Close" della Classe "MediaPipeline", per evitare di ottenere un file audio vuoto:''</font>
 +
  pl.Stop
 +
  pl.Close
 +
 +
  Print "\n\e[0mConversione terminata !"
 +
 +
End
 +
 +
 +
Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>"
 +
 
 +
  pl = New MediaPipeline As "PLine"
 
    
 
    
−
  primofile = "/tmp/primofile"
+
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
 
 +
  wprs = New MediaControl(pl, "<FONT Color=#B22222>wavparse</font>")
 +
  cnv = New MediaControl(pl, "<FONT Color=#B22222>audioconvert</font>")
 +
  vor = New MediaControl(pl, "<FONT Color=#B22222>vorbisenc</font>")
 +
  mux = New MediaControl(pl, "<FONT Color=#B22222>oggmux</font>")
 +
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>"
 +
 +
  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")  <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font>
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
 +
  map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
 +
  mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>")
 +
  vor = New MediaControl(pl, "<FONT Color=#B22222>vorbisenc</font>")
 +
  mux = New MediaControl(pl, "<FONT Color=#B22222>oggmux</font>")
 +
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
 +
  map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
 +
  mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>")
 +
  wav = New MediaControl(pl, "<FONT Color=#B22222>wavenc</font>")
 +
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
  map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
 +
  mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>")
 +
  aac = New MediaControl(pl, "faac")  <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font>
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
 +
  par = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
 +
  dcd = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</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["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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  bo = True
 
    
 
    
−
  pl = New MediaPipeline  
+
End
−
 
+
 
−
  src = New MediaControl(pl, "filesrc")
+
 
−
   src["location"] = "<FONT Color=gray>''/percorso/del/file.wav''</font>"  <FONT Color=gray>' ''"location" è una proprietà del plugin "filesrc"''</font>
+
===Conversione audio dal formato OGG-Vorbis al formato MP3===
−
    
+
Private Const QUALITY As String = "quality"
−
  wprs = New MediaControl(pl, "<FONT Color=#B22222>wavparse</font>")
+
Private Const BITRATE As String = "bitrate"
−
  cnv = New MediaControl(pl, "<FONT Color=#B22222>audioconvert</font>")
+
Private bo As Boolean
−
  lam = New MediaControl(pl, "<FONT Color=#B22222>lamemp3enc</font>")
+
−
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
+
−
  snk["location"] = primofile
+
Public Sub Main()
−
 
+
−
  <FONT Color=gray>' ''Colleghiamo fra loro all'interno della pipeline gli oggetti MediaControl impostati:''</font>
+
  Dim fileaudio As String
−
  src.LinkTo(wprs)
+
  Dim pl As MediaPipeline
−
  wprs.LinkTo(cnv)
+
  Dim src, ogg, vor, cnv, lam, snk As MediaControl
−
  cnv.LinkTo(lam)
+
−
  lam.LinkTo(snk)
+
  fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>"
−
 
+
 
−
  pl.Play()
+
  pl = New MediaPipeline As "PLine"
−
 
+
−
  Repeat
+
  src = New MediaControl(pl, "filesrc")
−
    i = Stat(primofile).Size
+
  src["location"] = fileaudio
−
    Wait 0.5
+
−
  Until Stat(primofile).Size == i
+
  ogg = New MediaControl(pl, "oggdemux")
−
 
+
  vor = New MediaControl(pl, "vorbisdec")
−
  Copy primofile To "/tmp/file.mp3"
+
  cnv = New MediaControl(pl, "audioconvert")
−
  pl.Stop
+
  lam = New MediaControl(pl, "lamemp3enc")
−
  pl.Close
+
  lam["target"] = BITRATE   ' Imposta il Bitrate.
−
 
+
  lam["cbr"] = True          ' Imposta il Bitrate "Costante".
−
  '''End'''
+
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>"
 +
 
 +
  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")   <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font>
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  bo = True
 +
 +
End
 +
 
 +
 
 +
===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.
 +
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 = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>"
 +
 
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>"
 +
 +
  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   <FONT Color=gray>' ''Imposta il Bitrate''</font>
 +
  lam["cbr"] = True          <FONT Color=gray>' ''Imposta il Bitrate "Costante"''</font>
 +
  lam["bitrate"] = 192      <FONT Color=gray>' ''Imposta il valore del Bitrate "Costante"''</font>
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>"
 +
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>"
 +
 +
  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")  <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font>
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>"
 +
 
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>"
 +
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>"
 +
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
  aac = New MediaControl(pl, "faad")  <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font>
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  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 = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
   
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
  aac = New MediaControl(pl, "faad")  <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font>
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  bo = True
 +
 +
End
  
  
−
====Conversione audio dal formato WAV al formato OGG====
+
===Conversione audio dal formato AAC al formato OGG-Vorbis===
−
  '''Public''' Sub Main()
+
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 = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
   
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
  aac = New MediaControl(pl, "faad")  <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font>
 +
  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
 
    
 
    
−
  Dim pl As MediaPipeline
+
  pl.Stop
−
  Dim src, wprs, cnv, vor, mux, snk As MediaControl
+
  pl.Close
−
  Dim primofile As String
+
−
  Dim i As Integer
+
  Print "\n\e[0mConversione terminata !"
−
 
+
−
  primofile = "/tmp/primofile"
+
End
−
 
+
−
  pl = New MediaPipeline  
+
−
 
+
Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
−
  src = New MediaControl(pl, "filesrc")
+
−
  src["location"] = "<FONT Color=gray>''/percorso/del/file.wav''</font>"  <FONT Color=gray>' ''"location" è una proprietà del plugin "filesrc"''</font>
+
  bo = True
−
 
+
−
  wprs = New MediaControl(pl, "<FONT Color=#B22222>wavparse</font>")
+
End
−
  cnv = New MediaControl(pl, "<FONT Color=#B22222>audioconvert</font>")
+
 
−
  vor = New MediaControl(pl, "<FONT Color=#B22222>vorbisenc</font>")
+
 
−
  mux = New MediaControl(pl, "<FONT Color=#B22222>oggmux</font>")
+
===Conversione audio dal formato AAC al formato RAW===
−
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
+
Private bo As Boolean
−
  snk["location"] = primofile
+
−
 
+
−
  src.LinkTo(wprs)
+
Public Sub Main()
−
  wprs.LinkTo(cnv)
+
−
  cnv.LinkTo(vor)
+
  Dim fileaudio As String
−
  vor.LinkTo(mux)
+
  Dim pl As MediaPipeline
−
  mux.LinkTo(snk)
+
  Dim src, aac, snk As MediaControl
−
 
+
  Dim flt As MediaFilter
−
  pl.Play()
+
−
 
+
  fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>"
−
  Repeat
+
−
    i = Stat(primofile).Size
+
  pl = New MediaPipeline As "PLine"
−
    Wait 0.7
+
−
  Until Stat(primofile).Size == i
+
  src = New MediaControl(pl, "filesrc")
−
 
+
  src["location"] = fileaudio
−
  Copy primofile To "/tmp/file.ogg"
+
  aac = New MediaControl(pl, "faad")  <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font>
−
  pl.Stop
+
  flt = New MediaFilter(pl, "audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16")
−
  pl.Close
+
  snk = New MediaControl(pl, "filesink")
−
 
+
  snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".raw"
−
  '''End'''
+
 +
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  bo = True
 +
 +
End
  
  
−
====Conversione audio dal formato MP3 al formato OGG====
+
===Conversione audio dal formato AIFF al formato WAV===
−
  '''Public''' Sub Main()
+
  Private bo As Boolean
 +
 +
 +
Public Sub Main()
 +
 +
  Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 +
  Dim src, aif, cnv, wav, snk As MediaControl
 +
 +
  fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>"
 +
 +
  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
 
    
 
    
−
  Dim pl As MediaPipeline
+
  pl.Stop
−
  Dim src, map, mad, vor, mux, snk As MediaControl
+
  pl.Close
−
  Dim primofile As String
+
−
  Dim i As Integer
+
  Print "\n\e[0mConversione terminata !"
−
 
+
−
  primofile = "/tmp/primofile"
+
End
−
 
+
−
  pl = New MediaPipeline
+
−
 
+
Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
−
  src = New MediaControl(pl, "filesrc")
+
−
  src["location"] = "<FONT Color=gray>''/percorso/del/file.mp3''</font>"  <FONT Color=gray>' ''"location" è una proprietà del plugin "filesrc"''</font>
+
  bo = True
−
 
+
−
  map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
+
  End
−
  mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>")
 
−
  vor = New MediaControl(pl, "<FONT Color=#B22222>vorbisenc</font>")
 
−
  mux = New MediaControl(pl, "<FONT Color=#B22222>oggmux</font>")
 
−
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 
−
  snk["location"] = primofile
 
−
 
 
−
  src.LinkTo(map)
 
−
  map.LinkTo(mad)
 
−
  mad.LinkTo(vor)
 
−
  vor.LinkTo(mux)
 
−
  mux.LinkTo(snk)
 
−
 
 
−
  pl.Play()
 
−
 
 
−
  Repeat
 
−
    i = Stat(primofile).Size
 
−
    Wait 0.7
 
−
  Until Stat(primofile).Size == i
 
−
 
 
−
  Copy primofile To "/tmp/file.ogg"
 
−
  pl.Stop
 
−
  pl.Close
 
−
 
 
−
  '''End'''
 
  
  
−
====Conversione audio dal formato MP3 al formato WAV====
+
===Conversione audio dal formato AIFF al formato MP3===
−
  '''Public''' Sub Main()
+
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 = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>"
 +
 +
  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
 
    
 
    
−
  Dim pl As MediaPipeline
+
  pl.Stop
−
  Dim src, map, mad, wav, snk As MediaControl
+
  pl.Close
−
  Dim primofile As String
+
−
  Dim i As Integer
+
  Print "\n\e[0mConversione terminata !"
−
 
+
−
  primofile = "/tmp/primofile"
+
End
−
 
+
−
  pl = New MediaPipeline
+
−
 
+
Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
−
  src = New MediaControl(pl, "filesrc")
+
−
  src["location"] = "<FONT Color=gray>''/percorso/del/file.mp3''</font>"
+
  bo = True
−
 
+
−
  map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
+
  End
−
  mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>")
 
−
  wav = New MediaControl(pl, "<FONT Color=#B22222>wavenc</font>")
 
−
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 
−
  snk["location"] = primofile
 
−
 
 
−
  src.LinkTo(map)
 
−
  map.LinkTo(mad)
 
−
  mad.LinkTo(wav)
 
−
  wav.LinkTo(snk)
 
−
 
 
−
  pl.Play()
 
−
 
 
−
  Repeat
 
−
    i = Stat(primofile).Size
 
−
    Wait 0.7
 
−
  Until Stat(primofile).Size == i
 
−
 
 
−
  Copy primofile To "/tmp/file.wav"
 
−
  pl.Stop
 
−
  pl.Close
 
−
 
 
−
  '''End'''
 
  
  
−
====Conversione audio dal formato MP3 al formato RAW====
+
===Conversione audio dal formato AIFF al formato OGG-Vorbis===
−
Con il seguente codice si otterranno da un file MP3 i dati audio grezzi.
+
Private bo As Boolean
−
  '''Public''' Sub Main()
+
 +
 +
  Public Sub Main()
 +
 +
  Dim fileaudio As String
 +
  Dim pl As MediaPipeline
 +
  Dim src, aif, cnv, vor, mux, snk As MediaControl
 +
 +
  fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>"
 
    
 
    
−
  Dim pl As MediaPipeline
+
  pl = New MediaPipeline As "PLine"
−
  Dim src, par, dcd, snk As MediaControl
+
−
  Dim fil As MediaFilter
+
  src = New MediaControl(pl, "filesrc")
−
  Dim appoggio As String
+
  src["location"] = fileaudio
−
  Dim i As Integer
+
  aac = New MediaControl(pl, "aiffparse")
−
 
+
  cnv = New MediaControl(pl, "audioconvert")
−
  appoggio = Temp
+
  vor = New MediaControl(pl, "vorbisenc")
−
 
+
  mux = New MediaControl(pl, "oggmux")
−
  pl = New MediaPipeline  
+
  snk = New MediaControl(pl, "filesink")
−
 
+
  snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg"
−
  src = New MediaControl(pl, "filesrc")
+
−
  src["location"] = "<FONT Color=gray>''/percorso/del/file.mp3''</font>"
+
  src.LinkTo(aif)
−
 
+
  aif.LinkTo(cnv)
−
  par = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>")
+
  cnv.LinkTo(vor)
−
  dcd = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>")
+
  vor.LinkTo(mux)
−
  fil = New MediaControl(pl, "<FONT Color=#B22222>audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16</font>")
+
  mux.LinkTo(snk)
−
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
+
−
  snk["location"] = appoggio
+
  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
 
   
 
   
−
  src.LinkTo(par)
 
−
  par.LinkTo(dcd)
 
−
  dcd.LinkTo(fil)
 
−
  fil.LinkTo(snk)
 
 
   
 
   
−
  pl.Play()
+
Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
   
 
   
−
  Repeat
+
  bo = True
−
    i = Stat(appoggio).Size
 
−
    Wait 1
 
−
  Until Stat(appoggio).Size == i
 
−
 
 
−
  If Exist("/tmp/file_RAW.raw") Then Kill "/tmp/file_RAW.raw"
 
−
  Copy appoggio To "/tmp/file_RAW.raw"
 
 
   
 
   
−
  pl.Stop
+
  End
−
  pl.Close
+
 
−
 
 
−
  '''End'''
 
  
  
−
====Conversione audio con il plugin "decodebin"====
+
===Conversione audio con il plugin "decodebin"===
 
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":
+
<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.
−
  '''Public''' Sub Main()
+
  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 = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = fileaudio
 +
 +
  dcb = New MediaControl(pl, "<FONT Color=#B22222>decodebin</font>")
 +
  con = New MediaControl(pl, "<FONT Color=#B22222>audioconvert</font>")
 +
  flt = New MediaFilter(pl, "<FONT Color=#B22222>audio/x-raw, format=S16LE, rate=44100, channels=2, depth=16</font>")
 +
  wav = New MediaControl(pl, "<FONT Color=#B22222>wavenc</font>")
 +
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
 +
  snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"
 
    
 
    
−
  Dim pl As MediaPipeline
+
  src.LinkTo(dcb)
−
  Dim src, dcb, con, wav, snk As MediaControl
+
  dcb.LinkLaterTo(con)
−
  Dim primofile As String
+
  con.LinkTo(flt)
−
  Dim i As Integer
+
  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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  bo = True
 
    
 
    
−
  primofile = "/tmp/primofile"
+
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 = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 
    
 
    
−
  pl = New MediaPipeline
+
  src = New MediaControl(pl, "filesrc")
−
 
+
  src["location"] = fileaudio
−
  src = New MediaControl(pl, "filesrc")
+
  dcb = New MediaControl(pl, "decodebin")
−
  src["location"] = "<FONT Color=gray>''/percorso/del/file.ogg''</font>"
+
  con = New MediaControl(pl, "audioconvert")
−
 
+
  res = New MediaControl(pl, "audioresample") <FONT Color=gray>' ''Consente di modificare le caratteristiche del file audio''</font>
−
  dcb = New MediaControl(pl, "<FONT Color=#B22222>decodebin</font>")
+
  flt = New MediaFilter(pl, "audio/x-raw,rate=22050,format=U8")
−
  con = New MediaControl(pl, "<FONT Color=#B22222>audioconvert</font>")
+
  wav = New MediaFilter(pl, "wavenc")
−
  wav = New MediaControl(pl, "<FONT Color=#B22222>wavenc</font>")
+
  snk = New MediaControl(pl, "filesink")
−
  snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>")
+
  snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav"
−
  snk["location"] = primofile
+
   
−
 
+
  src.LinkTo(dcb)
−
  <FONT Color=gray>' ''Colleghiamo fra loro all'interno della pipeline gli oggetti MediaControl impostati:''</font>
+
  dcb.LinkLaterTo(con)
−
  src.LinkTo(dcb)
+
  con.LinkTo(res)
−
  dcb.LinkLaterTo(con)
+
  res.LinkTo(flt)
−
  con.LinkTo(wav)
+
  flt.LinkTo(wav)
−
  wav.LinkTo(snk)
+
  wav.LinkTo(snk)
−
 
+
 
−
  pl.Play()
+
  pl.play
−
 
+
−
  Repeat
+
  While pl.Duration < 1
−
    i = Stat(primofile).Size
+
    Wait 0.01
−
    Wait 0.7
+
  Wend
−
  Until Stat(primofile).Size == i
+
  Print "Durata del file mp3: "; Time(0, 0, 0, pl.Duration * 1000)
−
 
+
  Repeat
−
  Copy primofile To "/tmp/file.wav"
+
  Write "\r\e[0mTempo trascorso:    \e[31m" & Time(0, 0, 0, pl.Position * 1000)
−
  pl.Stop
+
    Wait 0.01
−
  pl.Close
+
  Until bo
−
 
+
−
  '''End'''
+
  pl.Stop
 +
  pl.Close
 +
 +
  Print "\n\e[0mConversione terminata !"
 +
 +
End
 +
 +
 +
  Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 +
 +
  bo = True
 +
 +
End

Versione attuale delle 17:43, 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

' E' necessario prevedere sia il Metodo ".Stop" che il Metodo ".Close" della Classe "MediaPipeline", per evitare di ottenere un file audio vuoto:
 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.Stop
 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=36277"