Differenze tra le versioni di "Estrarre una traccia di un CD audio convertendola in un file WAV con la funzione 'gst parse launch()' di GStreamer"
(4 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 5: | Riga 5: | ||
Mostriamo un esempio pratico, nel quale verrà estratta e convertita in un file WAV la quarta traccia di un CD audio: | Mostriamo un esempio pratico, nel quale verrà estratta e convertita in un file WAV la quarta traccia di un CD audio: | ||
− | |||
− | |||
− | |||
Library "libgstreamer-1.0" | Library "libgstreamer-1.0" | ||
Riga 24: | Riga 21: | ||
' ''Sets the state of the element.''</font> | ' ''Sets the state of the element.''</font> | ||
Private Extern gst_element_set_state(gstelement As Pointer, state As Integer) As Integer | Private Extern gst_element_set_state(gstelement As Pointer, state As Integer) As Integer | ||
+ | |||
+ | <FONT Color=gray>' ''gboolean gst_element_query_duration(GstElement *element, GstFormat format, gint64 *duration)'' | ||
+ | ' ''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 | ||
<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 *cur)'' | ||
Riga 36: | Riga 37: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
+ | Dim audio As Pointer | ||
Dim pos, dur As Long | Dim pos, dur As Long | ||
Dim po, du As Date | Dim po, du As Date | ||
Riga 41: | Riga 43: | ||
gst_init(0, 0) | gst_init(0, 0) | ||
− | audio = gst_parse_launch(" | + | audio = gst_parse_launch("<FONT Color=#B22222>cdparanoiasrc track=4</font> ! audioconvert ! wavenc ! filesink location=<FONT Color=gray>''/percorso/del/file.wav''</font>", 0) <SUP>[[[#Note|Nota 1]]]</sup> |
− | <FONT Color=gray>' ''Avviamo l'estrazione della traccia dal CD audio:''</font> | + | <FONT Color=gray>' ''Avviamo l'estrazione e la contestuale conversione della traccia dal CD audio:''</font> |
gst_element_set_state(audio, GST_STATE_PLAYING) | gst_element_set_state(audio, GST_STATE_PLAYING) | ||
Riga 55: | Riga 57: | ||
Wend | Wend | ||
− | + | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
gst_object_unref(audio) | gst_object_unref(audio) | ||
− | Print "\nEstrazione terminata." | + | Print "\nEstrazione e conversione terminata." |
Quit | Quit | ||
'''End''' | '''End''' | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | =Note= | ||
+ | [1] La riga di tipo stringa, posta nel 1° argomento della funzione esterna "gst_parse_launch''( )''" può in alternativa anche essere la seguente: | ||
+ | "<FONT Color=#B22222>cdda://4</font> ! audioconvert ! wavenc ! filesink location=<FONT Color=gray>''/percorso/del/file.wav''</font>" | ||
Versione attuale delle 11:54, 18 feb 2017
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 dinamica condivisa: "libgstreamer-1.0"
Mostriamo un esempio pratico, nel quale verrà estratta e convertita in un file WAV la quarta traccia di un CD audio:
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 *cur) ' Queries an element for the stream position in nanoseconds. Private Extern gst_element_query_position(gstelement As Pointer, gstformat As Pointer, cur 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 audio As Pointer Dim pos, dur As Long Dim po, du As Date gst_init(0, 0) audio = gst_parse_launch("cdparanoiasrc track=4 ! audioconvert ! wavenc ! filesink location=/percorso/del/file.wav", 0) [Nota 1] ' Avviamo l'estrazione e la contestuale conversione della traccia dal CD audio: gst_element_set_state(audio, GST_STATE_PLAYING) While True gst_element_query_position(audio, GST_FORMAT_TIME, VarPtr(pos)) gst_element_query_duration(audio, GST_FORMAT_TIME, VarPtr(dur)) po = Date(0, 0, 0, 0, 0, 0, pos / 1000000) du = Date(0, 0, 0, 0, 0, 0, dur / 1000000) If (pos > 0) And (CStr(po) >= CStr(du)) Then Break Write #File.Out, "\rDurata: " & du & " " & "Tempo trascorso: " & po Wend gst_object_unref(audio) Print "\nEstrazione e conversione terminata." Quit End
Note
[1] La riga di tipo stringa, posta nel 1° argomento della funzione esterna "gst_parse_launch( )" può in alternativa anche essere la seguente:
"cdda://4 ! audioconvert ! wavenc ! filesink location=/percorso/del/file.wav"