Differenze tra le versioni di "Convertire i formati audio mediante il Componente gb.media"
(26 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 11: | Riga 11: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, wprs, cnv, lam, snk As MediaControl | Dim src, wprs, cnv, lam, snk As MediaControl | ||
− | fileaudio = "<FONT Color= | + | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>" |
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 31: | Riga 29: | ||
lam["bitrate"] = 192 <FONT Color=gray>' ''Imposta il valore del 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 = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3" |
<FONT Color=gray>' ''Collega fra loro all'interno della pipeline gli oggetti MediaControl impostati:''</font> | <FONT Color=gray>' ''Collega fra loro all'interno della pipeline gli oggetti MediaControl impostati:''</font> | ||
Riga 41: | Riga 39: | ||
pl.Play() | pl.Play() | ||
+ | While pl.Duration < 1 | ||
+ | Wait 0.01 | ||
+ | Wend | ||
Print "Durata del file wav: "; Time(0, 0, 0, pl.Duration * 1000) | Print "Durata del file wav: "; Time(0, 0, 0, pl.Duration * 1000) | ||
Riga 48: | Riga 49: | ||
Until bo | 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.Stop | ||
pl.Close | pl.Close | ||
Riga 71: | Riga 71: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, wprs, cnv, vor, mux, snk As MediaControl | Dim src, wprs, cnv, vor, mux, snk As MediaControl | ||
− | fileaudio = "<FONT Color= | + | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>" |
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 89: | Riga 87: | ||
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(fileaudio) & ".ogg" |
src.LinkTo(wprs) | src.LinkTo(wprs) | ||
Riga 99: | Riga 97: | ||
pl.Play() | pl.Play() | ||
+ | While pl.Duration < 1 | ||
+ | Wait 0.01 | ||
+ | Wend | ||
Print "Durata del file wav: "; Time(0, 0, 0, pl.Duration * 1000) | Print "Durata del file wav: "; Time(0, 0, 0, pl.Duration * 1000) | ||
Repeat | Repeat | ||
Riga 105: | Riga 106: | ||
Until bo | Until bo | ||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Riga 114: | Riga 114: | ||
− | Public Sub PLine_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 WAV al formato OPUS-Ogg=== | ||
+ | Private bo As Boolean | ||
+ | |||
+ | |||
+ | Public Sub Main() | ||
+ | |||
+ | Dim fileaudio As String | ||
+ | Dim pl As MediaPipeline | ||
+ | Dim src, wav, cnv, res, opu, mux, 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 | ||
+ | |||
+ | wav = New MediaControl(pl, "<FONT Color=#B22222>wavparse</font>") | ||
+ | cnv = New MediaControl(pl, "<FONT Color=#B22222>audioconvert</font>") | ||
+ | res = New MediaControl(pl, "<FONT Color=#B22222>audioresample</font>") | ||
+ | opu = New MediaControl(pl, "<FONT Color=#B22222>opusenc</font>") | ||
+ | opu["bitrate"] = 64000 | ||
+ | mux = New MediaControl(pl, "<FONT Color=#B22222>oggmux</font>") | ||
+ | snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>") | ||
+ | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".opus" | ||
+ | |||
+ | src.LinkTo(wav) | ||
+ | wav.LinkTo(cnv) | ||
+ | cnv.LinkTo(res) | ||
+ | res.LinkTo(opu) | ||
+ | opu.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 | bo = True | ||
Riga 127: | Riga 244: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, map, mad, vor, mux, snk As MediaControl | Dim src, map, mad, vor, mux, snk As MediaControl | ||
− | fileaudio = "<FONT Color= | + | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" |
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 139: | Riga 254: | ||
src = New MediaControl(pl, "filesrc") | src = New MediaControl(pl, "filesrc") | ||
src["location"] = fileaudio | src["location"] = fileaudio | ||
− | + | ||
map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>") | map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>") | ||
mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>") | mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>") | ||
Riga 145: | Riga 260: | ||
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(fileaudio) & ".ogg" |
− | + | ||
src.LinkTo(map) | src.LinkTo(map) | ||
map.LinkTo(mad) | map.LinkTo(mad) | ||
Riga 154: | Riga 269: | ||
pl.Play() | pl.Play() | ||
− | + | ||
While pl.Duration < 1 | While pl.Duration < 1 | ||
Wait 0.01 | Wait 0.01 | ||
Riga 163: | Riga 278: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 174: | Riga 287: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 187: | Riga 300: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, map, mad, wav, snk As MediaControl | Dim src, map, mad, wav, snk As MediaControl | ||
− | fileaudio = "<FONT Color= | + | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" |
− | + | pl = New MediaPipeline As "PLine" | |
− | |||
− | |||
src = New MediaControl(pl, "filesrc") | src = New MediaControl(pl, "filesrc") | ||
src["location"] = fileaudio | src["location"] = fileaudio | ||
− | + | ||
map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>") | map = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>") | ||
mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>") | mad = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>") | ||
wav = New MediaControl(pl, "<FONT Color=#B22222>wavenc</font>") | wav = 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(fileaudio) & ".wav" |
− | + | ||
src.LinkTo(map) | src.LinkTo(map) | ||
map.LinkTo(mad) | map.LinkTo(mad) | ||
mad.LinkTo(wav) | mad.LinkTo(wav) | ||
wav.LinkTo(snk) | wav.LinkTo(snk) | ||
− | + | ||
pl.Play() | pl.Play() | ||
Riga 222: | Riga 333: | ||
Until bo | 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.Stop | ||
Riga 232: | Riga 398: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 246: | Riga 412: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, par, dcd, snk As MediaControl | Dim src, par, dcd, snk As MediaControl | ||
− | Dim | + | Dim flt As MediaFilter |
− | |||
− | |||
− | + | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | |
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 259: | Riga 423: | ||
src = New MediaControl(pl, "filesrc") | src = New MediaControl(pl, "filesrc") | ||
src["location"] = fileaudio | src["location"] = fileaudio | ||
− | + | ||
par = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>") | par = New MediaControl(pl, "<FONT Color=#B22222>mpegaudioparse</font>") | ||
dcd = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>") | dcd = New MediaControl(pl, "<FONT Color=#B22222>mpg123audiodec</font>") | ||
− | + | flt = New MediaFilter(pl, "<FONT Color=#B22222>audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16</font>") | |
snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>") | snk = New MediaControl(pl, "<FONT Color=#B22222>filesink</font>") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".raw" |
src.LinkTo(par) | src.LinkTo(par) | ||
par.LinkTo(dcd) | par.LinkTo(dcd) | ||
− | dcd.LinkTo( | + | dcd.LinkTo(flt) |
− | + | flt.LinkTo(snk) | |
pl.Play() | pl.Play() | ||
Riga 281: | Riga 445: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Riga 292: | Riga 454: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 307: | Riga 469: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, ogg, vor, cnv, lam, snk As MediaControl | Dim src, ogg, vor, cnv, lam, snk As MediaControl | ||
− | fileaudio = "<FONT Color= | + | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>" |
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 328: | Riga 488: | ||
lam["bitrate"] = 192 ' Imposta il valore del Bitrate "Costante". | lam["bitrate"] = 192 ' Imposta il valore del Bitrate "Costante". | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3" |
src.LinkTo(ogg) | src.LinkTo(ogg) | ||
Riga 345: | Riga 505: | ||
Until bo | 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.Stop | ||
Riga 355: | Riga 569: | ||
− | Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 370: | Riga 584: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, raw, wav, snk As MediaControl | Dim src, raw, wav, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>" | ||
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 390: | Riga 602: | ||
wav = New MediaControl(pl, "wavenc") | wav = New MediaControl(pl, "wavenc") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav" |
src.LinkTo(raw) | src.LinkTo(raw) | ||
Riga 398: | Riga 610: | ||
pl.Play() | pl.Play() | ||
− | Print "Durata del file | + | Print "Durata del file raw: "; Time(0, 0, 0, pl.Duration * 1000) |
Repeat | Repeat | ||
Write "\r\e[0mTempo trascorso: \e[31m" & Time(0, 0, 0, pl.Position * 1000) | Write "\r\e[0mTempo trascorso: \e[31m" & Time(0, 0, 0, pl.Position * 1000) | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 414: | Riga 624: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 422: | Riga 632: | ||
===Conversione audio dal formato RAW al formato MP3=== | ===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 QUALITY As String = "quality" | ||
Private Const BITRATE As String = "bitrate" | Private Const BITRATE As String = "bitrate" | ||
Riga 429: | Riga 640: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, raw, lam, snk As MediaControl | Dim src, raw, lam, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 452: | Riga 661: | ||
lam["bitrate"] = 192 <FONT Color=gray>' ''Imposta il valore del Bitrate "Costante"''</font> | lam["bitrate"] = 192 <FONT Color=gray>' ''Imposta il valore del Bitrate "Costante"''</font> | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3" |
src.LinkTo(raw) | src.LinkTo(raw) | ||
Riga 463: | Riga 672: | ||
Wait 0.01 | Wait 0.01 | ||
Wend | Wend | ||
− | Print "Durata del file | + | Print "Durata del file raw: "; Time(0, 0, 0, pl.Duration * 1000) |
Repeat | Repeat | ||
Write "\r\e[0mTempo trascorso: \e[31m" & Time(0, 0, 0, pl.Position * 1000) | Write "\r\e[0mTempo trascorso: \e[31m" & Time(0, 0, 0, pl.Position * 1000) | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 479: | Riga 686: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 487: | Riga 694: | ||
===Conversione audio dal formato RAW al formato OGG-Vorbis=== | ===Conversione audio dal formato RAW al formato OGG-Vorbis=== | ||
+ | Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 492: | Riga 700: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, raw, cnv, vor, mux, snk As MediaControl | Dim src, raw, cnv, vor, mux, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/raw''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 514: | Riga 720: | ||
mux = New MediaControl(pl, "oggmux") | mux = New MediaControl(pl, "oggmux") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg" |
src.LinkTo(raw) | src.LinkTo(raw) | ||
Riga 527: | Riga 733: | ||
Wait 0.01 | Wait 0.01 | ||
Wend | Wend | ||
− | Print "Durata del file | + | Print "Durata del file raw: "; Time(0, 0, 0, pl.Duration * 1000) |
Repeat | Repeat | ||
Write "\r\e[0mTempo trascorso: \e[31m" & Time(0, 0, 0, pl.Position * 1000) | Write "\r\e[0mTempo trascorso: \e[31m" & Time(0, 0, 0, pl.Position * 1000) | ||
Riga 533: | Riga 739: | ||
Until bo | 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.Stop | ||
pl.Close | pl.Close | ||
Riga 543: | Riga 804: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 556: | Riga 817: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, flp, fld, wav, snk As MediaControl | Dim src, flp, fld, wav, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>" | ||
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 572: | Riga 831: | ||
wav = New MediaControl(pl, "wavenc") | wav = New MediaControl(pl, "wavenc") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav" |
src.LinkTo(flp) | src.LinkTo(flp) | ||
Riga 589: | Riga 848: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Riga 600: | Riga 857: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 615: | Riga 872: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, flp, fld, lam, snk As MediaControl | Dim src, flp, fld, lam, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 634: | Riga 889: | ||
lam["bitrate"] = 192 | lam["bitrate"] = 192 | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3" |
src.LinkTo(flp) | src.LinkTo(flp) | ||
Riga 651: | Riga 906: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 662: | Riga 915: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 675: | Riga 928: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, flp, fld, cnv, vor, mux, snk As MediaControl | Dim src, flp, fld, cnv, vor, mux, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/flac''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 693: | Riga 944: | ||
mux = New MediaControl(pl, "oggmux") | mux = New MediaControl(pl, "oggmux") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg" |
src.LinkTo(flp) | src.LinkTo(flp) | ||
Riga 712: | Riga 963: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Riga 723: | Riga 972: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 730: | Riga 979: | ||
− | ===Conversione audio dal formato | + | ===Conversione audio dal formato AAC al formato WAV=== |
Private bo As Boolean | Private bo As Boolean | ||
Riga 736: | Riga 985: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, aac, wav, snk As MediaControl | Dim src, aac, wav, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 748: | Riga 995: | ||
src = New MediaControl(pl, "filesrc") | src = New MediaControl(pl, "filesrc") | ||
src["location"] = fileaudio | src["location"] = fileaudio | ||
− | aac = New MediaControl(pl, "faad") | + | aac = New MediaControl(pl, "faad") <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font> |
wav = New MediaControl(pl, "wavenc") | wav = New MediaControl(pl, "wavenc") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav" |
− | src.LinkTo( | + | src.LinkTo(aac) |
− | + | aac.LinkTo(wav) | |
− | |||
wav.LinkTo(snk) | wav.LinkTo(snk) | ||
Riga 768: | Riga 1 014: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Riga 779: | Riga 1 023: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 794: | Riga 1 038: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, aac, lam, snk As MediaControl | Dim src, aac, lam, snk As MediaControl | ||
− | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/ | + | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>" |
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 806: | Riga 1 048: | ||
src = New MediaControl(pl, "filesrc") | src = New MediaControl(pl, "filesrc") | ||
src["location"] = fileaudio | src["location"] = fileaudio | ||
− | aac = New MediaControl(pl, "faad") | + | aac = New MediaControl(pl, "faad") <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font> |
lam = New MediaControl(pl, "lamemp3enc") | lam = New MediaControl(pl, "lamemp3enc") | ||
lam["target"] = BITRATE | lam["target"] = BITRATE | ||
Riga 812: | Riga 1 054: | ||
lam["bitrate"] = 192 | lam["bitrate"] = 192 | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".mp3" |
src.LinkTo(aac) | src.LinkTo(aac) | ||
Riga 828: | Riga 1 070: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Riga 839: | Riga 1 079: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 852: | Riga 1 092: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, aac, cnv, vor, mux, snk As MediaControl | Dim src, aac, cnv, vor, mux, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aac''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 864: | Riga 1 102: | ||
src = New MediaControl(pl, "filesrc") | src = New MediaControl(pl, "filesrc") | ||
src["location"] = fileaudio | src["location"] = fileaudio | ||
− | aac = New MediaControl(pl, "faad") | + | aac = New MediaControl(pl, "faad") <FONT Color=gray>' ''oppure anche "'''voaacenc'''"''</font> |
cnv = New MediaControl(pl, "audioconvert") | cnv = New MediaControl(pl, "audioconvert") | ||
vor = New MediaControl(pl, "vorbisenc") | vor = New MediaControl(pl, "vorbisenc") | ||
mux = New MediaControl(pl, "oggmux") | mux = New MediaControl(pl, "oggmux") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".ogg" |
src.LinkTo(aac) | src.LinkTo(aac) | ||
Riga 887: | Riga 1 125: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | 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 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 = "<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> | ||
+ | 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() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> | ||
+ | |||
+ | 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 = "<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 | ||
+ | |||
+ | 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 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 = "<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 | ||
+ | |||
+ | 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 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 = "<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") | ||
+ | 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.Stop | ||
Riga 898: | Riga 1 352: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
Riga 914: | Riga 1 368: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
Dim src, dcb, con, flt, wav, snk As MediaControl | Dim src, dcb, con, flt, wav, snk As MediaControl | ||
− | fileaudio = "<FONT Color= | + | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>" |
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 932: | Riga 1 384: | ||
wav = New MediaControl(pl, "<FONT Color=#B22222>wavenc</font>") | wav = 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(fileaudio) & ".wav" |
src.LinkTo(dcb) | src.LinkTo(dcb) | ||
dcb.LinkLaterTo(con) | dcb.LinkLaterTo(con) | ||
− | con.LinkTo( | + | con.LinkTo(flt) |
− | + | flt.LinkTo(wav) | |
wav.LinkTo(snk) | wav.LinkTo(snk) | ||
Riga 948: | Riga 1 400: | ||
Until bo | 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 | ||
+ | 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" | ||
+ | |||
+ | src = New MediaControl(pl, "filesrc") | ||
+ | src["location"] = fileaudio | ||
+ | dcb = New MediaControl(pl, "decodebin") | ||
+ | con = New MediaControl(pl, "audioconvert") | ||
+ | res = New MediaControl(pl, "audioresample") <FONT Color=gray>' ''Consente di modificare le caratteristiche del file audio''</font> | ||
+ | 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.Stop | ||
Riga 958: | Riga 1 465: | ||
− | Public Sub PLine_End() | + | Public Sub PLine_End() <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font> |
bo = True | bo = True | ||
− | + | ||
End | End |
Versione attuale delle 04:23, 22 lug 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.
Indice
- 1 Conversione audio dal formato WAV al formato MP3
- 2 Conversione audio dal formato WAV al formato OGG
- 3 Conversione audio dal formato WAV al formato AAC
- 4 Conversione audio dal formato WAV al formato OPUS-Ogg
- 5 Conversione audio dal formato MP3 al formato OGG
- 6 Conversione audio dal formato MP3 al formato WAV
- 7 Conversione audio dal formato MP3 al formato AAC
- 8 Conversione audio dal formato MP3 al formato RAW
- 9 Conversione audio dal formato OGG-Vorbis al formato MP3
- 10 Conversione audio dal formato OGG-Vorbis al formato AAC
- 11 Conversione audio dal formato RAW al formato WAV
- 12 Conversione audio dal formato RAW al formato MP3
- 13 Conversione audio dal formato RAW al formato OGG-Vorbis
- 14 Conversione audio dal formato RAW al formato AAC
- 15 Conversione audio dal formato FLAC al formato WAV
- 16 Conversione audio dal formato FLAC al formato MP3
- 17 Conversione audio dal formato FLAC al formato OGG-Vorbis
- 18 Conversione audio dal formato AAC al formato WAV
- 19 Conversione audio dal formato AAC al formato MP3
- 20 Conversione audio dal formato AAC al formato OGG-Vorbis
- 21 Conversione audio dal formato AAC al formato RAW
- 22 Conversione audio dal formato AIFF al formato WAV
- 23 Conversione audio dal formato AIFF al formato MP3
- 24 Conversione audio dal formato AIFF al formato OGG-Vorbis
- 25 Conversione audio con il plugin "decodebin"
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 WAV al formato OPUS-Ogg
Private bo As Boolean Public Sub Main() Dim fileaudio As String Dim pl As MediaPipeline Dim src, wav, cnv, res, opu, mux, snk As MediaControl 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") res = New MediaControl(pl, "audioresample") opu = New MediaControl(pl, "opusenc") opu["bitrate"] = 64000 mux = New MediaControl(pl, "oggmux") snk = New MediaControl(pl, "filesink") snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".opus" src.LinkTo(wav) wav.LinkTo(cnv) cnv.LinkTo(res) res.LinkTo(opu) opu.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 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