Visualizza wikitesto di Indirizzare l'uscita o l'entrata audio mediante il componente gb.media

L'individuazione del dispositivo audio consente di indirizzare in modo specifico la sorgente audio in entrata o dei dati audio in uscita.
<BR>In particolare sarà necessario definire:
<BR> - il numero identificativo della scheda audio;
<BR> - il numero identificativo del dispositivo audio;
<BR> - il numero identificativo del sub-dispositivo audio.
<BR>Questi tre valori possono essere individuati agevolmente nei file contenuti nel percorso "''/proc/asound/'' " e sono passati alla risorsa audio, utilizzata, mediante una stringa, che premette il simbolo "'''hw:'''", come nell'esempio seguente:
 "hw:0,1,0"
oppure con il simbolo "'''plughw:'''"
 "plughw:0,1,0"

Questa operazione di indirizzamento specifico è possibile anche con le risorse del componente ''gb.media'' di Gambas.

==Indirizzamento con la Classe "''MediaPlayer'' "==
===Dirigere l'audio in Uscita===
Usando la Classe ''MediaPlayer'' del Componente ''gb.media'', per identificare il dispositivo audio, al quale dirigere l'audio in uscita, è necessario usare la Proprietà ".Audio.Output", assegnando contestualmente ad essa il ''plugin'' di ''GStreamer'' - ad esempio - ''alsasink'' mediante la Classe ''MediaControl'' e specificando il dispositivo audio, con la stringa dei valori come sopra descritto.

====Esempio con la Classe "MediaPlayer"====
Mostriamo un semplice esempio, nel quale indirizzeremo l'uscita dei dati audio al dispositivo audio mostrato nell'esempio precedente.
 Public Sub Main()
  
  Dim mp As MediaPlayer
  
  With mp = New MediaPlayer
    .URL = Media.URL("<FONT Color=darkgreen>''/percorso/del/file/audio''</font>")
    .Audio.Output = New MediaControl(mp, "alsasink")
 <FONT Color=gray>' ''Specifica il dispositivo audio, al quale indirizzare i dati audio:''</font>
    .Audio'''.Output'''["'''device'''"] = "<FONT Color=red>hw:0,1,0</font>"
    .Play
  End With
  
  Repeat         <FONT Color=gray>' ''Consente a "MediaPlayer" di ritornare il corretto valore della durata del file audio''</font>
    Wait 0.01
  Until mp.Duration > 0.0
   
  Wait mp.Duration
  
  mp.Close
   
 End

===Dirigere l'audio in Entrata===
Per l'indirizzamento dei dati in Entrata la logica è analoga, ma si farà uso della Proprietà ".Audio.Input".


==Indirizzamento con la Classe "MediaPipeline"==
Usando, invece, la Classe ''MediaPipeline'', si assegnerà alla Proprietà "device" dell'Oggetto ''MediaControl'' - al quale sia stato passato al suo 2° argomento ugualmente il plugin ''alsasink'' - la stringa relativa all'individuazione del dispositivo audio utilizzabile.
<BR>Con questa Classe sembra essere necessario l'uso del simbolo "'''plughw:'''".

====Esempio con la Classe "MediaPipeline"====
In questo esempio si eseguirà un file di formato OGG-Vorbis:
 Public Sub Main()
 
  Dim pl As New MediaPipeline
  Dim src, dem, vor, snk As MediaControl
  
  src = New MediaControl(pl, "filesrc")
  src["location"] = "<FONT Color=darkgreen>''/percorso/del/file/audio.ogg''</font>"
  dem = New MediaControl(pl, "oggdemux")
  vor = New MediaControl(pl, "vorbisdec")
  snk = New MediaControl(pl, "alsasink")
  snk["'''device'''"] = "<FONT Color=red>plughw:1,0,0</font>"
   
  src.LinkTo(dem)
  dem.LinkLaterTo(vor)
  vor.LinkTo(snk)
  
  pl.Play
 
  Repeat
    Wait 0.01
  Until pl.Duration > 0.0
  
  Wait pl.Duration
 
  pl.Close
 
 End