Differenze tra le versioni di "Registrare il sonoro e salvarlo in un file audio con le funzioni esterne del API di VLC"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "La libreria di '''VLC''' mette a disposizione funzioni e risorse per eseguire una registrazione sonora e di ascoltarla contemporaneamente, nonché di salvarla in un file audio...") |
|||
Riga 1: | Riga 1: | ||
− | La libreria di '''VLC''' mette a disposizione funzioni e risorse per eseguire una registrazione sonora e | + | 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: | ||
+ | Private bo As Boolean | ||
+ | |||
+ | |||
+ | Library "libvlc:5.4.0" | ||
+ | |||
+ | <FONT Color=gray>' ''libvlc_instance_t * libvlc_new (int argc, const char *const *argv)'' | ||
+ | ' ''Create And initialize a libvlc instance.''</font> | ||
+ | Private Extern libvlc_new(argc As Integer, argv As String[]) As Pointer | ||
+ | |||
+ | <FONT Color=gray>' ''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.''</font> | ||
+ | Private Extern libvlc_media_new_location(p_instance As Pointer, path As String) As Pointer | ||
+ | |||
+ | <FONT Color=gray>' ''libvlc_media_player_t * libvlc_media_player_new(libvlc_instance_t *p_libvlc_instance)'' | ||
+ | ' ''Create an empty Media Player object.''</font> | ||
+ | Private Extern libvlc_media_player_new(p_libvlc_instance As Pointer) As Pointer | ||
+ | |||
+ | <FONT Color=gray>' ''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.''</font> | ||
+ | Private Extern libvlc_media_player_set_media(p_md As Pointer, mp As Pointer) | ||
+ | |||
+ | <FONT Color=gray>' ''int libvlc_media_player_play (libvlc_media_player_t * p_mi)'' | ||
+ | ' ''Play the video file.''</font> | ||
+ | Private Extern libvlc_media_player_play(p_mi As Pointer) As Integer | ||
+ | |||
+ | <FONT Color=gray>' ''libvlc_time_t libvlc_media_player_get_time(libvlc_media_player_t * p_mi)'' | ||
+ | ' ''Get the current movie time (in ms).''</font> | ||
+ | Private Extern libvlc_media_player_get_time(p_mi As Pointer) As Integer | ||
+ | |||
+ | <FONT Color=gray>' ''libvlc_release (libvlc_instance_t * p_instance)'' | ||
+ | ' ''Decrement the reference count of a libvlc instance, and destroy it if it reaches zero.''</font> | ||
+ | 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 | ||
+ | |||
+ | <FONT Color=gray>' ''Vengono impostate le opzioni ed il percorso ove sarà salvato il nuovo file audio.''</font> | ||
+ | ss = ["--sout=#transcode{acodec=vorb,ab=96,channels=2}:standard{access=file,mux=ogg,dst=/tmp/audio.ogg"}}"] | ||
+ | |||
+ | <FONT Color=gray>' ''Imposta il valore del 1° argomento della funzione "libvlc_new()":''</font> | ||
+ | argc = 1 | ||
+ | |||
+ | <FONT Color=gray>' ''Inizializza la libreria VLC:''</font> | ||
+ | inst = libvlc_new(argc, ss) | ||
+ | |||
+ | <FONT Color=gray>' ''Crea il media player:''</font> | ||
+ | mp = libvlc_media_player_new(inst) | ||
+ | |||
+ | <FONT Color=gray>' ''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.''</font> | ||
+ | m = libvlc_media_new_location(inst, "alsa://") | ||
+ | |||
+ | <FONT Color=gray>' ''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)'''</font> | ||
+ | |||
+ | libvlc_media_player_set_media(mp, m) | ||
+ | |||
+ | <FONT Color=gray>' ''Avvia la conversione del file audio da parte del media player:''</font> | ||
+ | libvlc_media_player_play(mp) | ||
+ | |||
+ | While bo = False | ||
+ | TextBox1.Text = Str(Date(0, 0, 0, 0, 0, 0, libvlc_media_player_get_time(mp))) | ||
+ | <FONT Color=gray>' ''Il Wait consente di agire su altri oggetti posti sul Form:''</font> | ||
+ | Wait 0.01 | ||
+ | Wend | ||
+ | |||
+ | <FONT Color=gray>' ''Chiude la libreria VLC ed il programma:''</font> | ||
+ | libvlc_release(inst) | ||
+ | Me.Close | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | '''Public''' Sub Button2_Click() | ||
+ | |||
+ | <FONT Color=gray>' ''Causa l'arresto della conversione, la chiusura della libreria VLC e del programma:''</font> | ||
+ | bo = True | ||
+ | |||
+ | '''End''' | ||
− | + | ||
+ | |||
+ | =Riferimenti= | ||
+ | * https://wiki.videolan.org/ | ||
+ | * http://www.videolan.org/developers/vlc/doc/doxygen/html/index.html | ||
+ | * https://wiki.videolan.org/Libvlc |
Versione delle 16:39, 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:
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