Salvare in un file MP4 una ripresa video mediante una WebCam con il Componente gb.media
Da Gambas-it.org - Wikipedia.
Versione del 9 ago 2017 alle 20:14 di Vuott (Discussione | contributi)
Il Componente gb.media, utilizzando particolari plugin di GStreamer, consente di salvare una ripresa video mediante una WebCam in un file di formato MP4.
Vediamo un esempio di ripresa video - priva di audio - con un'applicazione a riga di comando:
Public Sub Main() Dim pl As MediaPipeline Dim src, enc, mux, snk As MediaControl Dim tm As Date Dim dur, eff, i As Integer Dim mss As String ' Imposta il numero di fotogrammi di cui sarà composto il video, tenendo presente ' che la durata del video in secondi sarà uguale alla metà del valore immesso: dur = 20 eff = (dur * 1000) / 2 pl = New MediaPipeline src = New MediaControl(pl, "v4l2src") src["num-buffers"] = dur enc = New MediaControl(pl, "x264enc") mux = New MediaControl(pl, "mp4mux") snk = New MediaControl(pl, "filesink") snk["location"] = "/percorso/del/file.mp4" ' Colleghiamo fra loro i plugin di "GStreamer": src.LinkTo(enc) enc.LinkTo(mux) mux.LinkTo(snk) ' Avvia la ripresa video: pl.Play() tm = Now Do i = DateDiff(tm, Now, gb.Millisecond) If i < eff Then ' Il tempo trascorso dall'inizio della ripresa video viene mostrato in console/Terminale: mss = "\rTempo: " & CStr(Date(0, 0, 0, 0, 0, 0, i)) Else mss = "\rRegistrazione terminata !" Endif Write #File.Out, mss Loop End