Differenze tra le versioni di "Convertire i formati audio mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
Riga 170: | Riga 170: | ||
====Conversione audio con il plugin "decodebin"==== | ====Conversione audio con il plugin "decodebin"==== | ||
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 | + | <BR>Mostriamo un esempio, nel quale sarà convertito un file audio "OGG" in un file audio "WAV": |
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Riga 183: | Riga 183: | ||
src = New MediaControl(pl, "filesrc") | src = New MediaControl(pl, "filesrc") | ||
− | src["location"] = "<FONT Color=gray>''/percorso/del/file.ogg''</font>" | + | src["location"] = "<FONT Color=gray>''/percorso/del/file.ogg''</font>" |
dcb = New MediaControl(pl, "<FONT Color=#B22222>decodebin</font>") | dcb = New MediaControl(pl, "<FONT Color=#B22222>decodebin</font>") |
Versione delle 08:47, 12 set 2022
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
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 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