Differenze tra le versioni di "Ottenere un semplice spettroscopio mediante il Componente gb.media"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Usando il plugin "[https://gstreamer.freedesktop.org/documentation/audiovisualizers/spectrascope.html?gi-language=c spettrascope]" èpossibile sottoporre il flusso di dati aud...")
 
Riga 1: Riga 1:
Usando il plugin "[https://gstreamer.freedesktop.org/documentation/audiovisualizers/spectrascope.html?gi-language=c spettrascope]" èpossibile sottoporre il flusso di dati audio a un semplice spettroscopio.
+
Usando il plugin "[https://gstreamer.freedesktop.org/documentation/audiovisualizers/spectrascope.html?gi-language=c spectrascope]" èpossibile sottoporre il flusso di dati audio a un semplice spettroscopio.
  
 
Mostriamo un esempio con un file audio gestito con il plugin decodificatore "decodebin":
 
Mostriamo un esempio con un file audio gestito con il plugin decodificatore "decodebin":

Versione delle 09:29, 6 nov 2023

Usando il plugin "spectrascope" èpossibile sottoporre il flusso di dati audio a un semplice spettroscopio.

Mostriamo un esempio con un file audio gestito con il plugin decodificatore "decodebin":

Private bo As Boolean


Public Sub Main()

 Dim pl As MediaPipeline
 Dim src, dcb, con, spe, snk As MediaControl
 
 pl = New MediaPipeline As "MPipe"
 
 src = New MediaControl(pl, "filesrc")
 src["location"] = "/percorso/del/file/audio"
 dcb = New MediaControl(pl, "decodebin")
 con = New MediaControl(pl, "audioconvert")
 spe = New MediaControl(pl, "spectrascope")
 snk = New MediaControl(pl, "ximagesink")

 src.LinkTo(dcb)
 dcb.LinkLaterTo(con)
 con.LinkTo(spe)
 spe.LinkTo(snk)

 pl.Play()

 While pl.Duration < 1
   Wait 0.01
 Wend
 Print "La durata del file audio è: "; Time(0, 0, 0, pl.Duration * 1000)
 Repeat 
   Write "\rTempo Trascorso: " & Time(0, 0, 0, pl.Position * 1000)
   Wait 0.01
 Until bo

 pl.Close()

End


Public Sub MPipe_End()

 bo = True

End