Differenze tra le versioni di "Eseguire un file audio usando una linea di pipeline con la funzione 'gst parse launch()'"
(16 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
− | La funzione esterna | + | 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'' ". | ||
Mostriamo un esempio pratico: | Mostriamo un esempio pratico: | ||
Riga 8: | Riga 7: | ||
− | 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 | ||
Riga 28: | Riga 27: | ||
' ''Queries an element for the total stream duration in nanoseconds.''</font> | ' ''Queries an element for the total stream duration in nanoseconds.''</font> | ||
Private Extern gst_element_query_duration(gselement As Pointer, formatI As Integer, duration As Pointer) As Boolean | Private Extern gst_element_query_duration(gselement As Pointer, formatI As Integer, duration As Pointer) As Boolean | ||
− | |||
− | |||
− | |||
− | |||
<FONT Color=gray>' ''void gst_object_unref(gpointer object)'' | <FONT Color=gray>' ''void gst_object_unref(gpointer object)'' | ||
Riga 38: | Riga 33: | ||
− | + | Public Sub Main() | |
− | + | ||
− | Dim | + | Dim durata As Long |
− | Dim | + | Dim tempus As Date |
− | + | Dim i As Integer | |
− | + | ||
− | + | gst_init(0, 0) | |
− | + | ||
− | + | <FONT Color=gray>' ''Il percorso e il nome del file audio NON devono contenere spazi:''</font> | |
+ | audio = <FONT Color=red>gst_parse_launch</font>("filesrc location=<FONT Color=darkgreen>''/percorso/del/file/audio''</font> ! decodebin ! audioconvert ! alsasink", 0) <FONT Color=gray>' ''al posto di "alsasink" si può usare anche "pulsesink"''</font> | ||
+ | |||
<FONT Color=gray>' ''Avviamo la riproduzione audio:''</font> | <FONT Color=gray>' ''Avviamo la riproduzione audio:''</font> | ||
− | + | gst_element_set_state(audio, GST_STATE_PLAYING) | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
+ | Repeat | ||
+ | gst_element_query_duration(audio, GST_FORMAT_TIME, VarPtr(durata)) | ||
+ | Wait 0.01 | ||
+ | Until durata > -1 | ||
− | + | tempus = Now | |
− | Dim s As String | + | Repeat |
+ | i = DateDiff(tempus, Now, gb.Millisecond) | ||
+ | Write "\r\e[0mDurata: " & Time(0, 0, 0, durata / 1000000) & " Pos. \e[31m" & Time(0, 0, 0, i) | ||
+ | Wait 0.001 | ||
+ | Until i >= (durata / 1000000) | ||
+ | |||
+ | Termina() | ||
+ | |||
+ | End | ||
+ | |||
+ | |||
+ | Public Sub Application_Read() | ||
+ | |||
+ | Dim s As String | ||
+ | |||
+ | Input s | ||
− | |||
− | |||
Select Case s | Select Case s | ||
Case "p" | Case "p" | ||
Riga 85: | Riga 84: | ||
End Select | End Select | ||
− | + | End | |
− | + | Private Procedure Termina() | |
− | + | ||
gst_object_unref(audio) | gst_object_unref(audio) | ||
Print "\nEsecuzione terminata." | Print "\nEsecuzione terminata." | ||
Quit | Quit | ||
− | + | ||
− | + | End | |
Va precisato che la riga di comando afferente alla funzione esterna ''gst parse launch()'' può essere impostata più brevemente anche così: | Va precisato che la riga di comando afferente alla funzione esterna ''gst parse launch()'' può essere impostata più brevemente anche così: | ||
− | audio = gst_parse_launch("playbin uri=file://<FONT Color= | + | audio = gst_parse_launch("playbin uri=file://<FONT Color=darkgreen>''/percorso/del/file/audio''</font>", 0) |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
+ | ==Plugin per l'esecuzione di soli specifici formati audio== | ||
+ | ===Plugin per l'esecuzione dei soli file WAV=== | ||
+ | Volendo utilizzare lo specifico plugin "wavparse" per i soli file WAV, si può cambiare la riga di pipeline della funzione ''gst_parse_launch( )'' come segue: | ||
+ | audio = gst_parse_launch("filesrc location=<FONT Color=darkgreen>''/percorso/del/file/audio.wav''</font> ! wavparse ! alsasink", 0) | ||
− | ===Plugin per l'esecuzione dei file | + | ===Plugin per l'esecuzione dei soli file MP3=== |
− | Volendo utilizzare | + | Volendo utilizzare lo specifico plugin per i soli file MP3, si può cambiare la riga di pipeline della funzione ''gst_parse_launch( )'' come segue: |
− | audio = gst_parse_launch("filesrc location=<FONT Color= | + | audio = gst_parse_launch("filesrc location=<FONT Color=darkgreen>''/percorso/del/file/audio.mp3''</font> ! mpegaudioparse ! mpg123audiodec ! alsasink", 0) |
+ | ===Plugin per l'esecuzione dei soli file OGG=== | ||
+ | Volendo utilizzare gli specifici plugin per i soli file OGG, si può cambiare la riga di pipeline della funzione ''gst_parse_launch( )'' come segue: | ||
+ | audio = gst_parse_launch("filesrc location=<FONT Color=darkgreen>''/percorso/del/file/audio.ogg''</font> ! oggdemux ! vorbisdec ! audioconvert ! alsasink", 0) | ||
Versione delle 16:07, 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 ".
Mostriamo un esempio pratico:
Private audio As Pointer 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 durata As Long Dim tempus As Date Dim i As Integer gst_init(0, 0) ' Il percorso e il nome del file audio NON devono contenere spazi: audio = gst_parse_launch("filesrc location=/percorso/del/file/audio ! decodebin ! audioconvert ! alsasink", 0) ' al posto di "alsasink" si può usare anche "pulsesink" ' Avviamo la riproduzione audio: gst_element_set_state(audio, GST_STATE_PLAYING) Repeat gst_element_query_duration(audio, GST_FORMAT_TIME, VarPtr(durata)) Wait 0.01 Until durata > -1 tempus = Now Repeat i = DateDiff(tempus, Now, gb.Millisecond) Write "\r\e[0mDurata: " & Time(0, 0, 0, durata / 1000000) & " Pos. \e[31m" & Time(0, 0, 0, i) Wait 0.001 Until i >= (durata / 1000000) Termina() End Public Sub Application_Read() Dim s As String Input s Select Case s Case "p" ' Pone in pausa la riproduzione del file mediale gst_element_set_state(audio, GST_STATE_PAUSED) Case "r" ' Riprende la riproduzione del file mediale gst_element_set_state(audio, GST_STATE_PLAYING) Case "s" ' Arresta la riproduzione del file mediale gst_element_set_state(audio, GST_STATE_NULL) Termina() End Select End Private Procedure Termina() gst_object_unref(audio) Print "\nEsecuzione terminata." Quit End
Va precisato che la riga di comando afferente alla funzione esterna gst parse launch() può essere impostata più brevemente anche così:
audio = gst_parse_launch("playbin uri=file:///percorso/del/file/audio", 0)
Indice
Plugin per l'esecuzione di soli specifici formati audio
Plugin per l'esecuzione dei soli file WAV
Volendo utilizzare lo specifico plugin "wavparse" per i soli file WAV, si può cambiare la riga di pipeline della funzione gst_parse_launch( ) come segue:
audio = gst_parse_launch("filesrc location=/percorso/del/file/audio.wav ! wavparse ! alsasink", 0)
Plugin per l'esecuzione dei soli file MP3
Volendo utilizzare lo specifico plugin per i soli file MP3, si può cambiare la riga di pipeline della funzione gst_parse_launch( ) come segue:
audio = gst_parse_launch("filesrc location=/percorso/del/file/audio.mp3 ! mpegaudioparse ! mpg123audiodec ! alsasink", 0)
Plugin per l'esecuzione dei soli file OGG
Volendo utilizzare gli specifici plugin per i soli file OGG, si può cambiare la riga di pipeline della funzione gst_parse_launch( ) come segue:
audio = gst_parse_launch("filesrc location=/percorso/del/file/audio.ogg ! oggdemux ! vorbisdec ! audioconvert ! alsasink", 0)