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

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per conoscere le dimensioni (Width, Height) in <U>pixel</u> di un'immagine mediante il Componente ''gb.media'', sarà possibile utilizzare la Classe ''MediaPlayer''. Mostriam...")
 
Riga 1: Riga 1:
Per conoscere le dimensioni (Width, Height) in <U>pixel</u> di un'immagine mediante il Componente ''gb.media'', sarà possibile utilizzare la Classe ''MediaPlayer''.
+
Per conoscere le dimensioni (Width, Height) in <U>pixel</u> di un'immagine mediante il Componente ''gb.media'', sarà possibile utilizzare almeno due modalità.
  
 +
==Usando la Classe ''MediaPlayer''==
 
Mostriamo un semplice esempio pratico:
 
Mostriamo un semplice esempio pratico:
 
  Public Sub Main()
 
  Public Sub Main()
Riga 17: Riga 18:
 
   
 
   
 
   Quit
 
   Quit
 +
 +
End
 +
 +
 +
==Usando le Classi ''MediaPipeline'' e ''MediaControl''==
 +
Mostriamo un semplice esempio pratico adoperando il plugin ''Decodebin'' di GStreamer:
 +
Public Sub Main()
 +
 +
  Dim pl As New MediaPipeline
 +
  Dim src, gpb, con, xis As MediaControl
 +
 +
  src = New MediaControl(pl, "filesrc")
 +
  src["location"] = "<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>"
 +
  gpb = New MediaControl(pl, "gdkpixbufdec")
 +
  con = New MediaControl(pl, "videoconvert")
 +
  xis = New MediaControl(pl, "ximagesink")
 +
 
 +
  src.LinkTo(gpb)
 +
  gpb.LinkTo(con)
 +
  con.LinkTo(xis)
 +
 +
  pl.Play()
 +
 
 +
  With xis<FONT Color=red>.GetLastImage()</font>
 +
    Print "Dimensione dell'immagine: "; .W; "x"; .H; " pixel"
 +
  End With
 +
 +
  pl.Close
 
   
 
   
 
  End
 
  End

Versione delle 17:06, 30 giu 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 Decodebin 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")
 xis = New MediaControl(pl, "ximagesink")
 
 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