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