Versione delle 16:46, 25 mag 2016

La libreria di VLC mette a disposizione funzioni e risorse per eseguire una registrazione sonora e di salvarla in un file audio. Il dispositivo esterno riproduttore sonoro, del quale viene catturato l'audio, può essere ovviamente un microfono, un CD Audio, il sonoro di un DVD, o altri dispositivi.

E' necessario avere installata nel sistema e richiamare con Gambas la libreria dinamica condivisa: "libvlc.so.5.4.0"

Mostriamo un semplice esempio pratico, nel quali si registrerà il sonoro da un microfono. I dati vengono quindi salvati in un file audio Ogg-Vorbis: [^{Note 1}]

Private bo As Boolean


Library "libvlc:5.4.0"

' libvlc_instance_t * libvlc_new (int argc, const char *const *argv)
' Create And initialize a libvlc instance.
Private Extern libvlc_new(argc As Integer, argv As String[]) As Pointer

' libvlc_media_t *libvlc_media_new_location(libvlc_instance_t *p_instance, const char * psz_mrl)
' Create a media with a certain given media resource location, for instance a valid URL.
Private Extern libvlc_media_new_location(p_instance As Pointer, path As String) As Pointer

' libvlc_media_player_t * libvlc_media_player_new(libvlc_instance_t *p_libvlc_instance)
' Create an empty Media Player object.
Private Extern libvlc_media_player_new(p_libvlc_instance As Pointer) As Pointer

' void libvlc_media_player_set_media(libvlc_media_player_t *p_mi, libvlc_media_t *p_md)
' Set the media that will be used by the media_player.
Private Extern libvlc_media_player_set_media(p_md As Pointer, mp As Pointer)

' int libvlc_media_player_play (libvlc_media_player_t * p_mi)
' Play the video file.
Private Extern libvlc_media_player_play(p_mi As Pointer) As Integer

' libvlc_time_t libvlc_media_player_get_time(libvlc_media_player_t * p_mi)
' Get the current movie time (in ms).
Private Extern libvlc_media_player_get_time(p_mi As Pointer) As Integer

' libvlc_release (libvlc_instance_t * p_instance)
' Decrement the reference count of a libvlc instance, and destroy it if it reaches zero.
Private Extern libvlc_release(p_instance As Pointer)


Public Sub Form_Open()
 
  TextBox1.Alignment = Align.Right
  
End


Public Sub Button1_Click()
 
 Dim inst, mp, m As Pointer
 Dim ss As String[]
 Dim argc as Integer
      
' Vengono impostate le opzioni ed il percorso ove sarà salvato il nuovo file audio.
  ss = ["--sout=#transcode{acodec=vorb,ab=96,channels=2}:standard{access=file,mux=ogg,dst=/tmp/audio.ogg}"] 
     
' Imposta il valore del 1° argomento della funzione "libvlc_new()":
  argc = 1
  
' Inizializza la libreria VLC:
  inst = libvlc_new(argc, ss)
  
' Crea il media player:
  mp = libvlc_media_player_new(inst)
  
' Crea un nuovo oggetto multimedia. Nel secondo argomento della funzione va specificato il sistema audio prescelto.
' In questo caso, impostando il sistema ALSA, si potrà registrare da un microfono.
  m = libvlc_media_new_location(inst, "alsa://")
  
' In alternativa al microfono è possibile, ad esempio, registrare e riprodurre contemporaneamente la traccia selezionata da CD Audio.
' In tal caso si dovrà avere cura di dichiarare con "Extern" la funzione esterna di VLC "libvlc_media_new_path()".
 ' m = libvlc_media_new_path(inst, "/run/user/1000/gvfs/cdda:host=sr0/Track 1.wav)
  
  libvlc_media_player_set_media(mp, m)
  
' Avvia la conversione del file audio da parte del media player:
  libvlc_media_player_play(mp)
  
  While bo = False
    TextBox1.Text = Str(Date(0, 0, 0, 0, 0, 0, libvlc_media_player_get_time(mp)))
' Il Wait consente di agire su altri oggetti posti sul Form:
    Wait 0.01
  Wend
   
' Chiude la libreria VLC ed il programma:
  libvlc_release(inst)
  Me.Close
  
End


Public Sub Button2_Click()
  
' Causa l'arresto della conversione, la chiusura della libreria VLC e del programma:
  bo = True
  
End

Note

[1] Le ricerche sono state effettuate dal membro, chiamato sandro, del forum di gambas-it.org.

Riferimenti

• https://wiki.videolan.org/
• http://www.videolan.org/developers/vlc/doc/doxygen/html/index.html
• https://wiki.videolan.org/Libvlc