Differenze tra le versioni di "Eseguire un file Midi con la funzione esterna ''gst parse launch()'' del API di GStreamer"

Da Gambas-it.org - Wikipedia.
 
(10 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Un file Midi può essere eseguito anche mediante una linea di pipeline gestita dalla funzione ''gst parse launch()'' del API di ''GStreamer'', avendo l'accortezza di inserire alla fine della pipeline uno dei seguenti plugin: ''alsasink'', ''pulsesink'', ''openalsink''.
+
Un file Midi può essere eseguito anche mediante una linea di pipeline gestita dalla funzione "gst parse launch()" del API di ''GStreamer'', avendo l'accortezza di inserire alla fine della pipeline uno dei seguenti plugin: ''alsasink'', ''pulsesink'', ''openalsink''.
 +
<BR>E' necessario avere installata la libreria condivisa: "''libgstreamer-1.0'' ".
  
 
Mostriamo un esempio pratico:
 
Mostriamo un esempio pratico:
−
Private midi As Pointer
 
−
 
−
 
 
  Library "libgstreamer-1.0"
 
  Library "libgstreamer-1.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
 
  Private Const GST_FORMAT_TIME As Integer = 3
 
  Private Const GST_FORMAT_TIME As Integer = 3
−
Private stato As Integer = GST_STATE_PLAYING
 
 
   
 
   
 
  <FONT Color=gray>' ''gst_init (int *argc, char **argv[])''
 
  <FONT Color=gray>' ''gst_init (int *argc, char **argv[])''
Riga 26: Riga 23:
 
  ' ''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>' ''gboolean gst_element_query_position (GstElement *element, GstFormat format, gint64 *cur)''
+
  <FONT color=gray>' ''gboolean gst_element_query_position (GstElement *element, GstFormat format, gint64 *duration)''
−
  ' ''Queries an element for the stream position in nanoseconds.''</font>
+
  ' ''Queries an element for the total stream position in nanoseconds.''</font>
−
  Private Extern gst_element_query_position(gstelement As Pointer, gstformat As Pointer, cur As Pointer) As Boolean
+
  Private Extern gst_element_query_position(gstelement As Pointer, gstformat As Pointer, position As Pointer) As Boolean
 
   
 
   
 
  <FONT Color=gray>' ''void gst_object_unref(gpointer object)''
 
  <FONT Color=gray>' ''void gst_object_unref(gpointer object)''
Riga 36: Riga 33:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
−
    
+
−
   Dim posizione, durata As Long
+
   Dim midi As Pointer
−
   Dim dur, pos As Date
+
   Dim durata, l As Long
−
     
+
   Dim volume As Float
−
  gst_init(0, 0)
+
  Dim tm As Date
−
 
+
−
  midi = gst_parse_launch("filesrc location=<FONT Color=gray>''/percorso/del/file.mid''</font> ! decodebin ! audioconvert ! volume volume=7.0 ! <FONT Color=#B22222>alsasink</font>", 0)
+
  gst_init(0, 0)
−
       
+
 +
  midi = gst_parse_launch("filesrc location=<FONT Color=darkgreen>''/percorso/del/file.mid''</font> ! decodebin ! audioconvert ! volume volume=7.0 ! <FONT Color=#B22222>alsasink</font>", 0)
 +
 
  <FONT Color=gray>' ''Avviamo la riproduzione del file Midi:''</font>
 
  <FONT Color=gray>' ''Avviamo la riproduzione del file Midi:''</font>
−
  gst_element_set_state(midi, GST_STATE_PLAYING)
+
  gst_element_set_state(midi, GST_STATE_PLAYING)
−
 
 
−
  While stato = GST_STATE_PLAYING
 
−
    gst_element_query_duration(midi, GST_FORMAT_TIME, VarPtr(durata))
 
−
    gst_element_query_position(midi, GST_FORMAT_TIME, VarPtr(posizione))
 
−
    dur = Date(0, 0, 0, 0, 0, 0, durata / 1000000)
 
−
    pos = Date(0, 0, 0, 0, 0, 0, posizione / 1000000)
 
−
    If (posizione > 0) And (pos >= dur) Then Break
 
−
    Write #File.Out, "\rDurata: " & Date(0, 0, 0, 0, 0, 0, durata / 1000000) & "      Pos. " & Date(0, 0, 0, 0, 0, 0, posizione / 1000000)
 
−
    Wait 0.01
 
−
  Wend
 
−
 
 
−
  gst_object_unref(midi)
 
−
  Print "\nEsecuzione terminata."
 
−
  Quit
 
−
     
 
−
'''End'''
 
 
   
 
   
 +
  Repeat
 +
    gst_element_query_duration(midi, GST_FORMAT_TIME, VarPtr(durata))
 +
    Wait 0.01
 +
  Until durata > -1
 
   
 
   
−
'''Public''' Sub Application_Read()
+
  tm = Now
 
   
 
   
−
Dim s As String
+
  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
 
   
 
   
−
   Input #File.In, s
+
   gst_object_unref(midi)
−
 
+
  Print "\nEsecuzione terminata."
−
  Select Case s
 
−
    Case "p"
 
−
<FONT Color=gray>' ''Pone in pausa la riproduzione del file Midi''</font>
 
−
      gst_element_set_state(midi, GST_STATE_PAUSED)
 
−
    Case "r"
 
−
<FONT Color=gray>' ''Riprende la riproduzione del file Midi''</font>
 
−
      gst_element_set_state(midi, GST_STATE_PLAYING)
 
−
    Case "s"
 
−
<FONT Color=gray>' ''Arresta la riproduzione del file Midi''</font>
 
−
      stato = gst_element_set_state(midi, GST_STATE_NULL)
 
−
  End Select
 
 
   
 
   
−
  '''End'''
+
  End
  
  
Riga 91: Riga 71:
 
* ''fluiddec''
 
* ''fluiddec''
 
In tal caso la stringa della pipeline dei plugin del codice, sopra esposto, sarà la seguente:
 
In tal caso la stringa della pipeline dei plugin del codice, sopra esposto, sarà la seguente:
−
  midi = gst_parse_launch("filesrc location=<FONT Color=gray>''/percorso/del/file.mid ! midiparse ! fluiddec ! audioconvert ! volume volume=7.0 ! alsasink''</font>", 0)
+
  midi = gst_parse_launch("filesrc location=<FONT Color=darkgreen>''/percorso/del/file.mid''</font> ! midiparse ! fluiddec ! audioconvert ! volume volume=7.0 ! alsasink", 0)
  
  
 
====Uso del solo plugin ''playbin''====
 
====Uso del solo plugin ''playbin''====
 
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=gray>''/percorso/del/file.mid''</font>", 0)
+
  midi = gst_parse_launch("playbin uri=file://<FONT Color=darkgreen>''/percorso/del/file.mid''</font>", 0)
−
ma non sarà possibile utilizare il plugin per la gestione del volume.
+
ma non sarà possibile utilizzare il plugin per la gestione del volume.
−
 
 
  
  

Versione attuale delle 14:02, 13 gen 2024

Un file Midi può essere eseguito anche mediante una linea di pipeline gestita dalla funzione "gst parse launch()" del API di GStreamer, avendo l'accortezza di inserire alla fine della pipeline uno dei seguenti plugin: alsasink, pulsesink, openalsink.
E' necessario avere installata la libreria condivisa: "libgstreamer-1.0 ".

Mostriamo un esempio pratico: 

Library "libgstreamer-1.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

' gboolean gst_element_query_position (GstElement *element, GstFormat format, gint64 *duration)
' Queries an element for the total stream position in nanoseconds.
Private Extern gst_element_query_position(gstelement As Pointer, gstformat As Pointer, position 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 durata, l As Long
 Dim volume As Float
 Dim tm As Date

 gst_init(0, 0)

 midi = gst_parse_launch("filesrc location=/percorso/del/file.mid ! decodebin ! audioconvert ! volume volume=7.0 ! alsasink", 0)

' Avviamo la riproduzione 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


Uso dei plugin specifici di GStreamer per il Midi

Si potrà anche far uso dei plugin specifici di GStreamer per il Midi, che sono:

  • midiparse
  • fluiddec

In tal caso la stringa della pipeline dei plugin del codice, sopra esposto, sarà la seguente: 

midi = gst_parse_launch("filesrc location=/percorso/del/file.mid ! midiparse ! fluiddec ! audioconvert ! volume volume=7.0 ! alsasink", 0)


Uso del solo plugin playbin

Va precisato che la riga di comando afferente alla funzione esterna gst parse launch() può essere impostata più brevemente anche così: 

midi = gst_parse_launch("playbin uri=file:///percorso/del/file.mid", 0)

ma non sarà possibile utilizzare il plugin per la gestione del volume.


Riferimenti

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Eseguire_un_file_Midi_con_la_funzione_esterna_%27%27gst_parse_launch()%27%27_del_API_di_GStreamer&oldid=36185"