Differenze tra le versioni di "Conoscere le dimensioni di una immagine mediante il Componente gb.media"

Da Gambas-it.org - Wikipedia.
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 11: Riga 11:
 
   mp.Play
 
   mp.Play
 
   
 
   
   With mp.Video.Image
+
   With mp<FONT Color=red>.Video.Image</font>
 
     Print "Dimensione dell'immagine: " & .W; "x"; .H & " pixel"
 
     Print "Dimensione dell'immagine: " & .W; "x"; .H & " pixel"
 
   End With  
 
   End With  
Riga 33: Riga 33:
 
   gpb = New MediaControl(pl, "gdkpixbufdec")
 
   gpb = New MediaControl(pl, "gdkpixbufdec")
 
   con = New MediaControl(pl, "videoconvert")
 
   con = New MediaControl(pl, "videoconvert")
   xis = New MediaControl(pl, "ximagesink")
+
<FONT Color=gray>' ''Il plugin "fakesink" impedisce che sia mostrata, seppur per un attimo, l'immagine:''</font>
 +
   xis = New MediaControl(pl, "fakesink")
 
    
 
    
 
   src.LinkTo(gpb)
 
   src.LinkTo(gpb)

Versione attuale delle 04:37, 1 lug 2024

Per conoscere le dimensioni (Width, Height) in pixel di un'immagine mediante il Componente gb.media, sarà possibile utilizzare almeno due modalità.

Usando la Classe MediaPlayer

Mostriamo un semplice esempio pratico:

Public Sub Main()

 Dim mp As New MediaPlayer
 
 mp.URL = Media.URL("/percorso/del/file/immagine")

 mp.Play

 With mp.Video.Image
   Print "Dimensione dell'immagine: " & .W; "x"; .H & " pixel"
 End With 

 mp.Close

 Quit

End


Usando le Classi MediaPipeline e MediaControl

Mostriamo un semplice esempio pratico adoperando il plugin gdkpixbufdec di GStreamer:

Public Sub Main()

 Dim pl As New MediaPipeline
 Dim src, gpb, con, xis As MediaControl

 src = New MediaControl(pl, "filesrc")
 src["location"] = "/percorso/del/file/immagine"
 gpb = New MediaControl(pl, "gdkpixbufdec")
 con = New MediaControl(pl, "videoconvert")
' Il plugin "fakesink" impedisce che sia mostrata, seppur per un attimo, l'immagine:
 xis = New MediaControl(pl, "fakesink")
 
 src.LinkTo(gpb)
 gpb.LinkTo(con)
 con.LinkTo(xis)

 pl.Play()
 
 With xis.GetLastImage()
   Print "Dimensione dell'immagine: "; .W; "x"; .H; " pixel"
 End With

 pl.Close

End