Convertire i formati audio mediante il Componente gb.media
Da Gambas-it.org - Wikipedia.
Versione del 13 set 2022 alle 15:53 di Vuott (Discussione | contributi)
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 MP3 al formato OGG
- 4 Conversione audio dal formato MP3 al formato WAV
- 5 Conversione audio dal formato MP3 al formato RAW
- 6 Conversione audio con il plugin "decodebin"
Conversione audio dal formato WAV al formato MP3
Public Sub Main() Dim pl As MediaPipeline Dim src, wprs, cnv, lam, snk As MediaControl Dim primofile As String Dim i As Integer primofile = "/tmp/primofile" pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.wav" ' "location" è una proprietà del plugin "filesrc" wprs = New MediaControl(pl, "wavparse") cnv = New MediaControl(pl, "audioconvert") lam = New MediaControl(pl, "lamemp3enc") snk = New MediaControl(pl, "filesink") snk["location"] = primofile ' Colleghiamo fra loro all'interno della pipeline gli oggetti MediaControl impostati: src.LinkTo(wprs) wprs.LinkTo(cnv) cnv.LinkTo(lam) lam.LinkTo(snk) pl.Play() Repeat i = Stat(primofile).Size Wait 0.5 Until Stat(primofile).Size == i Copy primofile To "/tmp/file.mp3" pl.Stop pl.Close End
Conversione audio dal formato WAV al formato OGG
Public Sub Main() Dim pl As MediaPipeline Dim src, wprs, cnv, vor, mux, snk As MediaControl Dim primofile As String Dim i As Integer primofile = "/tmp/primofile" pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.wav" ' "location" è una proprietà del plugin "filesrc" 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"] = primofile src.LinkTo(wprs) wprs.LinkTo(cnv) cnv.LinkTo(vor) vor.LinkTo(mux) mux.LinkTo(snk) pl.Play() Repeat i = Stat(primofile).Size Wait 0.7 Until Stat(primofile).Size == i Copy primofile To "/tmp/file.ogg" pl.Stop pl.Close End
Conversione audio dal formato MP3 al formato OGG
Public Sub Main() Dim pl As MediaPipeline Dim src, map, mad, vor, mux, snk As MediaControl Dim primofile As String Dim i As Integer primofile = "/tmp/primofile" pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.mp3" ' "location" è una proprietà del plugin "filesrc" 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"] = primofile src.LinkTo(map) map.LinkTo(mad) mad.LinkTo(vor) vor.LinkTo(mux) mux.LinkTo(snk) pl.Play() Repeat i = Stat(primofile).Size Wait 0.7 Until Stat(primofile).Size == i Copy primofile To "/tmp/file.ogg" pl.Stop pl.Close End
Conversione audio dal formato MP3 al formato WAV
Public Sub Main() Dim pl As MediaPipeline Dim src, map, mad, wav, snk As MediaControl Dim primofile As String Dim i As Integer primofile = "/tmp/primofile" pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.mp3" map = New MediaControl(pl, "mpegaudioparse") mad = New MediaControl(pl, "mpg123audiodec") wav = New MediaControl(pl, "wavenc") snk = New MediaControl(pl, "filesink") snk["location"] = primofile src.LinkTo(map) map.LinkTo(mad) mad.LinkTo(wav) wav.LinkTo(snk) pl.Play() Repeat i = Stat(primofile).Size Wait 0.7 Until Stat(primofile).Size == i Copy primofile To "/tmp/file.wav" pl.Stop pl.Close End
Conversione audio dal formato MP3 al formato RAW
Con il seguente codice si otterranno da un file MP3 i dati audio grezzi.
Public Sub Main() Dim pl As MediaPipeline Dim src, par, dcd, snk As MediaControl Dim fil As MediaFilter Dim appoggio As String Dim i As Integer appoggio = Temp pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.mp3" par = New MediaControl(pl, "mpegaudioparse") dcd = New MediaControl(pl, "mpg123audiodec") fil = New MediaControl(pl, "audio/x-raw, format=S16LE, rate=44100, channels=2, endianness=1234, width=16, depth=16") snk = New MediaControl(pl, "filesink") snk["location"] = appoggio src.LinkTo(par) par.LinkTo(dcd) dcd.LinkTo(fil) fil.LinkTo(snk) pl.Play() Repeat i = Stat(appoggio).Size Wait 1 Until Stat(appoggio).Size == i If Exist("/tmp/file_RAW.raw") Then Kill "/tmp/file_RAW.raw" Copy appoggio To "/tmp/file_RAW.raw" pl.Stop pl.Close 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":
Public Sub Main() Dim pl As MediaPipeline Dim src, dcb, con, wav, snk As MediaControl Dim primofile As String Dim i As Integer primofile = "/tmp/primofile" pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.ogg" dcb = New MediaControl(pl, "decodebin") con = New MediaControl(pl, "audioconvert") wav = New MediaControl(pl, "wavenc") snk = New MediaControl(pl, "filesink") snk["location"] = primofile ' Colleghiamo fra loro all'interno della pipeline gli oggetti MediaControl impostati: src.LinkTo(dcb) dcb.LinkLaterTo(con) con.LinkTo(wav) wav.LinkTo(snk) pl.Play() Repeat i = Stat(primofile).Size Wait 0.7 Until Stat(primofile).Size == i Copy primofile To "/tmp/file.wav" pl.Stop pl.Close End