Differenze tra le versioni di "Salvare in un file MP4 una ripresa video mediante una WebCam con il Componente gb.media"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "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...") |
|||
Riga 31: | Riga 31: | ||
<FONT Color=gray>' ''Avvia la ripresa video:''</font> | <FONT Color=gray>' ''Avvia la ripresa video:''</font> | ||
− | pl.Play() | + | pl.Play() |
+ | |||
+ | tm = Now | ||
Do | Do |
Versione delle 20:14, 9 ago 2017
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