Individuare le stampanti presenti nel proprio sistema - Cronologia

Vuott il 23:54, 13 dic 2024

2024-12-13T23:54:08Z

← Versione meno recente		Versione delle 17:54, 13 dic 2024
Riga 5:		Riga 5:

	Vediamo un esempio pratico:		Vediamo un esempio pratico:
	Public Sub ~~Form_Open~~()		Public Sub Button1_Click()

	Dim stampanti As String		Dim stampanti As String

Vuott il 21:33, 30 set 2024

2024-09-30T21:33:35Z

← Versione meno recente		Versione delle 15:33, 30 set 2024
Riga 2:		Riga 2:
	==Uso della Classe ''Printer''==		==Uso della Classe ''Printer''==
	La Classe ''Printer'' ci fornisce alcune proprietà statiche che assolvono alla funzione di cui in oggetto.		La Classe ''Printer'' ci fornisce alcune proprietà statiche che assolvono alla funzione di cui in oggetto.
			<BR>In particolare con la Proprietà ".List" otterremo un elenco delle stampanti disponibili nel nostro sistema; mentre con la Proprietà ".Default" conosceremo la stampante, disponibile nel nostro sistema, impostata come predefinita per la stampa.

	Vediamo un esempio pratico:		Vediamo un esempio pratico:
Riga 10:		Riga 11:
	Print "Le stampanti installate sono:"		Print "Le stampanti installate sono:"

	For Each stampanti In Printer.List		For Each stampanti In Printer<FONT Color=red>.List</font>
	Print stampanti		Print stampanti
	Next		Next

	Print "\nLa stampante predefinita è:"		Print "\nLa stampante predefinita è:"
	Print Printer.Default		Print Printer<FONT Color=green>.Default</font>

	End		End

Vuott il 19:37, 28 set 2024

2024-09-28T19:37:06Z

← Versione meno recente		Versione delle 13:37, 28 set 2024
Riga 120:		Riga 120:

	Mostriamo un semplice esempio:		Mostriamo un semplice esempio:
	Library "/usr/lib/x86_64-linux-gnu/gtk-3.0/3.0.0/printbackends/libprintbackend-file" <FONT Color=gray>' ''Per Ubuntu''</font>		Library "/usr/lib/x86_64-linux-gnu/gtk-3.0/3.0.0/printbackends/libprintbackend-file" <FONT Color=gray>' ''Per</font> <FONT Color=#B22222>Ubuntu''</font>

	Library "/usr/lib/gtk-4.0/4.0.0/printbackends/libprintbackend-file" <FONT Color=gray>' ''Per Archilinux/Manjaro''</font>		Library "/usr/lib/gtk-4.0/4.0.0/printbackends/libprintbackend-file" <FONT Color=gray>' ''Per</font> <FONT Color=#B22222>Archilinux/Manjaro''</font>

	<FONT Color=gray>' ''void gtk_init (int argc, char **argv)''		<FONT Color=gray>' ''void gtk_init (int argc, char **argv)''

Vuott il 19:33, 28 set 2024

2024-09-28T19:33:33Z

← Versione meno recente		Versione delle 13:33, 28 set 2024
Riga 66:		Riga 66:
	Print b, stampa & predef		Print b, stampa & predef
	predef = Null		predef = Null
	p = p + 16		p = p + (SizeOf(gb.Pointer) * 2)
	Next		Next

Vuott il 19:31, 28 set 2024

2024-09-28T19:31:44Z

← Versione meno recente		Versione delle 13:31, 28 set 2024
Riga 102:		Riga 102:

	End		End
	Si potrà utilizzare anche quest'altro codice ~~<SUP>[ [[#Note\|nota 1]] ]</sup>~~, più breve, che non necessita di inserire alcuna password:		Si potrà utilizzare anche quest'altro codice, più breve, che non necessita di inserire alcuna password:
	Public Sub Button1_Click()		Public Sub Button1_Click()

	~~Dim fl As File~~		Dim s As String
	Dim s As String
	Dim ss As New String[]		Dim ss As New String[]

	fl = ~~Open~~ "/etc/printcap" ~~For Input~~		s = File.Load("/etc/printcap")

	~~While Not Eof(fl~~)		ss = Split(Trim(s), "\n")
	~~Input #fl, s~~
	ss~~.Add~~(Trim(s))		Print "La stampante predefinita è: \e[31m"; Scan(ss[ss.Max], "\|")[0]
	~~If ss.Max = 23 Then~~ Print "La stampante predefinita è: "; ~~Split~~(ss[23], "\|")[0]
	~~Wend~~

	~~fl.Close~~

	End		End

Vuott il 19:21, 28 set 2024

2024-09-28T19:21:35Z

← Versione meno recente		Versione delle 13:21, 28 set 2024
Riga 80:		Riga 80:

	<FONT color=gray>' ''E' necessario avere il pieno accesso alla lettura del seguente file:''</font>		<FONT color=gray>' ''E' necessario avere il pieno accesso alla lettura del seguente file:''</font>
	Desktop.RunAsRoot("chmod 444 /etc/cups/printers.conf.O")		Desktop.RunAsRoot("chmod 444 /etc/cups/printers.conf")

	<FONT color=gray>' ''Resta in attesa fino a che i permessi del file in questione non saranno cambiati:''</font>		<FONT color=gray>' ''Resta in attesa fino a che i permessi del file in questione non saranno cambiati:''</font>
	Repeat		Repeat
	Wait 0.01		Wait 0.01
	Until Stat("/etc/cups/printers.conf.O").Auth = "r--r--r--"		Until Stat("/etc/cups/printers.conf").Auth = "r--r--r--"

	fl = Open "/etc/cups/printers.conf.O" For Input		fl = Open "/etc/cups/printers.conf" For Input

	While Not Eof(fl)		While Not Eof(fl)

Vuott il 19:13, 28 set 2024

2024-09-28T19:13:43Z

← Versione meno recente		Versione delle 13:13, 28 set 2024
Riga 20:		Riga 20:

	==Leggere i file presenti nella cartella ''/etc/cups/ppd/''==		==Leggere i file presenti nella cartella ''/etc/cups/ppd/''==
	La seconda modalità prevede di leggere i file, creati per ciascuna di esse, nella cartella: ''/etc/cups/ppd/'' <~~SUP>[ [[#Note\|nota 1]] ]</sup~~>. Ciascuno di tali file riporta il nome della stampante, alla quale si riferisce, nonché l'estensione ''.ppd''. Pertanto, il compito è quello di prendere il solo nome del file, che corrisponde anche alla singola stampante, escludendo l'estensione.		La seconda modalità prevede di leggere i file, creati per ciascuna di esse, nella cartella: ''/etc/cups/ppd/''.
			<BR>Ciascuno di tali file riporta il nome della stampante, alla quale si riferisce, nonché l'estensione ''.ppd''. Pertanto, il compito è quello di prendere il solo nome del file, che corrisponde anche alla singola stampante, escludendo l'estensione.

	Potremo dunque utilizzare questo semplice codice:		Potremo dunque utilizzare questo semplice codice:
Riga 170:		Riga 171:

	End		End



	~~=Note=~~
	~~[1] Testato su Ubuntu.~~

Vuott il 22:41, 28 giu 2024

2024-06-28T22:41:22Z

← Versione meno recente		Versione delle 16:41, 28 giu 2024
Riga 20:		Riga 20:

	==Leggere i file presenti nella cartella ''/etc/cups/ppd/''==		==Leggere i file presenti nella cartella ''/etc/cups/ppd/''==
	La seconda modalità prevede di leggere i file, creati per ciascuna di esse, nella cartella: ''/etc/cups/ppd/'' <SUP>[ [[#Note\|~~Nota~~ 1]] ]</sup>. Ciascuno di tali file riporta il nome della stampante, alla quale si riferisce, nonché l'estensione ''.ppd''. Pertanto, il compito è quello di prendere il solo nome del file, che corrisponde anche alla singola stampante, escludendo l'estensione.		La seconda modalità prevede di leggere i file, creati per ciascuna di esse, nella cartella: ''/etc/cups/ppd/'' <SUP>[ [[#Note\|nota 1]] ]</sup>. Ciascuno di tali file riporta il nome della stampante, alla quale si riferisce, nonché l'estensione ''.ppd''. Pertanto, il compito è quello di prendere il solo nome del file, che corrisponde anche alla singola stampante, escludendo l'estensione.

	Potremo dunque utilizzare questo semplice codice:		Potremo dunque utilizzare questo semplice codice:
Riga 124:		Riga 124:

	Mostriamo un semplice esempio:		Mostriamo un semplice esempio:
	Library "/usr/lib/x86_64-linux-gnu/gtk-3.0/3.0.0/printbackends/libprintbackend-file"		Library "/usr/lib/x86_64-linux-gnu/gtk-3.0/3.0.0/printbackends/libprintbackend-file" <FONT Color=gray>' ''Per Ubuntu''</font>

			Library "/usr/lib/gtk-4.0/4.0.0/printbackends/libprintbackend-file" <FONT Color=gray>' ''Per Archilinux/Manjaro''</font>

	<FONT Color=gray>' ''void gtk_init (int argc, char **argv)''		<FONT Color=gray>' ''void gtk_init (int argc, char **argv)''
	' ''Call this function before using any other GTK+ functions in your GUI applications.''</font>		' ''Call this function before using any other GTK+ functions in your GUI applications.''</font>

Vuott il 08:46, 15 set 2023

2023-09-15T08:46:53Z

← Versione meno recente		Versione delle 02:46, 15 set 2023
Riga 1:		Riga 1:
	Se si vogliono individuare le stampanti presenti e riconosciute nel proprio sistema, nonché la stampante impostata come ''predefinita'', si possono adottare alcune modalità.		Se si vogliono individuare le stampanti presenti e riconosciute nel proprio sistema, nonché la stampante impostata come ''predefinita'', si possono adottare alcune modalità.


	==Uso della Classe ''Printer''==		==Uso della Classe ''Printer''==
	La Classe ''Printer'' ci fornisce alcune proprietà statiche che assolvono alla funzione di cui in oggetto.		La Classe ''Printer'' ci fornisce alcune proprietà statiche che assolvono alla funzione di cui in oggetto.

	Vediamo un esempio pratico:		Vediamo un esempio pratico:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim stampanti As String		Dim stampanti As String
Riga 19:		Riga 17:
	Print Printer.Default		Print Printer.Default

	~~'''~~End~~'''~~		End

	==Leggere i file presenti nella cartella ''/etc/cups/ppd/''==		==Leggere i file presenti nella cartella ''/etc/cups/ppd/''==
Riga 25:		Riga 23:

	Potremo dunque utilizzare questo semplice codice:		Potremo dunque utilizzare questo semplice codice:
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim stampante As String		Dim stampante As String
Riga 33:		Riga 31:
	Next		Next

	~~'''~~End~~'''~~		End

	==Usando alcune risorse della libreria esterna ''libcups.so.2''==		==Usando alcune risorse della libreria esterna ''libcups.so.2''==
Riga 74:		Riga 72:
	==Conoscere quale è la stampante impostata come predefinita==		==Conoscere quale è la stampante impostata come predefinita==
	Se si desidera conoscere la stampante impostata come predefinita (default), potremo utilizzare quest'altro codice (si dovrà attivare il componente ''gb.desktop''; e si dovrà aver installato nel proprio sistema l'applicazione ''xterm''):		Se si desidera conoscere la stampante impostata come predefinita (default), potremo utilizzare quest'altro codice (si dovrà attivare il componente ''gb.desktop''; e si dovrà aver installato nel proprio sistema l'applicazione ''xterm''):
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim fl As File		Dim fl As File
Riga 102:		Riga 100:
	fl.Close		fl.Close

	~~'''~~End~~'''~~		End
	Si potrà utilizzare anche quest'altro codice <SUP>[ [[#Note\|nota 1]] ]</sup>, più breve, che non necessita di inserire alcuna password:		Si potrà utilizzare anche quest'altro codice <SUP>[ [[#Note\|nota 1]] ]</sup>, più breve, che non necessita di inserire alcuna password:
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim fl As File		Dim fl As File
Riga 120:		Riga 118:
	fl.Close		fl.Close

	~~'''~~End~~'''~~		End

	==Uso della libreria esterna ''libprintbackend-file.so''==		==Uso della libreria esterna ''libprintbackend-file.so''==
Riga 149:		Riga 147:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	gtk_init(0, 0)		gtk_init(0, 0)
Riga 155:		Riga 153:
	gtk_enumerate_printers(Mostra, 0, 0, True)		gtk_enumerate_printers(Mostra, 0, 0, True)

	~~'''~~End~~'''~~		End

	~~'''~~Private~~'''~~ Procedure Mostra(stmp As Pointer, unused As Pointer)
			Private Procedure Mostra(stmp As Pointer, unused As Pointer)

	Dim stampante As String		Dim stampante As String
Riga 168:		Riga 167:
	Print		Print

	~~'''~~End~~'''~~		End

Vuott il 17:15, 22 giu 2023

2023-06-22T17:15:57Z

← Versione meno recente		Versione delle 11:15, 22 giu 2023
Riga 81:		Riga 81:

	<FONT color=gray>' ''E' necessario avere il pieno accesso alla lettura del seguente file:''</font>		<FONT color=gray>' ''E' necessario avere il pieno accesso alla lettura del seguente file:''</font>
	Desktop.RunAsRoot("chmod ~~4777~~ /etc/cups/printers.conf.O")		Desktop.RunAsRoot("chmod 444 /etc/cups/printers.conf.O")

	<FONT color=gray>' ''Resta in attesa fino a che i permessi del file in questione non saranno cambiati:''</font>		<FONT color=gray>' ''Resta in attesa fino a che i permessi del file in questione non saranno cambiati:''</font>
	Repeat		Repeat
	Wait 0.01		Wait 0.01
	Until Stat("/etc/cups/printers.conf.O").Auth = "~~rwsrwxrwx~~"		Until Stat("/etc/cups/printers.conf.O").Auth = "r--r--r--"

	fl = Open "/etc/cups/printers.conf.O" For Input		fl = Open "/etc/cups/printers.conf.O" For Input