Ottenere la forma d'onda di un file audio mediante il Componente gb.media
Mediante opportuni plugin di GStreamer utilizzati con la Classe MediaControl del Componente gb.media unitamente alla Classe MediaPipeline, è possibile ottenere in un file immagine JPEG la forma d'onda di un file audio.
La creazione della forma d'onda dell'audio è gestita dal plugin "wavescope". Questo pluin dispone di una proprietà, chiamata style, che fornisce diversi aspetti della forma d'onda audio a seconda del valore impostato (0 - 3).
Va precisato che il valore del dettaglio "framerate" è composto da una frazione il cui denominatore rappresenta i secondi di durata rappresentati nella/dalla forma d'onda. Pertanto se si vuole ottenere la forma d'onda dell'intero file audio, la frazione da assegnare sarà: 1/durata_del_file_audio_in_secondi.
Il tipo di file immagine va impostato verso la fine al'interno di un oggetto MediaControl mediante apposito plugin, prevedendo nel caso anche il valore della qualità di risoluzione dell'immagine.
Mostriamo di seguito un esempio pratico per ottenere in un file immagine .jpg la forma d'onda di alcuni formati di file audio:
Ottenere la forma d'onda di un file WAV
Public Sub Main() Dim pl As MediaPipeline Dim src, dcd, cnv, scp, vid, jpg, snk As MediaControl Dim primofile, secondi As String primofile = "/tmp/primofile.jpg" ' Imposta la lunghezza in secondi dell'onda audio da ricavare del file audio: secondi = "5" pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.wav" ' "location" è una proprietà del plugin "filesrc" dcd = New MediaControl(pl, "wavparse") cnv = New MediaControl(pl, "audioconvert") scp = New MediaControl(pl, "wavescope") scp["style"] = 1 ' "style" è la proprietà del plugin "wavescope", che qui impostiamo a 1 vid = New MediaControl(pl, "video/x-raw,width=2000,heigth=600,framerate=1" &/ secondi) jpg = New MediaFilter(pl, "jpegenc") jpg["quality"] = 50 ' "quality" è la proprietà del plugin "jpegenc", che qui impostiamo a 50 snk = New MediaControl(pl, "filesink") snk["location"] = primofile ' Colleghiamo fra loro all'interno della pipeline gli oggetti MediaControl impostati: src.LinkTo(dcd) dcd.LinkTo(cnv) cnv.LinkTo(scp) scp.LinkTo(vid) vid.LinkTo(jpg) jpg.LinkTo(snk) pl.Play() Sleep Val(secondi) Copy primofile To "/tmp/forma_onda.jpg" pl.Stop() pl.Close() End
Ottenere la forma d'onda di un file MP3
Public Sub Main() Dim pl As MediaPipeline Dim src, dcd, cnv, scp, vid, jpg, snk As MediaControl Dim primofile, secondi As String primofile = "/tmp/primofile.jpg" ' Imposta la lunghezza in secondi dell'onda audio da ricavare del file audio: secondi = "5" pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.mp3" ' "location" è una proprietà del plugin "filesrc" dcd = New MediaControl(pl, "mad") cnv = New MediaControl(pl, "audioconvert") scp = New MediaControl(pl, "wavescope") scp["style"] = 1 ' "style" è la proprietà del plugin "wavescope", che qui impostiamo a 1 vid = New MediaControl(pl, "video/x-raw,width=2000,heigth=600,framerate=1" &/ secondi) jpg = New MediaFilter(pl, "jpegenc") jpg["quality"] = 50 ' "quality" è la proprietà del plugin "jpegenc", che qui impostiamo a 50 snk = New MediaControl(pl, "filesink") snk["location"] = primofile ' Colleghiamo fra loro all'interno della pipeline gli oggetti MediaControl impostati: src.LinkTo(dcd) dcd.LinkTo(cnv) cnv.LinkTo(scp) scp.LinkTo(vid) vid.LinkTo(jpg) jpg.LinkTo(snk) pl.Play() Sleep Val(secondi) Copy primofile To "/tmp/forma_onda.jpg" pl.Stop() pl.Close() End
Ottenere la forma d'onda di un file FLAC
Public Sub Main() Dim pl As MediaPipeline Dim src, fpa, fde, cnv, scp, vid, jpg, snk As MediaControl Dim primofile, secondi As String primofile = "/tmp/primofile.jpg" ' Imposta la lunghezza in secondi dell'onda audio da ricavare del file audio: secondi = "5" pl = New MediaPipeline src = New MediaControl(pl, "filesrc") src["location"] = "/percorso/del/file.flac" ' "location" è una proprietà del plugin "filesrc" fpa = New MediaControl(pl, "flacparse") fde = New MediaControl(pl, "flacdec") cnv = New MediaControl(pl, "audioconvert") scp = New MediaControl(pl, "wavescope") scp["style"] = 1 ' "style" è la proprietà del plugin "wavescope", che qui impostiamo a 1 vid = New MediaControl(pl, "video/x-raw,width=2000,heigth=600,framerate=1" &/ secondi) jpg = New MediaFilter(pl, "jpegenc") jpg["quality"] = 50 ' "quality" è la proprietà del plugin "jpegenc", che qui impostiamo a 50 snk = New MediaControl(pl, "filesink") snk["location"] = primofile ' Colleghiamo fra loro all'interno della pipeline gli oggetti MediaControl impostati: src.LinkTo(fpa) fpa.LinkTo(fde) fde.LinkTo(cnv) cnv.LinkTo(scp) scp.LinkTo(vid) vid.LinkTo(jpg) jpg.LinkTo(snk) pl.Play() Sleep Val(secondi) Copy primofile To "/tmp/forma_onda.jpg" pl.Stop() pl.Close() End