Differenze tra le versioni di "Estrarre una traccia di un CD audio convertendola in un file OGG-Vorbis con il Componente gb.media"

Da Gambas-it.org - Wikipedia.
 
Riga 1: Riga 1:
−
Per estrarre una traccia di un CD audio e convertirla conseguentemente in un file OGG-Vorbis mediante il Componente ''gb.media'', è possibile utilizzare il plugin "''cdiocddasrc''" di ''GStreamer''.
+
Per estrarre una traccia di un CD audio e convertirla conseguentemente in un file OGG-Vorbis mediante il Componente ''gb.media'', è possibile utilizzare il plugin ''cdiocddasrc'' di ''GStreamer''.
  
 
Mostriamo un semplice esempio pratico:
 
Mostriamo un semplice esempio pratico:
−
  '''Public''' Sub Main()
+
  Public Sub Main()
−
 
+
 
   Dim pl As MediaPipeline
 
   Dim pl As MediaPipeline
 
   Dim src, cnv, enc, mux, snk As MediaControl
 
   Dim src, cnv, enc, mux, snk As MediaControl
 
    
 
    
−
  pl = New MediaPipeline
+
  pl = New MediaPipeline
 +
 
 +
  src = New MediaControl(pl, "cdiocddasrc")
 +
  src["track"] = 10
 +
  cnv = New MediaControl(pl, "audioconvert")
 +
  enc = New MediaControl(pl, "vorbisenc")
 +
  mux = New MediaControl(pl, "oggmux")
 +
  snk = New MediaControl(pl, "filesink")
 +
  snk["location"] = "/tmp/prova.ogg"
 
    
 
    
−
  src = New MediaControl(pl, "cdiocddasrc")
+
  src.LinkTo(cnv)
−
  src["track"] = 10
+
  cnv.LinkTo(enc)
−
  cnv = New MediaControl(pl, "audioconvert")
+
  enc.LinkTo(mux)
−
  enc = New MediaControl(pl, "vorbisenc")
+
  mux.LinkTo(snk)
−
  mux = New MediaControl(pl, "oggmux")
 
−
  snk = New MediaControl(pl, "filesink")
 
−
  snk["location"] = "/tmp/prova.ogg"
 
−
 
 
−
  src.LinkTo(cnv)
 
−
  cnv.LinkTo(enc)
 
−
  enc.LinkTo(mux)
 
−
  mux.LinkTo(snk)
 
 
    
 
    
 
  <FONT Color=gray>' ''Avvia la procedura di estrazione dei dati audio della traccia e della successiva conversione nel file OGG-Vorbis:''</font>
 
  <FONT Color=gray>' ''Avvia la procedura di estrazione dei dati audio della traccia e della successiva conversione nel file OGG-Vorbis:''</font>
−
  pl.Play()
+
  pl.Play()
 
    
 
    
−
  Do
+
  Repeat
 
  <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati audio processati:''</font>
 
  <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati audio processati:''</font>
−
    Write #File.Out, "\rDurata del brano: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)) & "  -  Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000))
+
    Write "\rDurata del brano: " & CStr(Time(0, 0, 0, pl.Duration * 1000)) & "  -  Tempo trascorso: " & CStr(Time(0, 0, 0, pl.Position * 1000))
−
    Wait 0.01
+
    Flush
−
  Loop Until (pl.Position >= pl.Duration)
+
    Wait 0.01
 +
  Until (pl.Position >= pl.Duration)
 +
 +
  pl.Stop()
 +
  pl.Close()
 
    
 
    
−
  pl.Stop()
+
  End
−
  pl.Close()
 
−
 
 
−
  '''End'''
 
  
  
Riga 40: Riga 41:
  
 
Mostriamo un semplice esempio pratico:
 
Mostriamo un semplice esempio pratico:
−
  '''Public''' Sub Main()
+
  Public Sub Main()
−
 
+
 
   Dim pl As MediaPipeline
 
   Dim pl As MediaPipeline
 
   Dim src, cnv, enc, mux, snk As MediaControl
 
   Dim src, cnv, enc, mux, snk As MediaControl
 
    
 
    
−
  pl = New MediaPipeline
+
  pl = New MediaPipeline
 
    
 
    
−
  src = New MediaControl(pl, "cdparanoiasrc")
+
  src = New MediaControl(pl, "cdparanoiasrc")
−
  src["track"] = 10
+
  src["track"] = 10
−
  cnv = New MediaControl(pl, "audioconvert")
+
  cnv = New MediaControl(pl, "audioconvert")
−
  enc = New MediaControl(pl, "vorbisenc")
+
  enc = New MediaControl(pl, "vorbisenc")
−
  mux = New MediaControl(pl, "oggmux")
+
  mux = New MediaControl(pl, "oggmux")
−
  snk = New MediaControl(pl, "filesink")
+
  snk = New MediaControl(pl, "filesink")
−
  snk["location"] = "/tmp/prova.ogg"
+
  snk["location"] = "/tmp/prova.ogg"
−
 
 
−
  src.LinkTo(cnv)
 
−
  cnv.LinkTo(enc)
 
−
  enc.LinkTo(mux)
 
−
  mux.LinkTo(snk)
 
 
    
 
    
 +
  src.LinkTo(cnv)
 +
  cnv.LinkTo(enc)
 +
  enc.LinkTo(mux)
 +
  mux.LinkTo(snk)
 +
 
 
  <FONT Color=gray>' ''Avvia la procedura di estrazione dei dati audio della traccia e della successiva conversione nel file OGG-Vorbis:''</font>
 
  <FONT Color=gray>' ''Avvia la procedura di estrazione dei dati audio della traccia e della successiva conversione nel file OGG-Vorbis:''</font>
−
  pl.Play()
+
  pl.Play()
 
    
 
    
−
  Do
+
  Repeat
 
  <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati audio processati:''</font>
 
  <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati audio processati:''</font>
−
    Write #File.Out, "\rDurata del brano: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)) & "  -  Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000))
+
    Write "\rDurata del brano: " & CStr(Time(0, 0, 0, pl.Duration * 1000)) & "  -  Tempo trascorso: " & CStr(Time(0, 0, 0, pl.Position * 1000))
−
    Wait 0.01
+
    Flush
−
  Loop
+
    Wait 0.01
−
    
+
  Until (pl.Position >= pl.Duration)
−
  pl.Stop()
+
−
  pl.Close()
+
   pl.Stop()
 +
  pl.Close()
 
    
 
    
−
  '''End'''
+
  End

Versione attuale delle 08:30, 30 lug 2023

Per estrarre una traccia di un CD audio e convertirla conseguentemente in un file OGG-Vorbis mediante il Componente gb.media, è possibile utilizzare il plugin cdiocddasrc di GStreamer.

Mostriamo un semplice esempio pratico: 

Public Sub Main()

 Dim pl As MediaPipeline
 Dim src, cnv, enc, mux, snk As MediaControl
 
 pl = New MediaPipeline
 
 src = New MediaControl(pl, "cdiocddasrc")
 src["track"] = 10
 cnv = New MediaControl(pl, "audioconvert")
 enc = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/prova.ogg"
 
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)
  
' Avvia la procedura di estrazione dei dati audio della traccia e della successiva conversione nel file OGG-Vorbis:
 pl.Play()
 
 Repeat
' Mostra in console la posizione, espressa in secondi, all'interno dei dati audio processati:
   Write "\rDurata del brano: " & CStr(Time(0, 0, 0, pl.Duration * 1000)) & "   -   Tempo trascorso: " & CStr(Time(0, 0, 0, pl.Position * 1000))
   Flush
   Wait 0.01
 Until (pl.Position >= pl.Duration)

 pl.Stop()
 pl.Close()
 
End


Analogamente possiamo utilizzare anche il plugin "cdparanoiasrc" di GStreamer.

Mostriamo un semplice esempio pratico: 

Public Sub Main()

 Dim pl As MediaPipeline
 Dim src, cnv, enc, mux, snk As MediaControl
 
 pl = New MediaPipeline
 
 src = New MediaControl(pl, "cdparanoiasrc")
 src["track"] = 10
 cnv = New MediaControl(pl, "audioconvert")
 enc = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/prova.ogg"
  
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)
 
' Avvia la procedura di estrazione dei dati audio della traccia e della successiva conversione nel file OGG-Vorbis:
 pl.Play()
 
 Repeat
' Mostra in console la posizione, espressa in secondi, all'interno dei dati audio processati:
   Write "\rDurata del brano: " & CStr(Time(0, 0, 0, pl.Duration * 1000)) & "   -   Tempo trascorso: " & CStr(Time(0, 0, 0, pl.Position * 1000))
   Flush
   Wait 0.01
 Until (pl.Position >= pl.Duration)

 pl.Stop()
 pl.Close()
  
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Estrarre_una_traccia_di_un_CD_audio_convertendola_in_un_file_OGG-Vorbis_con_il_Componente_gb.media&oldid=34619"