|
|
(8 versioni intermedie di uno stesso utente non sono mostrate) |
Riga 1: |
Riga 1: |
− | La libreria '''LibVLC''' consente di eseguire anche file MIDI, purché si abbiano installati nel sistema anche:
| + | * [[Eseguire un file Midi mediante le funzioni esterne del API di VLC]] |
− | * ''vlc-plugin-fluidsynth'' - le risorse dei plugin di ''FluidSynth'' per VLC;
| |
− | * ''fluid-soundfont-gm'' - Fluid (R3) General MIDI SoundFont (GM);
| |
− | * ovviamente lo stesso ''FluidSynth''.
| |
| | | |
− | E' possibile eseguire dati Midi anche direttamente da internet.
| + | * [[Ottenere la durata di un file Midi con le funzioni esterne del API di VLC]] |
| | | |
− | Per creare in Gambas un'applicazione con la presente risorsa, si dovrà installare e richiamare la libreria dinamica e condivisa "''libvlc.so.5.5.0''".
| + | * [[Ottenere un file audio da un file Midi con le funzioni esterne del API di VLC]] |
− | | |
− | | |
− | ===Esempio con applicazione grafica===
| |
− | Mostriamo di seguito un semplice esempio, nel quale si potrà avviare, arrestare, porre in pausa e riprendere l'esecuzione del file Midi:
| |
− | Private inst As Pointer
| |
− | Private mp As Pointer
| |
− |
| |
− |
| |
− | Library "libvlc:5.5.0"
| |
− |
| |
− | Private Enum libvlc_NothingSpecial = 0,
| |
− | libvlc_Opening,
| |
− | libvlc_Buffering,
| |
− | libvlc_Playing,
| |
− | libvlc_Paused,
| |
− | libvlc_Stopped,
| |
− | libvlc_Ended,
| |
− | libvlc_Error
| |
− |
| |
− | <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_path (libvlc_instance_t *p_instance, const char *path)''
| |
− | ' ''Create a media for a certain file path.''</font>
| |
− | Private Extern libvlc_media_new_path(p_instance As Pointer, path As String) As Pointer
| |
− |
| |
− | <FONT color=gray>' ''libvlc_media_player_t * libvlc_media_player_new_from_media (libvlc_media_t *p_md)''
| |
− | ' ''Create a Media Player object from a Media.''</font>
| |
− | Private Extern libvlc_media_player_new_from_media(p_md As Pointer) As Pointer
| |
− |
| |
− | <FONT color=gray>' ''int libvlc_media_player_play (libvlc_media_player_t * p_mi)''
| |
− | ' ''Play the audio file.''</font>
| |
− | Private Extern libvlc_media_player_play(p_mi As Pointer) As Integer
| |
− |
| |
− | <FONT color=gray>' ''void libvlc_media_player_stop (libvlc_media_player_t * p_mi)''
| |
− | ' ''Stop the audio file.''</font>
| |
− | Private Extern libvlc_media_player_stop(p_mi As Pointer)
| |
− |
| |
− | <FONT color=gray>' ''libvlc_time_t libvlc_media_player_get_length(libvlc_media_player_t *, libvlc_exception_t *)''
| |
− | ' ''Get the current movie length (in ms).''</font>
| |
− | Private Extern libvlc_media_player_get_length(p_mi As Pointer, l_ex 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_state_t libvlc_media_player_get_state(libvlc_media_player_t *p_mi)''
| |
− | ' ''Get current movie state.''</font>
| |
− | Private Extern libvlc_media_player_get_state(p_mi As Pointer) As Integer
| |
− |
| |
− | <FONT color=gray>' ''void libvlc_media_player_pause (libvlc_media_player_t *p_mi)''
| |
− | ' ''Toggle pause.''</font>
| |
− | Private Extern libvlc_media_player_pause(p_mi As Pointer)
| |
− |
| |
− | <FONT color=gray>' ''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.''</font>
| |
− | Private Extern libvlc_media_player_release(p_mi As Pointer)
| |
− |
| |
− | <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 Button1_Click()
| |
− |
| |
− | Dim m As Pointer
| |
− |
| |
− |
| |
− | <FONT color=gray>' ''Inizializza la libreria VLC:''</font>
| |
− | inst = libvlc_new(0, Null)
| |
− |
| |
− | <FONT color=gray>' ''Crea un nuovo oggetto multimedia:''</font>
| |
− | m = libvlc_media_new_path(inst, "<FONT color=gray>''/percorso/del/file.mid''</font>")
| |
− |
| |
− | <FONT color=gray>' ''Crea un media player:''</font>
| |
− | mp = libvlc_media_player_new_from_media(m)
| |
− |
| |
− | <FONT color=gray>' ''Avvia l'esecuzione del file Midi da parte del media player:''</font>
| |
− | libvlc_media_player_play(mp)
| |
− |
| |
− | Do
| |
− | TextLabel1.Text = "Durata: " & Str(Date(0, 0, 0, 0, 0, 0, libvlc_media_player_get_length(mp, 0)))
| |
− | TextLabel2.Text = "<FONT Color=red>" & Str(Date(0, 0, 0, 0, 0, 0, libvlc_media_player_get_time(mp)))
| |
− | Wait 0.01
| |
− | Loop Until libvlc_media_player_get_state(mp) > libvlc_Paused
| |
− |
| |
− | Chiude()
| |
− |
| |
− | '''End'''
| |
− |
| |
− |
| |
− | '''Public''' Sub Button2_Click()
| |
− |
| |
− | <FONT color=gray>' ''Arresta l'esecuzione del file Midi:''</font>
| |
− | libvlc_media_player_stop(mp)
| |
− |
| |
− | '''End'''
| |
− |
| |
− |
| |
− | '''Private''' Procedure Chiude()
| |
− |
| |
− | <FONT color=gray>' ''Rilascia e chiude il media player:''</font>
| |
− | libvlc_media_player_release(mp)
| |
− |
| |
− | <FONT color=gray>' ''Chiude la libreria VLC:''</font>
| |
− | libvlc_release(inst)
| |
− |
| |
− | '''End'''
| |
− |
| |
− |
| |
− | '''Public''' Sub ToggleButton1_Click()
| |
− |
| |
− | <FONT color=gray>' ''Pone in pausa o riprende (se già in pausa) l'esecuzione del file Midi:''</font>
| |
− | libvlc_media_player_pause(mp)
| |
− |
| |
− | '''End'''
| |
− | | |
− | | |
− | In quest'altro esempio mostreremo un effetto video (''Spectrum analyzer'') di VLC, che rappresenta un "Analizzatore di spettro", all'interno di una ''DrawingArea''
| |
− | Private inst As Pointer
| |
− | Private mp As Pointer
| |
− |
| |
− |
| |
− | Library "libvlc:5.5.0"
| |
− |
| |
− | Private Enum libvlc_NothingSpecial = 0,
| |
− | libvlc_Opening,
| |
− | libvlc_Buffering,
| |
− | libvlc_Playing,
| |
− | libvlc_Paused,
| |
− | libvlc_Stopped,
| |
− | libvlc_Ended,
| |
− | libvlc_Error
| |
− |
| |
− | <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_path (libvlc_instance_t *p_instance, const char *path)''
| |
− | ' ''Create a media for a certain file path.''</font>
| |
− | Private Extern libvlc_media_new_path(p_instance As Pointer, path As String) As Pointer
| |
− |
| |
− | <FONT color=gray>' ''libvlc_media_player_t * libvlc_media_player_new_from_media (libvlc_media_t *p_md)''
| |
− | ' ''Create a Media Player object from a Media.''</font>
| |
− | Private Extern libvlc_media_player_new_from_media(p_md As Pointer) As Pointer
| |
− |
| |
− | <FONT color=gray>' ''void libvlc_media_player_set_xwindow (libvlc_media_player_t *p_mi, uint32_t drawable)''
| |
− | ' ''Set an X Window System drawable where the media player should render its video output.''</font>
| |
− | Private Extern libvlc_media_player_set_xwindow(p_mi As Pointer, drawable As Integer)
| |
− |
| |
− | <FONT color=gray>' ''int libvlc_media_player_play (libvlc_media_player_t * p_mi)''
| |
− | ' ''Play the audio file.''</font>
| |
− | Private Extern libvlc_media_player_play(p_mi As Pointer) As Integer
| |
− |
| |
− | <FONT color=gray>' ''void libvlc_media_player_stop (libvlc_media_player_t * p_mi)''
| |
− | ' ''Stop the audio file.''</font>
| |
− | Private Extern libvlc_media_player_stop(p_mi As Pointer)
| |
− |
| |
− | <FONT color=gray>' ''libvlc_time_t libvlc_media_player_get_length(libvlc_media_player_t *, libvlc_exception_t *)''
| |
− | ' ''Get the current movie length (in ms).''</font>
| |
− | Private Extern libvlc_media_player_get_length(p_mi As Pointer, l_ex 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_state_t libvlc_media_player_get_state(libvlc_media_player_t *p_mi)''
| |
− | ' ''Get current movie state.''</font>
| |
− | Private Extern libvlc_media_player_get_state(p_mi As Pointer) As Integer
| |
− |
| |
− | <FONT color=gray>' ''void libvlc_media_player_pause (libvlc_media_player_t *p_mi)''
| |
− | ' ''Toggle pause.''</font>
| |
− | Private Extern libvlc_media_player_pause(p_mi As Pointer)
| |
− |
| |
− | <FONT color=gray>' ''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.''</font>
| |
− | Private Extern libvlc_media_player_release(p_mi As Pointer)
| |
− |
| |
− | <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 Button1_Click()
| |
− |
| |
− | Dim ss As String[]
| |
− | Dim m As Pointer
| |
− | Dim argc, id As Integer
| |
− |
| |
− | ss = ["--audio-visual=visual"]
| |
− |
| |
− | argc = 1
| |
− |
| |
− | <FONT color=gray>' ''Inizializza la libreria VLC:''</font>
| |
− | inst = libvlc_new(1, ss)
| |
− |
| |
− | <FONT color=gray>' ''Crea un nuovo oggetto multimedia:''</font>
| |
− | m = libvlc_media_new_path(inst, "<FONT color=gray>''/percorso/del/file.mid''</font>")
| |
− |
| |
− | <FONT color=gray>' ''Crea un media player:''</font>
| |
− | mp = libvlc_media_player_new_from_media(m)
| |
− |
| |
− | <FONT color=gray>' ''Per far mostrare l'effetto video "Analizzatore di spettro" nella "DrawingArea", ricaviamo il suo identificativo:''</font>
| |
− | id = DrawingArea1.Id
| |
− |
| |
− | <FONT color=gray>' ''Passiamo l'identificativo della finestra, nella quale dovrà essere mostrato l'effetto "Spectrum analyzer":''</font>
| |
− | libvlc_media_player_set_xwindow(mp, id)
| |
− |
| |
− | <FONT color=gray>' ''Avvia l'esecuzione del file Midi da parte del media player:''</font>
| |
− | libvlc_media_player_play(mp)
| |
− |
| |
− | Do
| |
− | TextLabel1.Text = "Durata: " & Str(Date(0, 0, 0, 0, 0, 0, libvlc_media_player_get_length(mp, 0)))
| |
− | TextLabel2.Text = "<FONT Color=red>" & Str(Date(0, 0, 0, 0, 0, 0, libvlc_media_player_get_time(mp)))
| |
− | Wait 0.01
| |
− | Loop Until libvlc_media_player_get_state(mp) > libvlc_Paused
| |
− |
| |
− | Chiude()
| |
− |
| |
− | '''End'''
| |
− |
| |
− |
| |
− | '''Public''' Sub Button2_Click()
| |
− |
| |
− | <FONT color=gray>' ''Arresta l'esecuzione del file Midi:''</font>
| |
− | libvlc_media_player_stop(mp)
| |
− |
| |
− | '''End'''
| |
− |
| |
− |
| |
− | '''Private''' Procedure Chiude()
| |
− |
| |
− | <FONT color=gray>' ''Rilascia e chiude il media player:''</font>
| |
− | libvlc_media_player_release(mp)
| |
− |
| |
− | <FONT color=gray>' ''Chiude la libreria VLC:''</font>
| |
− | libvlc_release(inst)
| |
− |
| |
− | '''End'''
| |
− |
| |
− |
| |
− | '''Public''' Sub ToggleButton1_Click()
| |
− |
| |
− | <FONT color=gray>' ''Pone in pausa o riprende (se già in pausa) l'esecuzione del file Midi:''</font>
| |
− | libvlc_media_player_pause(mp)
| |
− |
| |
− | '''End'''
| |
− | | |
− | | |
− | | |
− | ===Esempio con applicazione ''a riga di comando''===
| |
− | Library "libvlc:5.5.0"
| |
− |
| |
− | Enum libvlc_NothingSpecial = 0,
| |
− | libvlc_Opening,
| |
− | libvlc_Buffering,
| |
− | libvlc_Playing,
| |
− | libvlc_Paused,
| |
− | libvlc_Stopped,
| |
− | libvlc_Ended,
| |
− | libvlc_Error
| |
− |
| |
− | <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_path (libvlc_instance_t *p_instance, const char *path)''
| |
− | ' ''Create a media for a certain Midi file path.''</font>
| |
− | Private Extern libvlc_media_new_path(p_instance As Pointer, path As String) As Pointer
| |
− |
| |
− | <FONT color=gray>' ''libvlc_media_player_t * libvlc_media_player_new_from_media (libvlc_media_t *p_md)''
| |
− | ' ''Create a Media Player object from a Media.''</font>
| |
− | Private Extern libvlc_media_player_new_from_media(p_md As Pointer) As Pointer
| |
− |
| |
− | <FONT color=gray>' ''int libvlc_media_player_play (libvlc_media_player_t * p_mi)''
| |
− | ' ''Play the Midi 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_state_t libvlc_media_player_get_state(libvlc_media_player_t *p_mi)''
| |
− | ' ''Get current movie state.''</font>
| |
− | Private Extern libvlc_media_player_get_state(p_mi As Pointer) As Integer
| |
− |
| |
− | <FONT color=gray>' ''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.''</font>
| |
− | Private Extern libvlc_media_player_release(p_mi As Pointer)
| |
− |
| |
− | <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 Main()
| |
− |
| |
− | Dim m, inst, mp As Pointer
| |
− |
| |
− | <FONT color=gray>' ''Inizializza la libreria VLC:''</font>
| |
− | inst = libvlc_new(0, Null)
| |
− |
| |
− | <FONT color=gray>' ''Crea un nuovo oggetto multimedia:''</font>
| |
− | m = libvlc_media_new_path(inst, "<FONT color=gray>''/percorso/del/file.mid''</font>")
| |
− |
| |
− | <FONT color=gray>' ''Crea un media player:''</font>
| |
− | mp = libvlc_media_player_new_from_media(m)
| |
− |
| |
− | <FONT color=gray>' ''Avvia l'esecuzione del file Midi da parte del media player:''</font>
| |
− | libvlc_media_player_play(mp)
| |
− |
| |
− | While libvlc_media_player_get_state(mp) < libvlc_Stopped
| |
− | Write #File.Out, Str(Date(0, 0, 0, 0, 0, 0, libvlc_media_player_get_time(mp))) & "\r"
| |
− | Wend
| |
− |
| |
− |
| |
− | <FONT color=gray>' ''Va in chiusura:''</font>
| |
− |
| |
− | <FONT color=gray>' ''Rilascia e chiude il media player:''</font>
| |
− | libvlc_media_player_release(mp)
| |
− |
| |
− | <FONT color=gray>' ''Chiude la libreria VLC:''</font>
| |
− | libvlc_release(inst)
| |
− |
| |
− | '''End'''
| |
− | | |
− | | |
− | | |
− | =Riferimenti=
| |
− | * http://www.videolan.org/developers/vlc/doc/doxygen/html/index.html
| |
− | * https://wiki.videolan.org/Midi Videolan
| |