Differenze tra le versioni di "Convertire i formati audio mediante il Componente gb.media"
Riga 4: | Riga 4: | ||
===Conversione audio dal formato WAV al formato MP3=== | ===Conversione audio dal formato WAV al formato MP3=== | ||
+ | Private pl As MediaPipeline <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
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 11: | Riga 12: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, wprs, cnv, lam, snk As MediaControl | Dim src, wprs, cnv, lam, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>" | 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 50: | Riga 48: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 57: | Riga 53: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 69: | Riga 68: | ||
===Conversione audio dal formato WAV al formato OGG=== | ===Conversione audio dal formato WAV al formato OGG=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 74: | Riga 75: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, wprs, cnv, vor, mux, snk As MediaControl | Dim src, wprs, cnv, vor, mux, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>" | ||
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 92: | 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(fileaudio) & ".ogg" |
src.LinkTo(wprs) | src.LinkTo(wprs) | ||
Riga 111: | Riga 109: | ||
Until bo | Until bo | ||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 128: | Riga 128: | ||
===Conversione audio dal formato WAV al formato AAC=== | ===Conversione audio dal formato WAV al formato AAC=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 133: | Riga 135: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, wav, cnv, aac, snk As MediaControl | Dim src, wav, cnv, aac, snk As MediaControl | ||
Dim flt As MediaFilter | Dim flt As MediaFilter | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.wav''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 152: | Riga 151: | ||
flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100") | flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".aac" |
src.LinkTo(wav) | src.LinkTo(wav) | ||
Riga 171: | Riga 170: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 178: | Riga 175: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 190: | Riga 190: | ||
===Conversione audio dal formato MP3 al formato OGG=== | ===Conversione audio dal formato MP3 al formato OGG=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 195: | Riga 197: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, map, mad, vor, mux, snk As MediaControl | Dim src, map, mad, vor, mux, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 213: | Riga 212: | ||
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) | ||
Riga 231: | Riga 230: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 238: | Riga 235: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 250: | Riga 250: | ||
===Conversione audio dal formato MP3 al formato WAV=== | ===Conversione audio dal formato MP3 al formato WAV=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 255: | Riga 257: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, map, mad, wav, snk As MediaControl | Dim src, map, mad, wav, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 272: | Riga 271: | ||
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) | ||
Riga 289: | Riga 288: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 296: | Riga 293: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
− | + | ||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
+ | |||
End | End | ||
Riga 308: | Riga 308: | ||
===Conversione audio dal formato MP3 al formato AAC=== | ===Conversione audio dal formato MP3 al formato AAC=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 313: | Riga 315: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, map, mad, aac, snk As MediaControl | Dim src, map, mad, aac, snk As MediaControl | ||
Dim flt As MediaFilter | Dim flt As MediaFilter | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 331: | Riga 330: | ||
flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100") | flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".aac" |
src.LinkTo(map) | src.LinkTo(map) | ||
Riga 350: | Riga 349: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 357: | Riga 354: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 370: | Riga 370: | ||
===Conversione audio dal formato MP3 al formato RAW=== | ===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. | 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. | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 375: | Riga 377: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, par, dcd, snk As MediaControl | Dim src, par, dcd, snk As MediaControl | ||
Dim fil As MediaFilter | Dim fil As MediaFilter | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 388: | Riga 387: | ||
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>") | ||
fil = New MediaFilter(pl, "<FONT Color=#B22222>audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16</font>") | fil = 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) | ||
Riga 410: | Riga 409: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 429: | Riga 429: | ||
===Conversione audio dal formato OGG-Vorbis al formato MP3=== | ===Conversione audio dal formato OGG-Vorbis al formato MP3=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
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 436: | Riga 438: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, ogg, vor, cnv, lam, snk As MediaControl | Dim src, ogg, vor, cnv, lam, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>" | ||
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 457: | Riga 456: | ||
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 473: | Riga 472: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 480: | Riga 477: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 492: | Riga 492: | ||
===Conversione audio dal formato OGG-Vorbis al formato AAC=== | ===Conversione audio dal formato OGG-Vorbis al formato AAC=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 497: | Riga 499: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, ogg, vor, con, aac, snk As MediaControl | Dim src, ogg, vor, con, aac, snk As MediaControl | ||
Dim flt As MediaFilter | Dim flt As MediaFilter | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>" | ||
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 516: | Riga 515: | ||
flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100") | flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".acc" |
src.LinkTo(ogg) | src.LinkTo(ogg) | ||
Riga 533: | Riga 532: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 540: | Riga 537: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 553: | Riga 553: | ||
===Conversione audio dal formato RAW al formato WAV=== | ===Conversione audio dal formato RAW al formato WAV=== | ||
Il seguente codice prevede che i dati del file audio [https://it.wikipedia.org/wiki/Formato_Audio_RAW RAW] abbiano le seguenti caratteristiche: frequenza di campionamento = 44100; numero di canali = 2; modalità ''interleaved'' e [https://gstreamer.freedesktop.org/documentation/audio/audio-format.html?gi-language=c#GstAudioFormat formato-pcm] = S16LE. | Il seguente codice prevede che i dati del file audio [https://it.wikipedia.org/wiki/Formato_Audio_RAW RAW] abbiano le seguenti caratteristiche: frequenza di campionamento = 44100; numero di canali = 2; modalità ''interleaved'' e [https://gstreamer.freedesktop.org/documentation/audio/audio-format.html?gi-language=c#GstAudioFormat formato-pcm] = S16LE. | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 559: | Riga 561: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
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 579: | Riga 578: | ||
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 592: | Riga 591: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 599: | Riga 596: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 611: | Riga 611: | ||
===Conversione audio dal formato RAW al formato MP3=== | ===Conversione audio dal formato RAW al formato MP3=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | ||
Private Const QUALITY As String = "quality" | Private Const QUALITY As String = "quality" | ||
Riga 619: | Riga 621: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
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 642: | Riga 641: | ||
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 658: | Riga 657: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 665: | Riga 662: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 677: | Riga 677: | ||
===Conversione audio dal formato RAW al formato OGG-Vorbis=== | ===Conversione audio dal formato RAW al formato OGG-Vorbis=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 683: | Riga 685: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
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 705: | Riga 704: | ||
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 723: | Riga 722: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 730: | Riga 727: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 742: | Riga 742: | ||
===Conversione audio dal formato RAW al formato AAC=== | ===Conversione audio dal formato RAW al formato AAC=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 748: | Riga 750: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, raw, aac, snk As MediaControl | Dim src, raw, aac, snk As MediaControl | ||
Dim flt As MediaFilter | Dim flt As MediaFilter | ||
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 770: | Riga 769: | ||
flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100") | flt = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".aac" |
src.LinkTo(raw) | src.LinkTo(raw) | ||
Riga 784: | Riga 783: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 803: | Riga 803: | ||
===Conversione audio dal formato FLAC al formato WAV=== | ===Conversione audio dal formato FLAC al formato WAV=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 808: | Riga 810: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
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 824: | Riga 823: | ||
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 841: | Riga 840: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 860: | Riga 860: | ||
===Conversione audio dal formato FLAC al formato MP3=== | ===Conversione audio dal formato FLAC al formato MP3=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
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 867: | Riga 869: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
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 886: | Riga 885: | ||
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 903: | Riga 902: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 910: | Riga 907: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 922: | Riga 922: | ||
===Conversione audio dal formato FLAC al formato OGG-Vorbis=== | ===Conversione audio dal formato FLAC al formato OGG-Vorbis=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 927: | Riga 929: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
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 945: | 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 964: | Riga 963: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 983: | Riga 983: | ||
===Conversione audio dal formato AAC al formato WAV=== | ===Conversione audio dal formato AAC al formato WAV=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 988: | Riga 990: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
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 1 003: | Riga 1 002: | ||
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(aac) | src.LinkTo(aac) | ||
Riga 1 019: | Riga 1 018: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 1 038: | Riga 1 038: | ||
===Conversione audio dal formato AAC al formato MP3=== | ===Conversione audio dal formato AAC al formato MP3=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
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 1 045: | Riga 1 047: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, aac, lam, snk As MediaControl | Dim src, aac, lam, 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 1 063: | Riga 1 062: | ||
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 1 079: | Riga 1 078: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 1 098: | Riga 1 098: | ||
===Conversione audio dal formato AAC al formato OGG-Vorbis=== | ===Conversione audio dal formato AAC al formato OGG-Vorbis=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 1 103: | Riga 1 105: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
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 1 120: | Riga 1 119: | ||
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 1 138: | Riga 1 137: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 1 157: | Riga 1 157: | ||
===Conversione audio dal formato AAC al formato RAW=== | ===Conversione audio dal formato AAC al formato RAW=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 1 162: | Riga 1 164: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, aac, snk As MediaControl | Dim src, aac, snk As MediaControl | ||
Dim flt As MediaFilter | Dim flt As MediaFilter | ||
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 1 178: | Riga 1 177: | ||
flt = New MediaFilter(pl, "audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16") | 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 = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".raw" |
src.LinkTo(aac) | src.LinkTo(aac) | ||
Riga 1 194: | Riga 1 193: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 1 201: | Riga 1 198: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 1 213: | Riga 1 213: | ||
===Conversione audio dal formato AIFF al formato WAV=== | ===Conversione audio dal formato AIFF al formato WAV=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 1 218: | Riga 1 220: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, aif, cnv, wav, snk As MediaControl | Dim src, aif, cnv, wav, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 1 234: | Riga 1 233: | ||
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(aif) | src.LinkTo(aif) | ||
Riga 1 251: | Riga 1 250: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 1 270: | Riga 1 270: | ||
===Conversione audio dal formato AIFF al formato MP3=== | ===Conversione audio dal formato AIFF al formato MP3=== | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
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 1 277: | Riga 1 279: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, aif, cnv, lam, snk As MediaControl | Dim src, aif, cnv, lam, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 1 296: | Riga 1 295: | ||
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(aif) | src.LinkTo(aif) | ||
Riga 1 313: | Riga 1 312: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | + | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 1 337: | Riga 1 337: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, aif, cnv, vor, mux, snk As MediaControl | Dim src, aif, cnv, vor, mux, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/aiff''</font>" | ||
− | + | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 1 354: | Riga 1 351: | ||
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(aif) | src.LinkTo(aif) | ||
Riga 1 372: | Riga 1 369: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 1 379: | Riga 1 374: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 1 394: | Riga 1 392: | ||
Usando il plugin "decodebin" è possibile convertire qualsiasi formato audio in un altro desiderato. | Usando il plugin "decodebin" è possibile convertire qualsiasi formato audio in un altro desiderato. | ||
<BR>Mostriamo un esempio, nel quale sarà convertito un file audio "OGG" in un file audio "WAV", avente il seguente formato: frequenza di campionamento = 44100, risoluzione = 16 bit, canali = 2. | <BR>Mostriamo un esempio, nel quale sarà convertito un file audio "OGG" in un file audio "WAV", avente il seguente formato: frequenza di campionamento = 44100, risoluzione = 16 bit, canali = 2. | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 1 399: | Riga 1 399: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim fileaudio | + | Dim fileaudio As String |
− | |||
Dim src, dcb, con, flt, wav, snk As MediaControl | Dim src, dcb, con, flt, wav, snk As MediaControl | ||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file.ogg''</font>" | ||
− | |||
− | |||
pl = New MediaPipeline As "PLine" | pl = New MediaPipeline As "PLine" | ||
Riga 1 417: | Riga 1 414: | ||
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) | ||
Riga 1 432: | Riga 1 429: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Stop | pl.Stop | ||
Riga 1 439: | Riga 1 434: | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End | ||
Riga 1 451: | Riga 1 449: | ||
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: | 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: | ||
+ | <FONT Color=darkgray>' ''Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto''</font> | ||
+ | Private pl As MediaPipeline | ||
Private bo As Boolean | Private bo As Boolean | ||
Riga 1 456: | Riga 1 456: | ||
Public Sub Main() | Public Sub Main() | ||
− | Dim | + | Dim fileaudio As String |
Dim src, dcb, con, res, flt, wav, snk As MediaControl | Dim src, dcb, con, res, flt, wav, snk As MediaControl | ||
− | + | ||
− | |||
− | |||
fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/audio/da/covertire''</font>" | fileaudio = "<FONT Color=darkgreen>''/percorso/del/file/audio/da/covertire''</font>" | ||
Riga 1 473: | Riga 1 471: | ||
wav = New MediaFilter(pl, "wavenc") | wav = New MediaFilter(pl, "wavenc") | ||
snk = New MediaControl(pl, "filesink") | snk = New MediaControl(pl, "filesink") | ||
− | snk["location"] = | + | snk["location"] = "/tmp" &/ File.BaseName(fileaudio) & ".wav" |
+ | |||
src.LinkTo(dcb) | src.LinkTo(dcb) | ||
dcb.LinkLaterTo(con) | dcb.LinkLaterTo(con) | ||
Riga 1 491: | Riga 1 490: | ||
Wait 0.01 | Wait 0.01 | ||
Until bo | Until bo | ||
− | |||
− | |||
pl.Close | pl.Close | ||
Print "\n\e[0mConversione terminata !" | Print "\n\e[0mConversione terminata !" | ||
+ | |||
+ | <FONT Color=darkgray>' ''Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit":''</font> | ||
+ | Quit | ||
End | End |
Versione delle 17:35, 16 gen 2024
Utilizzando i plugin di GStreamer con le Classi MediaControl e MediaPipeline del Componente gb.media, è possibile effettuare diverse conversioni di file audio da un formato ad un altro.
Mostriamo di seguito qualche esempio pratico.
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 MP3 al formato OGG
- 5 Conversione audio dal formato MP3 al formato WAV
- 6 Conversione audio dal formato MP3 al formato AAC
- 7 Conversione audio dal formato MP3 al formato RAW
- 8 Conversione audio dal formato OGG-Vorbis al formato MP3
- 9 Conversione audio dal formato OGG-Vorbis al formato AAC
- 10 Conversione audio dal formato RAW al formato WAV
- 11 Conversione audio dal formato RAW al formato MP3
- 12 Conversione audio dal formato RAW al formato OGG-Vorbis
- 13 Conversione audio dal formato RAW al formato AAC
- 14 Conversione audio dal formato FLAC al formato WAV
- 15 Conversione audio dal formato FLAC al formato MP3
- 16 Conversione audio dal formato FLAC al formato OGG-Vorbis
- 17 Conversione audio dal formato AAC al formato WAV
- 18 Conversione audio dal formato AAC al formato MP3
- 19 Conversione audio dal formato AAC al formato OGG-Vorbis
- 20 Conversione audio dal formato AAC al formato RAW
- 21 Conversione audio dal formato AIFF al formato WAV
- 22 Conversione audio dal formato AIFF al formato MP3
- 23 Conversione audio dal formato AIFF al formato OGG-Vorbis
- 24 Conversione audio con il plugin "decodebin"
Conversione audio dal formato WAV al formato MP3
Private pl As MediaPipeline ' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private Const QUALITY As String = "quality" Private Const BITRATE As String = "bitrate" Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 pl.Stop pl.Close Print "\n\e[0mConversione terminata !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata bo = True End
Conversione audio dal formato WAV al formato OGG
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato WAV al formato AAC
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() ' Questo Evento viene sollevato, quando la conversione è terminata bo = True End
Conversione audio dal formato MP3 al formato OGG
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato MP3 al formato WAV
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !"
' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato MP3 al formato AAC
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit 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.
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String Dim src, par, dcd, snk As MediaControl Dim fil 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") fil = 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(fil) fil.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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato OGG-Vorbis al formato MP3
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private Const QUALITY As String = "quality" Private Const BITRATE As String = "bitrate" Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit 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
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit 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.
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato RAW al formato MP3
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline 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 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato RAW al formato OGG-Vorbis
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato RAW al formato AAC
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private Const GST_AUDIO_FORMAT_S16LE As Integer = 4 Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato FLAC al formato WAV
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato FLAC al formato MP3
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private Const QUALITY As String = "quality" Private Const BITRATE As String = "bitrate" Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato FLAC al formato OGG-Vorbis
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato AAC al formato WAV
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato AAC al formato MP3
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private Const QUALITY As String = "quality" Private Const BITRATE As String = "bitrate" Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato AAC al formato OGG-Vorbis
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato AAC al formato RAW
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato AIFF al formato WAV
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato AIFF al formato MP3
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private Const QUALITY As String = "quality" Private Const BITRATE As String = "bitrate" Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End
Conversione audio dal formato AIFF al formato OGG-Vorbis
Private bo As Boolean Public Sub Main() Dim fileaudio As String 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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() 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.
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String 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(fil) fil.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 !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() 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:
' Ponendo la variabile d'istanza di "MediaPipeline" come "Globale", non si otterrà un file vuoto Private pl As MediaPipeline Private bo As Boolean Public Sub Main() Dim fileaudio As String Dim src, dcb, con, res, flt, wav, snk As MediaControl fileaudio = "/percorso/del/file/audio/da/covertire" 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.Close Print "\n\e[0mConversione terminata !" ' Avendo posto la variabile d'istanza di "MediaPipeline" come "Globale", per chiudere il programma sarà necessaria infine l'istruzione "Quit": Quit End Public Sub PLine_End() bo = True End