Differenze tra le versioni di "Convertire i formati immagine mediante il Componente gb.media"

Da Gambas-it.org - Wikipedia.
Riga 31: Riga 31:
 
   Repeat  
 
   Repeat  
 
     i = Stat(primofile).Size
 
     i = Stat(primofile).Size
     Wait 0.5
+
     Wait 0.7
 
   Until Stat(primofile).Size == i
 
   Until Stat(primofile).Size == i
 
    
 
    

Versione delle 08:33, 11 mar 2022

Utilizzando i plugin di GStreamer con le Classi MediaControl e MediaPipeline del Componente gb.media, è possibile effettuare diverse conversioni di file immagine da un formato ad un altro.

Mostriamo di seguito qualche esempio pratico.

Conversione immagine dal formato TIFF al formato BMP

Public Sub Main()
 
 Dim pl As New MediaPipeline
 Dim src, deb, vdc, enc, snk As MediaControl
 Dim primofile As String
 Dim i As Integer
  
 primofile = "/tmp/primofile"
  
 src = New MediaControl(pl, "filesrc")
 src["location"] = "/percorso/del/file.tif"
 deb = New MediaControl(pl, "decodebin")
 vdc = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "avenc_bmp")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = primofile
  
' Colleghiamo fra loro all'interno della pipeline gli oggetti MediaControl impostati:
 src.LinkTo(deb)
 deb.LinkLaterTo(vdc)
 vdc.LinkTo(enc)
 enc.LinkTo(snk)
 
 pl.Play()
  
 Repeat 
   i = Stat(primofile).Size
   Wait 0.7
 Until Stat(primofile).Size == i
 
 Copy primofile To "/tmp/immagine.bmp"
 
 pl.Close
  
End