Differenze tra le versioni di "Ottenere un file audio da un file MIDI mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
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: | ||
Riga 10: | Riga 9: | ||
− | + | Public Sub Main() | |
− | Dim filemidi | + | Dim filemidi As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, par, fdc, con, res, vol, enc, snk As MediaControl | Dim src, par, fdc, con, res, vol, enc, snk As MediaControl | ||
Dim flt As MediaFilter | Dim flt As MediaFilter | ||
− | + | ||
− | filemidi = "<FONT color= | + | filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>" |
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | 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 | src["location"] = filemidi | ||
Riga 32: | Riga 29: | ||
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,format=S16LE,rate=44100,channels=2,depth=16</font>") | ||
vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>") | vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>") | ||
− | vol["volume"] = 0. | + | 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"] = | + | snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".wav" |
src.LinkTo(par) | src.LinkTo(par) | ||
Riga 45: | Riga 42: | ||
vol.LinkTo(enc) | vol.LinkTo(enc) | ||
enc.LinkTo(snk) | enc.LinkTo(snk) | ||
− | + | ||
pl.Play() | pl.Play() | ||
− | + | ||
Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000)) | Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000)) | ||
While Not bo | While Not bo | ||
Riga 53: | Riga 50: | ||
Wait 0.01 | Wait 0.01 | ||
Wend | Wend | ||
− | |||
− | |||
+ | pl.Stop | ||
pl.Close | pl.Close | ||
− | + | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
− | |||
− | |||
− | + | End | |
+ | |||
+ | |||
+ | Public Sub PLine_'''End'''() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> | ||
bo = True | bo = True | ||
− | + | 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 | ||
− | + | Public Sub Main() | |
− | Dim filemidi | + | Dim filemidi As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, par, fdc, con, res, vol, vor, mux, snk As MediaControl | Dim src, par, fdc, con, res, vol, vor, mux, snk As MediaControl | ||
− | filemidi = "<FONT color= | + | filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>" |
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 95: | Riga 90: | ||
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"] = | + | snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".ogg" |
src.LinkTo(par) | src.LinkTo(par) | ||
Riga 113: | Riga 108: | ||
Wait 0.01 | Wait 0.01 | ||
Wend | Wend | ||
− | |||
− | |||
+ | pl.Stop | ||
pl.Close | pl.Close | ||
− | + | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
− | + | End | |
− | + | Public Sub PLine_End() | |
bo = True | bo = True | ||
− | + | 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 | ||
− | + | Public Sub Main() | |
− | Dim filemidi | + | Dim filemidi As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, par, fdc, con, res, vol, lam, snk As MediaControl | Dim src, par, fdc, con, res, vol, lam, snk As MediaControl | ||
− | filemidi = "<FONT color= | + | filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>" |
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 145: | Riga 137: | ||
src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>") | src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>") | ||
src["location"] = filemidi | 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>") | ||
Riga 154: | Riga 146: | ||
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"] = | + | snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".mp3" |
src.LinkTo(par) | src.LinkTo(par) | ||
Riga 172: | Riga 164: | ||
Wend | Wend | ||
− | + | pl.Stop | |
+ | pl.Close | ||
+ | |||
+ | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | End | ||
+ | |||
+ | |||
+ | Public Sub PLine_End() | ||
+ | |||
+ | 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, enc, 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 | ||
+ | |||
+ | 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> | ||
+ | enc = New MediaControl(pl, "<FONT color=#B22222>wavenc</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(enc) | ||
+ | enc.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 | pl.Close | ||
− | + | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
− | + | End | |
+ | |||
− | ''' | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
− | + | ||
− | + | End | |
Versione delle 19:08, 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() 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() 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, enc, 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% enc = New MediaControl(pl, "wavenc") 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(enc) enc.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