Ottenere una schermata ("screenshot") con Gambas

Da Gambas-it.org - Wikipedia.

Per effettuare una schermata, ossia uno screenshot, di un'area mediante le sole risorse native di Gambas, si potranno utilizzare alcune modalità di seguito riportate.


Uso del Metodo .Screenshot( ) della classe Desktop

Il Metodo ".Screenshot( )" della Classe Desktop, utilizzabile attivando il Componente "gb.desktop", consente di ottenere una schermata della superficie del desktop delimitata dai valori indicati nei parametri del Metodo medesimo.

Vadiamo un paio di esempi pratici:

Public Sub Button1_Click()

 Dim pc As Picture
 
' Individuiamo il riquadro interessato dallo screenshot secondo i soliti parametri: X, Y, Width, Height.
' Assegnamo, quindi, la schermata in una variabile di tipo "Picture"...:
  pc = Desktop.Screenshot(100, 100, 100, 100)
  
' ...che caricheremo in una "PictureBox" per mostrarla:
  PictureBox1.Picture = pc
  
End

Mostriamo ora un esempio più complesso: determineremo con lo spostamento del mouse l'area della schermata da mostrare nella PictureBox.

Private pn As Panel
Private xIniz As Integer
Private yIniz As Integer
Private pc As Picture


Public Sub Form_MouseDown()

' Se non c'è una schermata nella "PictureBox", viene distrutta:
 If Not IsNull(pc) Then
   PictureBox1.Picture.Clear
 Endif
 
' Per definire, anche visivamente, l'area utilizzeremo un "Panel":
 pn = New Panel(Me)
  
' Raccogliamo le coordinate iniziali del mouse nel momento del clic:
 xIniz = Mouse.X
 yIniz = Mouse.Y
 
End


Public Sub Form_MouseMove()

 With pn
   .Border = Border.Plain
   .Width = Mouse.X - xIniz
   .Height = Mouse.Y - yIniz
   .X = xIniz  ' le coordinate di partenza sono quelle impostate...
   .Y = yIniz  ' ...con il MouseDown.
 End With
 
End


Public Sub Form_MouseUp()
 
' Effettuiamo la schermata (ossia lo "screenshot") dell'area individuata dal "Panel" dimensionato con lo spostamento del mouse.
' L'area interessata, dunque, avrà le medesime coordinate e dimensioni di quel "Panel":
 With pn
   pc = Desktop.Screenshot(.X, .Y, .W, .H)
 End With
 
' Mostriamo la picture della schermata nella "PictureBox" posta sul form:
 PictureBox1.Picture = pc
 
' Quindi salviamo da qualche parte la schermata:
 pc.Save("/tmp/schermata.png")
 
 pn.Delete
   
End


Ottenere la schermata di una particolare finestra mediante il Metodo .GetScreenshot( ) della Classe DesktopWindow

Quast'altra modalità prevede l'uso del Metodo ".GetScreenshot( )" della Classe "DesktopWindow", attivando il Componente "gb.desktop".

In tal caso, però, bisognerà individuare preliminarmente il numero identificativo della finestra, della quale ottenenre la schermata, e così passarlo all'oggetto DesktopWindow da creare.

Mostriamo un semplice esempio, nel quale otterremo una schermata della finestra del desktop:

Public Sub Button1_Click()
 
 Dim dw As DesktopWindow
 Dim wid As Integer
 Dim pc As Picture
 
' Individua il numero identificativo della finestra del desktop...
  wid = Desktop.FindWindow("Scrivania", Null, Null)[0] 
  
' ...e lo passa all'oggetto "DesktopWindow" da creare:
  With dw = New DesktopWindow(wid)
    pc = .GetScreenshot()
  End With
  
  pc.Save("/tmp/screenshot.png", 100)
  
End


Uso delle risorse del Componente gb.media

Anche il Componente gb.media può consentire di effettuare una schermata del desktop, in particolare utilizzando le risorse delle Classi "MediaPipeline", "MediaControl" e "MediaFilter".

Mostriamo un semplice esempio:

Private pl As MediaPipeline


Public Sub Form_Open()

 Dim src, sca, con, png, snk As MediaControl
 Dim flt As MediaFilter
 
  pl = New MediaPipeline
  
  src = New MediaControl(pl, "ximagesrc")
' Imposta l'angolo x in alto a sinistra della schermata rispetto alla superficie del desktop:
  src["startx"] = 0
  src["use-damage"] = 0
  sca = New MediaControl(pl, "videoscale")
  sca["method"] = 0
' Imposta la dimensione del file immagine finale:
  flt = New MediaFilter(pl, "video/x-raw,width=640,height=480")
  con = New MediaControl(pl, "videoconvert")
  png = New MediaControl(pl, "pngenc")
  snk = New MediaControl(pl, "filesink")
  snk["location"] = "/tmp/screenshot.png"
  
' Vengono collegati i vari plug-in di GStreamer utilizzati:
  src.LinkTo(sca)
  sca.LinkTo(flt)
  flt.LinkTo(con)
  con.LinkTo(png)
  png.LinkTo(snk)
  
End


Public Sub Button1_Click()
 
' Attende 3 secondi prima di effettuare lo "screenshot":
 Wait 3
 
' Effettua lo "screenshot":
 pl.Play()
' Chiude il flusso:
 pl.Stop()
 
End

o anche eliminando il plug-in "Filter" e utilizzando in sua vece le proprietà "endx" e "endy" di "ximagesrc":

Private pl As MediaPipeline


Public Sub Form_Open()
 
 Dim src, sca, con, png, snk As MediaControl
 
 pl = New MediaPipeline
 
 src = New MediaControl(pl, "ximagesrc")
' Imposta, come finestra da riprendere, la superficie del desktop, ossia la scrivania:
 src["xid"] = CLong(0)
' Imposta la dimensione della schermata:
 src["startx"] = 0
 src["starty"] = 0
 src["endx"] = Screen.W
 src["endy"] = Screen.H
 src["use-damage"] = False
 sca = New MediaControl(pl, "videoscale")
 sca["method"] = 0
 con = New MediaControl(pl, "videoconvert")
 png = New MediaControl(pl, "pngenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/screenshot.png"
 
' Vengono collegati i vari plug-in di GStreamer utilizzati:
 src.LinkTo(sca)
 sca.LinkTo(con)
 con.LinkTo(png)
 png.LinkTo(snk)
 
End


Public Sub Button1_Click()
 
 Wait 2
 
' Effettua lo "screenshot":
 pl.Play()
' Chiude il flusso:
 pl.Stop()
 
End


In quest'altro esempio l'immagine della schermata verrà mostrata sulla superficie di una DrawingArea posta sul Form del programma Gambas:

Private pl As MediaPipeline


Public Sub Form_Open()

 Dim da As DrawingArea
 Dim src, sca, con, snk As MediaControl
 Dim flt As MediaFilter
  
' Crea una "DrawingArea" come oggetto GUI da usare per l'uscita immagine:
  With da = New DrawingArea(Me)
    .X = 10
    .Y = 10
    .W = 640
    .H = 480
' E' assolutamente necessario dare un qualsiasi valore alla proprietà ".Background" della "DrawingArea", altrimenti l'immagine non verrà mostrata:
    .Background = Color.Transparent
  End With
  
  pl = New MediaPipeline
  
  src = New MediaControl(pl, "ximagesrc")
' Imposta l'angolo x in alto a sinistra della schermata rispetto alla superficie del desktop:
  src["startx"] = 0
  src["use-damage"] = 0
  sca = New MediaControl(pl, "videoscale")
  sca["method"] = 0
' Imposta la dimensione del file immagine finale:
  flt = New MediaFilter(pl, "video/x-raw,width=640,height=480")
  con = New MediaControl(pl, "videoconvert")
  snk = New MediaControl(pl, "ximagesink")
  
' Imposta la "DrawingArea" come oggetto GUI da usare per l'uscita immagine:
  snk.SetWindow(da)
  
' Vengono collegati i vari plug-in di GStreamer utilizzati:
  src.LinkTo(sca)
  sca.LinkTo(flt)
  flt.LinkTo(con)
  con.LinkTo(snk)
  
End


Public Sub Button1_Click()
 
' Attende 3 secondi prima di effettuare lo "screenshot":
 Wait 3
 
' Effettua lo "screenshot":
 pl.Play()
' Chiude il flusso:
 pl.Stop()
 
End


In quest'altro caso individueremo la finestra specifica, della quale ottenere lo screenshot, dal suo numero identificativo che dovrà essere assegnato alla proprietà "xid" del plug-in "ximagesrc" impostato come oggetto "MediaControl":

Private pl As MediaPipeline


Public Sub Form_Open()

 Dim src, sca, con, png, snk As MediaControl
 Dim flt As MediaFilter
 
  pl = New MediaPipeline
  
  src = New MediaControl(pl, "ximagesrc")
' Imposta l'angolo x in alto a sinistra della schermata rispetto alla superficie del desktop:
  src["startx"] = 0
  src["use-damage"] = 0
  src["xid"] = Numero_identificativo_della_finestra
  sca = New MediaControl(pl, "videoscale")
  sca["method"] = 0
' Imposta la dimensione del file immagine finale:
  flt = New MediaFilter(pl, "video/x-raw,width=640,height=480")
  con = New MediaControl(pl, "videoconvert")
  png = New MediaControl(pl, "pngenc")
  snk = New MediaControl(pl, "filesink")
  snk["location"] = "/tmp/screenshot.png"
  
' Vengono collegati i vari plug-in di GStreamer utilizzati:
  src.LinkTo(sca)
  sca.LinkTo(flt)
  flt.LinkTo(con)
  con.LinkTo(png)
  png.LinkTo(snk)
  
End


Public Sub Button1_Click()
 
' Effettua lo "screenshot":
 pl.Play()
' Chiude il flusso:
 pl.Stop()
 
End


In quest caso, simile al precedente, la finestra sarà individuata con "Desktop.FindWindow( )":

Public Sub Form_Open()
 
 Dim pl As MediaPipeline
 Dim wid As Integer
 Dim src, sca, con, png, snk As MediaControl
  
' Passa il nome visibile della finestra prescelta e ne individua il numero identificativo:
 wid = Desktop.FindWindow(titolo_della_finestra_del_programma, Null, Null)[0]
 
 pl = New MediaPipeline
 
 src = New MediaControl(pl, "ximagesrc")
' Imposta l'angolo x in alto a sinistra della schermata rispetto alla superficie della finestra del programma:
 src["startx"] = 0
 src["use-damage"] = 0
 src["xid"] = wid
 sca = New MediaControl(pl, "videoscale")
 sca["method"] = 0
 con = New MediaControl(pl, "videoconvert")
 png = New MediaControl(pl, "pngenc")
 snk = New MediaControl(pl, "multifilesink")
' Imposta il percorso, il nome e il formato del file immagine che sarà creato:
 snk["location"] = "/tmp/foto.png" 
 
' Vengono collegati i vari plug-in di GStreamer utilizzati:
 src.LinkTo(sca)
 sca.LinkTo(con)
 con.LinkTo(png)
 png.LinkTo(snk)
 
 
' Effettua la schermata:
 pl.Play()
 pl.Stop
 pl.Close
 
End