Ottenere una schermata ("screenshot") con Gambas - Cronologia

Vuott il 09:30, 28 set 2024

2024-09-28T09:30:22Z

← Versione meno recente		Versione delle 03:30, 28 set 2024
Riga 98:		Riga 98:

	==Uso delle risorse del Componente ''gb.media''==		==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~~''.		Anche il Componente ''gb.media'' può consentire di effettuare una schermata del desktop, in particolare utilizzando le risorse delle Classi ''MediaPipeline'' e ''MediaControl''.

	Mostriamo un semplice esempio:		Mostriamo un semplice esempio:
Riga 107:		Riga 107:

	Dim src, con, png, snk As MediaControl		Dim src, con, png, snk As MediaControl
	~~Dim flt As MediaFilter~~

	pl = New MediaPipeline		pl = New MediaPipeline
Riga 138:		Riga 137:

	End		End
	o anche ~~eliminando il plug-in "Filter" e~~ utilizzando ~~in sua vece~~ le proprietà "endx" e "endy" del plug-in ''ximagesrc'':		o anche utilizzando le proprietà "endx" e "endy" del plug-in ''ximagesrc'':
	Private pl As MediaPipeline		Private pl As MediaPipeline

Vuott il 16:29, 11 giu 2023

2023-06-11T16:29:21Z

Mostra modifiche

Vuott il 18:17, 13 mag 2023

2023-05-13T18:17:03Z

← Versione meno recente		Versione delle 12:17, 13 mag 2023
Riga 2:		Riga 2:


	==Uso del Metodo ''.Screenshot( )'' della classe ''Desktop''==		==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.		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.

Riga 18:		Riga 18:

	'''End'''		'''End'''

	Mostriamo ora un esempio più complesso: determineremo con lo spostamento del mouse l'area della schermata da mostrare nella ''PictureBox''.		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 pn As Panel
Riga 75:		Riga 74:


	==Ottenere la schermata di una particolare finestra mediante il Metodo ''.GetScreenshot( )'' della Classe ''DesktopWindow''==		==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''".		Quast'altra modalità prevede l'uso del Metodo "''.GetScreenshot( )''" della Classe "''DesktopWindow''", attivando il Componente "''gb.desktop''".

Riga 109:		Riga 108:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	Dim src~~, sca~~, con, png, snk As MediaControl		Dim src, con, png, snk As MediaControl
	Dim flt As MediaFilter		Dim flt As MediaFilter

Riga 118:		Riga 117:
	src["startx"] = 0		src["startx"] = 0
	src["use-damage"] = 0		src["use-damage"] = 0
	~~sca = New MediaControl(pl, "videoscale")~~
	~~sca["method"] = 0~~
	~~<FONT Color=gray>' ''Imposta la dimensione del file immagine finale:''</font>~~
	~~flt = New MediaFilter(pl, "video/x-raw,width=640,height=480")~~
	con = New MediaControl(pl, "videoconvert")		con = New MediaControl(pl, "videoconvert")
	png = New MediaControl(pl, "pngenc")		png = New MediaControl(pl, "pngenc")
Riga 128:		Riga 123:

	<FONT Color=gray>' ''Vengono collegati i vari plug-in di GStreamer utilizzati:''</font>		<FONT Color=gray>' ''Vengono collegati i vari plug-in di GStreamer utilizzati:''</font>
	src~~.LinkTo(sca)~~		src.LinkTo(con)
	~~sca.LinkTo(flt)~~
	~~flt~~.LinkTo(con)
	con.LinkTo(png)		con.LinkTo(png)
	png.LinkTo(snk)		png.LinkTo(snk)
Riga 148:		Riga 141:

	'''End'''		'''End'''

	o anche eliminando il plug-in "Filter" e utilizzando in sua vece le proprietà "''endx''" e "''endy''" di "''ximagesrc''":		o anche eliminando il plug-in "Filter" e utilizzando in sua vece le proprietà "''endx''" e "''endy''" di "''ximagesrc''":
	Private pl As MediaPipeline		Private pl As MediaPipeline
Riga 194:		Riga 186:

	'''End'''		'''End'''
			oppure più semplicemente così:
			Private pl As MediaPipeline


			Public Sub Form_Open()

			Dim src, con, png, snk As MediaControl

			pl = New MediaPipeline

			src = New MediaControl(pl, "ximagesrc")
			src["xid"] = <FONT Color=gray>''numero_identificativo_della_finestra (ad esempio della Scrivania)''</font>
			con = New MediaControl(pl, "videoconvert")
			png = New MediaControl(pl, "pngenc")
			snk = New MediaControl(pl, "filesink")
			snk["location"] = "/tmp/screenshot.png"

			src.LinkTo(con)
			con.LinkTo(png)
			png.LinkTo(snk)

			End

			Public Sub Button1_Click()

			<FONT Color=gray>' ''Effettua lo "screenshot":''</font>
			pl.Play()
			<FONT Color=gray>' ''Chiude il flusso:''</font>
			pl.Stop()

			End

Vuott il 15:41, 29 ago 2019

2019-08-29T15:41:59Z

← Versione meno recente		Versione delle 09:41, 29 ago 2019
Riga 304:		Riga 304:
	Dim pl As MediaPipeline		Dim pl As MediaPipeline
	Dim wid As Integer		Dim wid As Integer
	Dim src~~, sca~~, con, png, snk As MediaControl		Dim src, con, png, snk As MediaControl

	<FONT Color=gray>' ''Viene individuato il numero identificativo della finestra:''</font>		<FONT Color=gray>' ''Viene individuato il numero identificativo della finestra:''</font>
Riga 316:		Riga 316:
	src["use-damage"] = 0		src["use-damage"] = 0
	src["xid"] = wid		src["xid"] = wid
	~~sca = New MediaControl(pl, "videoscale")~~
	~~sca["method"] = 0~~
	con = New MediaControl(pl, "videoconvert")		con = New MediaControl(pl, "videoconvert")
	png = New MediaControl(pl, "pngenc")		png = New MediaControl(pl, "pngenc")
Riga 325:		Riga 323:

	<FONT Color=gray>' ''Vengono collegati i vari plug-in di GStreamer utilizzati:''</font>		<FONT Color=gray>' ''Vengono collegati i vari plug-in di GStreamer utilizzati:''</font>
	src~~.LinkTo(sca)~~		src.LinkTo(con)
	~~sca~~.LinkTo(con)
	con.LinkTo(png)		con.LinkTo(png)
	png.LinkTo(snk)		png.LinkTo(snk)

Vuott il 15:40, 29 ago 2019

2019-08-29T15:40:39Z

← Versione meno recente		Versione delle 09:40, 29 ago 2019
Riga 306:		Riga 306:
	Dim src, sca, con, png, snk As MediaControl		Dim src, sca, con, png, snk As MediaControl

	<FONT Color=gray>' ''~~Passa~~ il ~~nome visibile~~ della finestra ~~prescelta e ne individua il numero identificativo~~:''</font>		<FONT Color=gray>' ''Viene individuato il numero identificativo della finestra:''</font>
	wid = Desktop.FindWindow(<FONT Color=gray>''~~titolo_della_finestra_del_programma~~''</font>, Null, Null)[0]		wid = Desktop.FindWindow(<FONT Color=gray>''titolo_della_finestra''</font>, Null, Null)[0]

	pl = New MediaPipeline		pl = New MediaPipeline

	src = New MediaControl(pl, "ximagesrc")		src = New MediaControl(pl, "ximagesrc")
	<FONT Color=gray>' ''Imposta l'angolo x in alto a sinistra della schermata rispetto alla superficie della finestra ~~del programma~~:''</font>		<FONT Color=gray>' ''Imposta l'angolo x in alto a sinistra della schermata rispetto alla superficie della finestra:''</font>
	src["startx"] = 0		src["startx"] = 0
	src["use-damage"] = 0		src["use-damage"] = 0

Vuott il 15:38, 29 ago 2019

2019-08-29T15:38:57Z

← Versione meno recente		Versione delle 09:38, 29 ago 2019
Riga 299:		Riga 299:


	In quest caso, ~~identico~~ al precedente, la finestra sarà individuata con "''Desktop.FindWindow( )''":		In quest caso, simile al precedente, la finestra sarà individuata con "''Desktop.FindWindow( )''":
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Vuott il 15:38, 29 ago 2019

2019-08-29T15:38:24Z

@@ Riga 295: / Riga 295: @@
   <FONT Color=gray>' ''Chiude il flusso:''</font>
    pl.Stop()
   '''End'''

Vuott il 22:08, 27 ago 2018

2018-08-27T22:08:09Z

@@ Riga 148: / Riga 148: @@
   '''End'''
 In quest'altro esempio l'immagine della schermata verrà mostrata sulla superficie di una ''DrawingArea'' posta sul ''Form'' del programma Gambas:
@@ Riga 205: / Riga 252: @@
   '''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''":

Vuott il 00:01, 21 lug 2017

2017-07-21T00:01:05Z

@@ Riga 198: / Riga 198: @@
   <FONT Color=gray>' ''Attende 3 secondi prima di effettuare lo "screenshot":''</font>
    Wait 3
   <FONT Color=gray>' ''Effettua lo "screenshot":''</font>

Vuott il 23:33, 20 lug 2017

2017-07-20T23:33:56Z

← Versione meno recente		Versione delle 17:33, 20 lug 2017
Riga 9:		Riga 9:

	Dim pc As Picture		Dim pc As Picture

	<FONT color=gray>' ''Individuiamo il riquadro interessato dallo screenshot secondo i soliti parametri: X, Y, Width, Height.''		<FONT color=gray>' ''Individuiamo il riquadro interessato dallo screenshot secondo i soliti parametri: X, Y, Width, Height.''
	' ''Assegnamo, quindi, la schermata in una variabile di tipo "Picture"...:''</font>		' ''Assegnamo, quindi, la schermata in una variabile di tipo "Picture"...:''</font>
	pc = Desktop.Screenshot(100, 100, 100, 100)		pc = Desktop.Screenshot(100, 100, 100, 100)

	<FONT color=gray>' ''...che caricheremo in una "PictureBox" per mostrarla:''</font>		<FONT color=gray>' ''...che caricheremo in una "PictureBox" per mostrarla:''</font>
	PictureBox1.Picture = pc		PictureBox1.Picture = pc

	'''End'''		'''End'''

Riga 34:		Riga 34:

	<FONT color=gray>' ''Per definire, anche visivamente, l'area utilizzeremo un "Panel":''</font>		<FONT color=gray>' ''Per definire, anche visivamente, l'area utilizzeremo un "Panel":''</font>
	pn = New Panel(Me)		pn = New Panel(Me)

	<FONT color=gray>' ''Raccogliamo le coordinate iniziali del mouse nel momento del clic:''</font>		<FONT color=gray>' ''Raccogliamo le coordinate iniziali del mouse nel momento del clic:''</font>
	xIniz = Mouse.X		xIniz = Mouse.X
	yIniz = Mouse.Y		yIniz = Mouse.Y

	'''End'''		'''End'''

Riga 45:		Riga 45:
	'''Public''' Sub Form_MouseMove()		'''Public''' Sub Form_MouseMove()

	With pn		With pn
	.Border = Border.Plain		.Border = Border.Plain
	.Width = Mouse.X - xIniz		.Width = Mouse.X - xIniz
Riga 51:		Riga 51:
	.X = xIniz <FONT color=gray>' ''le coordinate di partenza sono quelle impostate...''</font>		.X = xIniz <FONT color=gray>' ''le coordinate di partenza sono quelle impostate...''</font>
	.Y = yIniz <FONT color=gray>' ''...con il MouseDown.''</font>		.Y = yIniz <FONT color=gray>' ''...con il MouseDown.''</font>
	End With		End With

	'''End'''		'''End'''

Riga 63:		Riga 63:
	pc = Desktop.Screenshot(.X, .Y, .W, .H)		pc = Desktop.Screenshot(.X, .Y, .W, .H)
	End With		End With

	<FONT color=gray>' ''Mostriamo la picture della schermata nella "PictureBox" posta sul form:''</font>		<FONT color=gray>' ''Mostriamo la picture della schermata nella "PictureBox" posta sul form:''</font>
	PictureBox1.Picture = pc		PictureBox1.Picture = pc

	<FONT color=gray>' ''Quindi salviamo da qualche parte la schermata:''</font>		<FONT color=gray>' ''Quindi salviamo da qualche parte la schermata:''</font>
	pc.Save("/tmp/schermata.png")		pc.Save("/tmp/schermata.png")

	pn.Delete		pn.Delete


	'''End'''		'''End'''