Differenze tra le versioni di "Visualizzare uno spettroscopio di GStreamer mediante la funzione 'gst parse launch()' durante l'esecuzione di un file Midi"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
La funzione esterna "gst_parse_launch()" della libreria ''GStreamer'' consente di costruire e gestire in modo semplice una pipeline ''GStreamer''. La riga della pipeline gestita dalla funzione esterna "gst_parse_launch()" è un insieme di elementi separati da punti esclamativi (!). Le proprietà possono essere aggiunte agli elementi, sotto forma di: ''proprietà = valore''. | La funzione esterna "gst_parse_launch()" della libreria ''GStreamer'' consente di costruire e gestire in modo semplice una pipeline ''GStreamer''. La riga della pipeline gestita dalla funzione esterna "gst_parse_launch()" è un insieme di elementi separati da punti esclamativi (!). Le proprietà possono essere aggiunte agli elementi, sotto forma di: ''proprietà = valore''. | ||
− | Sarà necessario avere installata nel sistema e richiamare nell'applicazione Gambas la libreria condivisa: "''libgstreamer-1.0'' ". | + | Sarà necessario avere installata nel sistema e richiamare nell'applicazione Gambas la libreria condivisa: "''libgstreamer-1.0.so.0.2403.0'' ". |
Usando i plugin "''spectrascope''" e "''autoaudiosink''" all'interno della riga della ''pipeline'' della funzione "gst_parse_launch()", è possibile visualizzare uno spettroscopio attivo durante l'esecuzione di un file Midi. | Usando i plugin "''spectrascope''" e "''autoaudiosink''" all'interno della riga della ''pipeline'' della funzione "gst_parse_launch()", è possibile visualizzare uno spettroscopio attivo durante l'esecuzione di un file Midi. | ||
Mostriamo un esempio pratico: | Mostriamo un esempio pratico: | ||
− | Library "libgstreamer-1.0" | + | Library "libgstreamer-1.0:0.2403.0" |
Private Enum GST_STATE_VOID_PENDING = 0, GST_STATE_NULL, GST_STATE_READY, GST_STATE_PAUSED, GST_STATE_PLAYING | Private Enum GST_STATE_VOID_PENDING = 0, GST_STATE_NULL, GST_STATE_READY, GST_STATE_PAUSED, GST_STATE_PLAYING |
Versione delle 16:24, 4 lug 2024
La funzione esterna "gst_parse_launch()" della libreria GStreamer consente di costruire e gestire in modo semplice una pipeline GStreamer. La riga della pipeline gestita dalla funzione esterna "gst_parse_launch()" è un insieme di elementi separati da punti esclamativi (!). Le proprietà possono essere aggiunte agli elementi, sotto forma di: proprietà = valore.
Sarà necessario avere installata nel sistema e richiamare nell'applicazione Gambas la libreria condivisa: "libgstreamer-1.0.so.0.2403.0 ".
Usando i plugin "spectrascope" e "autoaudiosink" all'interno della riga della pipeline della funzione "gst_parse_launch()", è possibile visualizzare uno spettroscopio attivo durante l'esecuzione di un file Midi.
Mostriamo un esempio pratico:
Library "libgstreamer-1.0:0.2403.0" Private Enum GST_STATE_VOID_PENDING = 0, GST_STATE_NULL, GST_STATE_READY, GST_STATE_PAUSED, GST_STATE_PLAYING Private Const GST_FORMAT_TIME As Integer = 3 ' gst_init (int *argc, char **argv[]) ' Initializes the GStreamer library, setting up internal path lists, registering built-in elements, and loading standard plugins. Private Extern gst_init(argc As Pointer, argv As Pointer) ' GstElement * gst_parse_launch (const gchar *pipeline_description, GError **error) ' Create a new pipeline based on command line syntax. Private Extern gst_parse_launch(description As String, GError As Pointer) As Pointer ' GstStateChangeReturn gst_element_set_state(GstElement *element, GstState state) ' Sets the state of the element. Private Extern gst_element_set_state(gstelement As Pointer, state As Integer) As Integer ' gboolean gst_element_query_duration(GstElement * element, GstFormat format, gint64 * duration) ' Queries an element For the total stream duration In nanoseconds. Private Extern gst_element_query_duration(gselement As Pointer, formatI As Integer, duration As Pointer) As Boolean ' void gst_object_unref(gpointer object) ' Decrements the reference count on object. Private Extern gst_object_unref(gobject As Pointer) Public Sub Main() Dim midi As Pointer Dim volume As Float Dim durata, l As Long Dim tm As Date gst_init(0, 0) midi = gst_parse_launch("filesrc location=/percorso/del/file.mid ! midiparse ! fluiddec ! tee name=t " & "! queue ! audioconvert ! spectrascope ! video/x-raw, width=1000, height=500! " & "videoconvert ! autovideosink ! queue ! audioconvert! m. t. ! queue ! " & "volume volume=7.0 ! autoaudiosink", 0) ' Avviamo l'esecuzione del file Midi: gst_element_set_state(midi, GST_STATE_PLAYING) Repeat gst_element_query_duration(midi, GST_FORMAT_TIME, VarPtr(durata)) Wait 0.01 Until durata > -1 tm = Now Repeat l = DateDiff(tm, Now, gb.Millisecond) Write "\r\e[0mDurata: " & Time(0, 0, 0, durata / 1000000) & " Pos. \e[31m" & Time(0, 0, 0, l) Wait 0.001 Until l >= durata / 1000000 gst_object_unref(midi) Print "\nEsecuzione terminata." End