Differenze tra le versioni di "Stampare un file con le funzioni del API di cups"

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