Differenze tra le versioni di "Creare mediante il Componente gb.media un file video da più file immagini"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Con le risorse del Componente ''gb.media'' è possibile generare un file video da più file immagine. Mostriamo un esempio, nel quale sarà generato un file video di formato...")
 
Riga 1: Riga 1:
 
Con le risorse del Componente ''gb.media'' è possibile generare un file video da più file immagine.
 
Con le risorse del Componente ''gb.media'' è possibile generare un file video da più file immagine.
  
Mostriamo un esempio, nel quale sarà generato un file video di formato MP4 da molteplici file immagine di formato PNG, che supponiamo comincino con il nome "frame" seguito da 5 cifre decimali: <B><SUP><&#091;[[#Note|nota 1]]&#093;</sup></b>
+
Mostriamo un esempio, nel quale sarà generato un file video di formato "MP4" da molteplici file immagine di formato PNG, che supponiamo comincino con il nome "frame" seguito da 5 cifre decimali: <B><SUP><&#091;[[#Note|nota 1]]&#093;</sup></b>
 
  Public Sub Main()
 
  Public Sub Main()
 
   
 
   
 
   Dim pl As MediaPipeline
 
   Dim pl As MediaPipeline
   Dim msc, png, vcn, enc,, mux, snk As MediaControl
+
   Dim msc, png, vcn, enc, mux, snk As MediaControl
 
   
 
   
 
   pl = New MediaPipeline  
 
   pl = New MediaPipeline  

Versione delle 19:44, 15 lug 2024

Con le risorse del Componente gb.media è possibile generare un file video da più file immagine.

Mostriamo un esempio, nel quale sarà generato un file video di formato "MP4" da molteplici file immagine di formato PNG, che supponiamo comincino con il nome "frame" seguito da 5 cifre decimali: <[nota 1]

Public Sub Main()

 Dim pl As MediaPipeline
 Dim msc, png, vcn, enc, mux, snk As MediaControl

 pl = New MediaPipeline 

 msc = New MediaControl(pl, "multifilesrc")
 msc["location"] = "/percorso/dei/file/immagine/frame%05d.png"
 msc["caps"] = "image/png,framerate=10/1"
 png = New MediaControl(pl, "pngdec")
 vcn = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 mux = New MediaControl(pl, "mp4mux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/video.mp4"

' Collega fra loro i plugin di "GStreamer":
 msc.LinkTo(png)
 png.LinkTo(vcn)
 vcn.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

' Effettua la generazione del file video:
 pl.Play()

 Wait 3

 pl.Stop
 pl.Close()
 Print "Creazione del file video MP4 effettuato !"

End


Note

[1] Vedasi il seguente paragrafo della Wiki: Catturare più fotogrammi da una ripresa video.