Differenze tra le versioni di "Ottenere un file audio da un file MIDI mediante il Componente gb.media"

Da Gambas-it.org - Wikipedia.
 
(18 versioni intermedie di uno stesso utente non sono mostrate)
Riga 4: Riga 4:
 
* ''midiparse'': interpreta i file MIDI e li converte in eventi MIDI;
 
* ''midiparse'': interpreta i file MIDI e li converte in eventi MIDI;
 
* ''fluiddec'': effettua il render degli eventi MIDI in campioni audio grezzi.
 
* ''fluiddec'': effettua il render degli eventi MIDI in campioni audio grezzi.
−
 
  
 
Mostriamo di seguito un esempio pratico, nel quale si otterrà un file WAV da un file MIDI:
 
Mostriamo di seguito un esempio pratico, nel quale si otterrà un file WAV da un file MIDI:
 
  Private bo As Boolean
 
  Private bo As Boolean
−
Private pl As MediaPipeline
 
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
−
   Dim src, par, fdc, res, cnv, vol, enc, snk As MediaControl
+
  Dim filemidi As String
 +
  Dim pl As MediaPipeline
 +
   Dim src, par, fdc, con, res, vol, enc, snk As MediaControl
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
−
  Dim filemidi, primofile As String
+
−
 
+
   filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>"
−
   filemidi = "<FONT color=gray>''/percorso/del/file.mid''</font>"
+
−
  primofile = "/tmp/primofile"
+
   pl = New MediaPipeline As "PLine"
−
 
+
−
   pl = New MediaPipeline As "PL"
 
−
   
 
 
   src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
 
   src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
−
   src["location"] = filemidi   <FONT color=gray>' ''"location" è una proprietà del plugin "filesrc"''</font>
+
   src["location"] = filemidi
 
    
 
    
 
   par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
 
   par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
 
   fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
 
   fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
 +
  con = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
 
   res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
 
   res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
−
  cnv = 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>")
−
   flt = New MediaFilter(pl, "<FONT color=#B22222>audio/x-raw,rate=44100,channels=2</font>")
 
 
   vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
 
   vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
−
   vol["volume"] = 4.0                          <FONT color=gray>' ''"volume" è una proprietà dell'omonimo plugin "volume"''</font>
+
   vol["volume"] = 0.5                        <FONT color=gray>' ''<1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%''</font>
 
   enc = New MediaControl(pl, "<FONT color=#B22222>wavenc</font>")
 
   enc = New MediaControl(pl, "<FONT color=#B22222>wavenc</font>")
 
   snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
 
   snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
−
   snk["location"] = primofile                  <FONT color=gray>' ''"location" è una proprietà del plugin "filesink"''</font>
+
   snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".wav"
−
 
+
 
   src.LinkTo(par)
 
   src.LinkTo(par)
 
   par.LinkTo(fdc)
 
   par.LinkTo(fdc)
−
   fdc.LinkTo(res)
+
   fdc.LinkTo(con)
−
   res.LinkTo(cnv)
+
   con.LinkTo(res)
−
   cnv.LinkTo(flt)
+
   res.LinkTo(flt)
 
   flt.LinkTo(vol)
 
   flt.LinkTo(vol)
 
   vol.LinkTo(enc)
 
   vol.LinkTo(enc)
 
   enc.LinkTo(snk)
 
   enc.LinkTo(snk)
−
 
+
 
   pl.Play()
 
   pl.Play()
−
 
+
−
   Print "Durata del file Midi: "; Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)
+
   Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
−
   Repeat
+
   While Not bo
−
     Write #File.Out, "\r\e[0mTempo convertito:    \e[31m" & Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)
+
     Write "\r\e[0mTempo di conversione:    \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
−
    Flush #File.Out
 
 
     Wait 0.01
 
     Wait 0.01
−
   Until bo = True
+
   Wend
−
 
+
−
  Copy primofile To "/tmp" &/ File.BaseName(filemidi) & ".wav"
 
 
   pl.Stop
 
   pl.Stop
 
   pl.Close
 
   pl.Close
−
 
+
−
   Write #File.Out, "\n\e[0mEsecuzione terminata !"
+
   Print "\n\e[0mConversione terminata !"
−
  Flush #File.Out
+
−
  Quit
+
  End
−
 
 
−
  '''End'''
 
 
   
 
   
 
   
 
   
−
  '''Public''' Sub PL_End()
+
  Public Sub PLine_'''End'''()   <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
    
 
    
 
   bo = True
 
   bo = True
 
    
 
    
−
  '''End'''
+
  End
−
 
 
−
 
 
 
In quest'altro esempio si otterrà un file OGG-Vorbis da un file MIDI:
 
In quest'altro esempio si otterrà un file OGG-Vorbis da un file MIDI:
 
  Private bo As Boolean
 
  Private bo As Boolean
−
Private pl As MediaPipeline
 
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
−
    
+
−
   Dim src, par, fdc, res, cnv, vol, vor, mux, snk As MediaControl
+
   Dim filemidi As String
−
  Dim filemidi, primofile As String
+
  Dim pl As MediaPipeline
−
 
+
   Dim src, par, fdc, con, res, vol, vor, mux, snk As MediaControl
−
   filemidi = "<FONT color=gray>''/percorso/del/file.mid''</font>"
+
−
  primofile = "/tmp/primofile"
+
   filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>"
−
 
+
−
   pl = New MediaPipeline As "PL"
+
   pl = New MediaPipeline As "PLine"
−
   
+
 
   src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
 
   src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
−
   src["location"] = filemidi   <FONT color=gray>' ''"location" è una proprietà del plugin "filesrc"''</font>
+
   src["location"] = filemidi
−
 
+
 
   par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
 
   par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
 
   fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
 
   fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
 +
  con = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
 
   res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
 
   res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
−
  cnv = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
 
 
   vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
 
   vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
−
   vol["volume"] = 4.0                         <FONT color=gray>' ''"volume" è una proprietà dell'omonimo plugin "volume"''</font>
+
   vol["volume"] = 0.4                          <FONT color=gray>' ''<1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%''</font>
 
   vor = New MediaControl(pl, "<FONT color=#B22222>vorbisenc</font>")
 
   vor = New MediaControl(pl, "<FONT color=#B22222>vorbisenc</font>")
 
   mux = New MediaControl(pl, "<FONT color=#B22222>oggmux</font>")
 
   mux = New MediaControl(pl, "<FONT color=#B22222>oggmux</font>")
 
   snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
 
   snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
−
   snk["location"] = primofile                  <FONT color=gray>' ''"location" è una proprietà del plugin "filesink"''</font>
+
   snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".ogg"
−
 
+
 
   src.LinkTo(par)
 
   src.LinkTo(par)
 
   par.LinkTo(fdc)
 
   par.LinkTo(fdc)
 
   fdc.LinkTo(res)
 
   fdc.LinkTo(res)
 
   res.LinkTo(cnv)
 
   res.LinkTo(cnv)
−
   cnv.LinkTo(vor)
+
   cnv.LinkTo(vol)
 +
  vol.LinkTo(vor)
 
   vor.LinkTo(mux)
 
   vor.LinkTo(mux)
 
   mux.LinkTo(snk)
 
   mux.LinkTo(snk)
−
 
+
 
   pl.Play()
 
   pl.Play()
−
 
+
−
   Print "Durata del file Midi: "; Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)
+
   Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
−
   Repeat
+
   While Not bo
−
     Write #File.Out, "\r\e[0mTempo convertito:    \e[31m" & Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)
+
     Write "\r\e[0mTempo conversione:    \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
−
    Flush #File.Out
 
 
     Wait 0.01
 
     Wait 0.01
−
   Until bo = True
+
   Wend
−
 
+
−
  Copy primofile To "/tmp" &/ File.BaseName(filemidi) & ".ogg"
 
 
   pl.Stop
 
   pl.Stop
 
   pl.Close
 
   pl.Close
−
 
 
−
  Write #File.Out, "\n\e[0mEsecuzione terminata !"
 
−
  Flush #File.Out
 
−
  Quit
 
−
 
 
−
'''End'''
 
 
   
 
   
 +
  Print "\n\e[0mConversione terminata !"
 +
 +
End
 
   
 
   
−
  '''Public''' Sub PL_End()
+
  Public Sub PLine_End()  <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
    
 
    
 
   bo = True
 
   bo = True
 
    
 
    
−
  '''End'''
+
  End
−
 
 
−
 
 
 
In questo terzo esempio si otterrà un file MP3 da un file MIDI:
 
In questo terzo esempio si otterrà un file MP3 da un file MIDI:
 
  Private bo As Boolean
 
  Private bo As Boolean
−
Private pl As MediaPipeline
 
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
−
    
+
−
   Dim src, par, fdc, res, cnv, vol, lam, snk As MediaControl
+
   Dim filemidi As String
−
  Dim filemidi, primofile As String
+
  Dim pl As MediaPipeline
−
 
+
   Dim src, par, fdc, con, res, vol, lam, snk As MediaControl
−
   filemidi = "<FONT color=gray>''/percorso/del/file.mid''</font>"
+
−
  primofile = "/tmp/primofile"
+
   filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>"
−
 
+
−
   pl = New MediaPipeline As "PL"
+
   pl = New MediaPipeline As "PLine"
−
   
+
 
   src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
 
   src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
−
   src["location"] = filemidi   <FONT color=gray>' ''"location" è una proprietà del plugin "filesrc"''</font>
+
   src["location"] = filemidi
−
 
+
 
   par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
 
   par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
 
   fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
 
   fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
 +
  con = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
 
   res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
 
   res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
−
  cnv = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
 
 
   vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
 
   vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
−
   vol["volume"] = 4.0                         <FONT color=gray>' ''"volume" è una proprietà dell'omonimo plugin "volume"''</font>
+
   vol["volume"] = 0.4                          <FONT color=gray>' ''<1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%''</font>
 
   lam = New MediaControl(pl, "<FONT color=#B22222>lamemp3enc</font>")
 
   lam = New MediaControl(pl, "<FONT color=#B22222>lamemp3enc</font>")
 
   snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
 
   snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
−
   snk["location"] = primofile                  <FONT color=gray>' ''"location" è una proprietà del plugin "filesink"''</font>
+
   snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".mp3"
−
 
+
 
   src.LinkTo(par)
 
   src.LinkTo(par)
 
   par.LinkTo(fdc)
 
   par.LinkTo(fdc)
 
   fdc.LinkTo(res)
 
   fdc.LinkTo(res)
 
   res.LinkTo(cnv)
 
   res.LinkTo(cnv)
−
   cnv.LinkTo(lam)
+
   cnv.LinkTo(vol)
 +
  vol.LinkTo(lam)
 
   lam.LinkTo(snk)
 
   lam.LinkTo(snk)
−
 
+
 
   pl.Play()
 
   pl.Play()
 
    
 
    
−
   Print "Durata del file Midi: "; Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)
+
   Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
−
   Repeat
+
   While Not bo
−
     Write #File.Out, "\r\e[0mTempo convertito:    \e[31m" & Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)
+
     Write "\r\e[0mTempo conversione:    \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
−
    Flush #File.Out
 
 
     Wait 0.01
 
     Wait 0.01
−
   Until bo = True
+
   Wend
 +
 +
  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
 +
In questo quarto esempio si otterrà un file AAC da un file MIDI:
 +
Private bo As Boolean
 +
 +
 +
Public Sub Main()
 +
 
 +
  Dim filemidi As String
 +
  Dim pl As MediaPipeline
 +
  Dim src, par, fdc, con, res, vol, faa, snk As MediaControl
 +
  Dim flt1, flt2 As MediaFilter
 +
 +
  filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>"
 +
 +
  pl = New MediaPipeline As "PLine"
 +
 +
  src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
 +
  src["location"] = filemidi
 
    
 
    
−
   Copy primofile To "/tmp" &/ File.BaseName(filemidi) & ".mp3"
+
   par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
 +
  fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
 +
  con = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
 +
  res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
 +
  flt1 = New MediaFilter(pl, "<FONT color=#B22222>audio/x-raw,format=S16LE,rate=44100,channels=2,depth=16</font>")
 +
  vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
 +
  vol["volume"] = 1.0                        <FONT color=gray>' ''<1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%''</font>
 +
  faa = New MediaControl(pl, "<FONT color=#B22222>faac</font>")
 +
  flt2 = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100")
 +
  snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
 +
  snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".aac"
 +
 +
  src.LinkTo(par)
 +
  par.LinkTo(fdc)
 +
  fdc.LinkTo(con)
 +
  con.LinkTo(res)
 +
  res.LinkTo(flt1)
 +
  flt1.LinkTo(vol)
 +
  vol.LinkTo(faa)
 +
  faa.LinkTo(flt2)
 +
  flt2.LinkTo(snk)
 +
 +
  pl.Play()
 +
 +
  Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 +
  While Not bo
 +
    Write "\r\e[0mTempo di conversione:    \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
 +
    Wait 0.01
 +
  Wend
 +
 
   pl.Stop
 
   pl.Stop
 
   pl.Close
 
   pl.Close
−
 
+
−
   Write #File.Out, "\n\e[0mEsecuzione terminata !"
+
   Print "\n\e[0mConversione terminata !"
−
  Flush #File.Out
+
−
  Quit
+
  End
−
 
 
−
  '''End'''
 
 
   
 
   
 
   
 
   
−
  '''Public''' Sub PL_End()
+
  Public Sub PLine_End()  <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
 
    
 
    
 
   bo = True
 
   bo = True
−
 
+
 
−
  '''End'''
+
  End
−
 
 
  
  
  
 
=Riferimenti=
 
=Riferimenti=
−
* https://cgit.freedesktop.org/gstreamer/gstreamer/tree/docs/random/uraeus/gstreamer_and_midi.txt
+
* https://github.com/Xilinx/gstreamer/blob/master/docs/random/uraeus/gstreamer_and_midi.txt

Versione attuale delle 19:44, 17 gen 2024

Utilizzando i plugin di GStreamer con le Classi MediaControl e MediaPipeline del Componente gb.media, è possibile ottenere un file audio da un file MIDI.

I plugin specifici da utilizzare per il MIDI sono:

  • midiparse: interpreta i file MIDI e li converte in eventi MIDI;
  • fluiddec: effettua il render degli eventi MIDI in campioni audio grezzi.

Mostriamo di seguito un esempio pratico, nel quale si otterrà un file WAV da un file MIDI: 

Private bo As Boolean


Public Sub Main()
 
 Dim filemidi As String
 Dim pl As MediaPipeline
 Dim src, par, fdc, con, res, vol, enc, snk As MediaControl
 Dim flt As MediaFilter

 filemidi = "/percorso/del/file.mid"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = filemidi
  
 par = New MediaControl(pl, "midiparse")
 fdc = New MediaControl(pl, "fluiddec")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample")
 flt = New MediaFilter(pl, "audio/x-raw,format=S16LE,rate=44100,channels=2,depth=16")
 vol = New MediaControl(pl, "volume")
 vol["volume"] = 0.5                         ' <1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%
 enc = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".wav"

 src.LinkTo(par)
 par.LinkTo(fdc)
 fdc.LinkTo(con)
 con.LinkTo(res)
 res.LinkTo(flt)
 flt.LinkTo(vol)
 vol.LinkTo(enc)
 enc.LinkTo(snk)

 pl.Play()

 Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 While Not bo
   Write "\r\e[0mTempo di conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 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

In quest'altro esempio si otterrà un file OGG-Vorbis da un file MIDI: 

Private bo As Boolean


Public Sub Main()

 Dim filemidi As String
 Dim pl As MediaPipeline
 Dim src, par, fdc, con, res, vol, vor, mux, snk As MediaControl

 filemidi = "/percorso/del/file.mid"

 pl = New MediaPipeline As "PLine"

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

 par = New MediaControl(pl, "midiparse")
 fdc = New MediaControl(pl, "fluiddec")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample")
 vol = New MediaControl(pl, "volume")
 vol["volume"] = 0.4                          ' <1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%
 vor = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".ogg"

 src.LinkTo(par)
 par.LinkTo(fdc)
 fdc.LinkTo(res)
 res.LinkTo(cnv)
 cnv.LinkTo(vol)
 vol.LinkTo(vor)
 vor.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 While Not bo
   Write "\r\e[0mTempo conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 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

In questo terzo esempio si otterrà un file MP3 da un file MIDI: 

Private bo As Boolean


Public Sub Main()

 Dim filemidi As String
 Dim pl As MediaPipeline
 Dim src, par, fdc, con, res, vol, lam, snk As MediaControl

 filemidi = "/percorso/del/file.mid"

 pl = New MediaPipeline As "PLine"

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

 par = New MediaControl(pl, "midiparse")
 fdc = New MediaControl(pl, "fluiddec")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample")
 vol = New MediaControl(pl, "volume")
 vol["volume"] = 0.4                          ' <1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%
 lam = New MediaControl(pl, "lamemp3enc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".mp3"

 src.LinkTo(par)
 par.LinkTo(fdc)
 fdc.LinkTo(res)
 res.LinkTo(cnv)
 cnv.LinkTo(vol)
 vol.LinkTo(lam)
 lam.LinkTo(snk)

 pl.Play()
 
 Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 While Not bo
   Write "\r\e[0mTempo conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 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

In questo quarto esempio si otterrà un file AAC da un file MIDI: 

Private bo As Boolean


Public Sub Main()
 
 Dim filemidi As String
 Dim pl As MediaPipeline
 Dim src, par, fdc, con, res, vol, faa, snk As MediaControl
 Dim flt1, flt2 As MediaFilter

 filemidi = "/percorso/del/file.mid"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = filemidi
  
 par = New MediaControl(pl, "midiparse")
 fdc = New MediaControl(pl, "fluiddec")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample")
 flt1 = New MediaFilter(pl, "audio/x-raw,format=S16LE,rate=44100,channels=2,depth=16")
 vol = New MediaControl(pl, "volume")
 vol["volume"] = 1.0                         ' <1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%
 faa = New MediaControl(pl, "faac")
 flt2 = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".aac"

 src.LinkTo(par)
 par.LinkTo(fdc)
 fdc.LinkTo(con)
 con.LinkTo(res)
 res.LinkTo(flt1)
 flt1.LinkTo(vol)
 vol.LinkTo(faa)
 faa.LinkTo(flt2)
 flt2.LinkTo(snk)

 pl.Play()

 Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 While Not bo
   Write "\r\e[0mTempo di conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 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


Riferimenti

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