Differenze tra le versioni di "Ottenere un file audio da un file MIDI mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
Riga 48: | Riga 48: | ||
pl.Play() | pl.Play() | ||
− | Print "Durata del file Midi: "; Time(0, 0, 0, pl.Duration * 1000) | + | Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000)) |
Repeat | Repeat | ||
− | Write | + | Write "\r\e[0mTempo convertito: \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000)) |
− | |||
Wait 0.01 | Wait 0.01 | ||
− | Until bo | + | Until bo |
Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".wav" | Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".wav" | ||
Riga 60: | Riga 59: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
− | |||
'''End''' | '''End''' | ||
Riga 111: | Riga 109: | ||
pl.Play() | pl.Play() | ||
− | Print "Durata del file Midi: "; Time( | + | Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000)) |
Repeat | Repeat | ||
− | Write | + | Write "\r\e[0mTempo convertito: \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000)) |
− | |||
Wait 0.01 | Wait 0.01 | ||
− | Until bo | + | Until bo |
Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".ogg" | Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".ogg" | ||
Riga 123: | Riga 120: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
− | + | ||
− | |||
'''End''' | '''End''' | ||
− | |||
'''Public''' Sub PLine_End() | '''Public''' Sub PLine_End() | ||
Riga 171: | Riga 166: | ||
pl.Play() | pl.Play() | ||
− | Print "Durata del file Midi: "; Time(0, 0, 0, pl.Duration * 1000) | + | Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000)) |
Repeat | Repeat | ||
− | Write | + | Write "\r\e[0mTempo convertito: \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000)) |
− | |||
Wait 0.01 | Wait 0.01 | ||
− | Until bo | + | Until bo |
− | + | ||
Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".mp3" | Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".mp3" | ||
pl.Stop | pl.Stop | ||
Riga 183: | Riga 177: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
− | + | ||
− | |||
'''End''' | '''End''' | ||
Versione delle 17:43, 17 set 2022
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, datigrezzi As String Dim pl As MediaPipeline Dim src, par, fdc, res, cnv, vol, enc, snk As MediaControl Dim flt As MediaFilter filemidi = "/percorso/del/file.mid" datigrezzi = Temp pl = New MediaPipeline As "PLine" src = New MediaControl(pl, "filesrc") src["location"] = filemidi par = New MediaControl(pl, "midiparse") fdc = New MediaControl(pl, "fluiddec") res = New MediaControl(pl, "audioresample") cnv = New MediaControl(pl, "audioconvert") flt = New MediaFilter(pl, "audio/x-raw,format=S16LE,rate=44100,channels=2,depth=16") vol = New MediaControl(pl, "volume") vol["volume"] = 4.0 ' "volume" è una proprietà dell'omonimo plugin "volume" enc = New MediaControl(pl, "wavenc") snk = New MediaControl(pl, "filesink") snk["location"] = datigrezzi src.LinkTo(par) par.LinkTo(fdc) fdc.LinkTo(res) res.LinkTo(cnv) cnv.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)) Repeat Write "\r\e[0mTempo convertito: \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000)) Wait 0.01 Until bo Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".wav" 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, datigrezzi As String Dim pl As MediaPipeline Dim src, par, fdc, res, cnv, vol, vor, mux, snk As MediaControl filemidi = "/percorso/del/file.mid" datigrezzi = Temp pl = New MediaPipeline As "PLine" src = New MediaControl(pl, "filesrc") src["location"] = filemidi par = New MediaControl(pl, "midiparse") fdc = New MediaControl(pl, "fluiddec") res = New MediaControl(pl, "audioresample") cnv = New MediaControl(pl, "audioconvert") vol = New MediaControl(pl, "volume") vol["volume"] = 4.0 ' "volume" è una proprietà dell'omonimo plugin "volume" vor = New MediaControl(pl, "vorbisenc") mux = New MediaControl(pl, "oggmux") snk = New MediaControl(pl, "filesink") snk["location"] = datigrezzi src.LinkTo(par) par.LinkTo(fdc) fdc.LinkTo(res) res.LinkTo(cnv) cnv.LinkTo(vor) vor.LinkTo(mux) mux.LinkTo(snk) pl.Play() Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000)) Repeat Write "\r\e[0mTempo convertito: \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000)) Wait 0.01 Until bo Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".ogg" pl.Stop pl.Close Print "\n\e[0mConversione terminata !" End Public Sub PLine_End() 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, datigrezzi As String Dim pl As MediaPipeline Dim src, par, fdc, res, cnv, vol, lam, snk As MediaControl filemidi = "/percorso/del/file.mid" datigrezzi = Temp src = New MediaControl(pl, "filesrc") src["location"] = filemidi par = New MediaControl(pl, "midiparse") fdc = New MediaControl(pl, "fluiddec") res = New MediaControl(pl, "audioresample") cnv = New MediaControl(pl, "audioconvert") vol = New MediaControl(pl, "volume") vol["volume"] = 4.0 ' "volume" è una proprietà dell'omonimo plugin "volume" lam = New MediaControl(pl, "lamemp3enc") snk = New MediaControl(pl, "filesink") snk["location"] = datigrezzi src.LinkTo(par) par.LinkTo(fdc) fdc.LinkTo(res) res.LinkTo(cnv) cnv.LinkTo(lam) lam.LinkTo(snk) pl.Play() Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000)) Repeat Write "\r\e[0mTempo convertito: \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000)) Wait 0.01 Until bo Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".mp3" pl.Stop pl.Close Print "\n\e[0mConversione terminata !" End Public Sub PLine_End() bo = True End