Differenze tra le versioni di "Stampare un file con le funzioni del API di cups"
Da Gambas-it.org - Wikipedia.
Riga 21: | Riga 21: | ||
Dim stampante As String | Dim stampante As String | ||
Dim num_dests, err As Integer | Dim num_dests, err As Integer | ||
− | Dim p As Pointer | + | Dim p, pstmp As Pointer |
Riga 28: | Riga 28: | ||
Print "Sono state riscontrate installate nel sistema num. "; num_dests; " stampanti:\n" | Print "Sono state riscontrate installate nel sistema num. "; num_dests; " stampanti:\n" | ||
− | <FONT color=gray>' ''Dereferenziando la variabile di tipo "Puntatore" si | + | <FONT color=gray>' ''Dereferenziando la variabile di tipo "Puntatore" si ottengono i nomi delle stampanti installate.'' |
− | + | ' ''In particolare ciascun nome è uguale a quello del file .ppd afferente alla stampante installata,'' | |
− | ' ''In particolare | ||
' ''presente nella cartella "/etc/cups/ppd" e privo della sua estensione.'' | ' ''presente nella cartella "/etc/cups/ppd" e privo della sua estensione.'' | ||
− | ' ''Il nome della stampante andrà passato, come primo argomento, alla funzione "cupsPrintFile()".</font> | + | ' ''Il nome della stampante andrà passato, come primo argomento, alla funzione "cupsPrintFile()".''</font> |
− | + | st = Memory p For Read | |
− | + | ||
+ | For i = 0 To num_dests - 1 | ||
+ | Seek #st, i * 32 | ||
+ | Read #st, pstmp | ||
+ | <FONT color=gray>' ''Mostriamo in console il nome delle stampanti trovate installate nel sistema:''</font> | ||
+ | Print i, String@(pstmp) | ||
+ | <FONT color=gray>' ''In questo caso passiamo alla funzione "cupsPrintFile()" il nome dell'ultima stampante trovata:''</font> | ||
+ | stampante = String@(pstmp) | ||
+ | Next | ||
+ | st.Close() | ||
+ | |||
err = cupsPrintFile(stampante, "<FONT color=gray>''/percorso/del/file/da/stampare/''</font>", "Breve titolo qualsiasi", 0, Null) | err = cupsPrintFile(stampante, "<FONT color=gray>''/percorso/del/file/da/stampare/''</font>", "Breve titolo qualsiasi", 0, Null) | ||
If err = 0 then Error.Raise("Stampa del file fallita !") | If err = 0 then Error.Raise("Stampa del file fallita !") | ||
'''End''' | '''End''' |
Versione delle 05:32, 10 nov 2014
Per stampare un file con le funzioni esterne del API di Cups, e dunque senza l'uso della Classe Printer, bisognerà richiamare l'attuale libreria esterna: libcups.so.2 .
Mostriamo di seguito un semplice e breve codice per stampare un solo file:
Public Struct Cups_option_s ' Opzioni di stampa name As Pointer ' Nome dell'opzione value As Pointer ' Valore dell'opzione End Struct Library "libcups:2" ' int cupsGetDests(cups_dest_t **dests) Private Extern cupsGetDests(dests As Pointer) As Integer ' int cupsPrintFile(const char *printer, const char *filename, const char *title, int num_options, cups_option_t *options) Private Extern cupsPrintFile(stampante As String, nomefile As String, titolo As String, num_opzioni As Integer, opzioni As Cups_option_s) As Integer Public Sub Main() Dim stampante As String Dim num_dests, err As Integer Dim p, pstmp As Pointer num_dests = cupsGetDests(VarPtr(p)) Print "Sono state riscontrate installate nel sistema num. "; num_dests; " stampanti:\n" ' Dereferenziando la variabile di tipo "Puntatore" si ottengono i nomi delle stampanti installate. ' In particolare ciascun nome è uguale a quello del file .ppd afferente alla stampante installata, ' presente nella cartella "/etc/cups/ppd" e privo della sua estensione. ' Il nome della stampante andrà passato, come primo argomento, alla funzione "cupsPrintFile()". st = Memory p For Read For i = 0 To num_dests - 1 Seek #st, i * 32 Read #st, pstmp ' Mostriamo in console il nome delle stampanti trovate installate nel sistema: Print i, String@(pstmp) ' In questo caso passiamo alla funzione "cupsPrintFile()" il nome dell'ultima stampante trovata: stampante = String@(pstmp) Next st.Close() err = cupsPrintFile(stampante, "/percorso/del/file/da/stampare/", "Breve titolo qualsiasi", 0, Null) If err = 0 then Error.Raise("Stampa del file fallita !") End