Eliminare la traccia audio da un file video con le funzioni esterne del API di VLC
Da Gambas-it.org - Wikipedia.
Versione del 12 gen 2024 alle 17:29 di Vuott (Discussione | contributi)
Per eliminare la traccia audio da un file video, rendendolo in tal modo muto, è possibile utilizzare alcune risorse del API di VLC.
A tal scopo è necessario richiamare in Gambas ed avere installa nel proprio sistema la libreria condivisa: "libvlc.so.5.6.1 ".
Vediamo un esempio pratico con applicazione in ambiente grafico, nel quale si opererà su un file video di formato MP4:
Private bo As Boolean Library "libvlc:5.6.1" ' 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_path(libvlc_instance_t *p_instance, const char * path) ' Create a media for a certain file path. Private Extern libvlc_media_new_path(p_instance As Pointer, path As String) As Pointer ' void libvlc_media_add_option (libvlc_media_t *p_md, const char *psz_options) ' Add an option to the media. Private Extern libvlc_media_add_option(p_mi As Pointer, psz_options As String) ' 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 ' void libvlc_media_player_release (libvlc_media_player_t * p_mi) ' Release a media_player after use Decrement the reference count of a media player object. Private Extern libvlc_media_player_release(p_mi As Pointer) ' void libvlc_media_release (libvlc_media_t *p_md) ' Decrement the reference count of a media descriptor object. Private Extern libvlc_media_release(p_md As Pointer) ' 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 video As String Dim argc As Integer ' Vengono impostate le opzioni ed il percorso ove sarà salvato il file video: ss = ["--sout=#transcode{vcodec=mp4v,fps=60,vb=512,width=640,height=480}:standard{access=file,mux=ts,dst=/percorso/del/file.mp4}"] ' Imposta il valore del 1° argomento della funzione "libvlc_new()": argc = 1 ' Inizializza la libreria VLC: inst = libvlc_new(argc, ss) If inst == 0 Then Error.Raise("Impossibile inizializzare la libreria VLC !") ' Crea il media player: mp = libvlc_media_player_new(inst) If mp == 0 Then Error.Raise("Impossibile creare il media player !") ' Crea un nuovo oggetto multimedia. ' Nel secondo argomento della funzione va specificato il percorso del file video da rendere muto: m = libvlc_media_new_path(inst, "/percorso/del/file.mp4") If m == 0 Then Error.Raise("Impossibile creare un oggetto multimediale !") ' Viene aggiunta l'opzione per eliminare la traccia audio dal file video: libvlc_media_add_option(m, "no-sout-audio") libvlc_media_player_set_media(mp, m) ' Avvia la procedura di eliminazione della traccia audio dal file video prescelto: libvlc_media_player_play(mp) While bo = False TextBox1.Text = Str(Time(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_media_player_release(mp) libvlc_media_release(m) libvlc_release(inst) Me.Close End Public Sub Button2_Click() ' Determina la chiusura della libreria VLC e del programma: bo = True End