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

 Library "libc:6"

' void exit (int __status)
' Terminate program execution with STATUS.
Private Extern exit_C(i As Integer) As Integer Exec "exit"


Public Sub Main()
 
 Dim pl As MediaPipeline
 Dim src, dcd, cnv, scp, vid, jpg, snk As MediaControl
  
  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/durata_del_file_audio_in_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"] = "/tmp/forma_onda.jpg"
  
' 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.State = Media.Playing
   pl.Play()
   Sleep 5
   
   exit_C(0)
  
End

Ottenere la forma d'onda di un file MP3

 Library "libc:6"

' void exit (int __status)
' Terminate program execution with STATUS.
Private Extern exit_C(i As Integer) As Integer Exec "exit"


Public Sub Main()
 
 Dim pl As MediaPipeline
 Dim src, dcd, cnv, scp, vid, jpg, snk As MediaControl
  
  pl = New MediaPipeline
  
  src = New MediaControl(pl, "filesrc")
  src["location"] = "/percorso/del/file.wav"   ' "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/durata_del_file_audio_in_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"] = "/tmp/forma_onda.jpg"
  
' 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.State = Media.Playing
   pl.Play()
   Sleep 5
   
   exit_C(0)
  
End

Ottenere la forma d'onda di un file FLAC

 Library "libc:6"

' void exit (int __status)
' Terminate program execution with STATUS.
Private Extern exit_C(i As Integer) As Integer Exec "exit"


Public Sub Main()
 
 Dim pl As MediaPipeline
 Dim src, fpa, fde, cnv, scp, vid, jpg, snk As MediaControl
  
  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/durata_del_file_audio_in_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"] = "/tmp/forma_onda.jpg"
  
' 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.State = Media.Playing
   pl.Play()
   Sleep 5
   
   exit_C(0)
  
End