Visualizza wikitesto di Ottenere la schermata (screenshot) della finestra di un programma

Per ottenere la schermata (screenshot) della finestra di un programma Gambas <SUP>&#091;[[#Note|nota 1]]&#093;</sup> o di un programma esterno, si potranno utilizzare alcune risorse della Classe ''Desktop'' attivando i Componenti ''gb.desktop'' e ''gb.desktop.x11'' .


Mostriamo un esempio, nel quale verrà effettuata un'istantanea schermata della finestra di un programma Gambas, dalla quale si otterrà un file immagine:
 Public Sub Button1_Click()
  
  Dim pc As Picture
   
  pc = Desktop.Windows.FromHandle(Me.Handle).GetScreenshot(True)
    
  pc.Save("/tmp/immagine.png", 100)
   
 End
In quest'altro caso, tenendo ''attiva'' la finestra di un programma esterno, se ne otterrà una schermata e quindi un relativo file immagine.
<BR>Poniamo il caso di avere attiva la finestra della calcolatrice (il nome della sua finestra è ''Calculator''):
 Public Sub Button1_Click()
  
  Dim i As Integer
  Dim pc As Picture
  
  i = Desktop.FindWindow("*Calculator*", Null, Null)[0]
   
  pc = Desktop.Windows.FromHandle(i).GetScreenshot(True)
    
  pc.Save("/tmp/immagine.png", 100)
   
 End


==Usando alcune risorse del Componente ''gb.media''==
Si potranno anche usare le risorse delle Classi ''MediaPipeline'' e ''MediaControl'' del Componente ''gb.media'', assegnando l'identificativo della finestra del programma, sia esso un programma Gambas o esterno.
<BR>Sarà catturato nel file immagine anche eventualmente il puntatore del mouse.
 Public Sub Button1_Click()
 
  Dim pl As MediaPipeline
  Dim src, con, png, snk As MediaControl 
 
  pl = New MediaPipeline
 
  src = New MediaControl(pl, "ximagesrc")
  src["xid"] = Me.Id    <FONT Color=gray>' ''Assegna il numero identificativo della finestra di un programma Gambas o esterno, dellla quale si otterrà il file PNG''</font>
  con = New MediaControl(pl, "videoconvert")
  png = New MediaControl(pl, "pngenc")
  snk = New MediaControl(pl, "filesink")
  snk["location"] = "/tmp/immagine.png"
 
  src.LinkTo(con)
  con.LinkTo(png)
  png.LinkTo(snk)
 
 <FONT Color=gray>' ''Crea il file PNG e poi chiude il flusso di dati:''</font>
  pl.Play()
  pl.Stop()
  pl.Close
 
 End



=Note=
* Vedere anche questa pagina della Wiki: [[Ottenere un'immagine del Form]].