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

Da Gambas-it.org - Wikipedia.
Riga 2: Riga 2:
  
  
−
Mostriamo di seguito un semplice e breve codice per stampare un file:
+
Mostriamo di seguito un semplice e breve codice per stampare un solo file:
 
  '''Public''' Struct Cups_option_s    <FONT color=gray>' ''Opzioni di stampa''</font>
 
  '''Public''' Struct Cups_option_s    <FONT color=gray>' ''Opzioni di stampa''</font>
 
   name As Pointer              <FONT color=gray>' ''Nome dell'opzione''</font>
 
   name As Pointer              <FONT color=gray>' ''Nome dell'opzione''</font>
Riga 10: Riga 10:
 
  Library "libcups:2"
 
  Library "libcups:2"
 
   
 
   
−
  <FONT color=gray>' ''int cupsPrintFiles(const char *name, int num_files, const char **files, const char *title, int num_options, cups_option_t *options)''</font>
+
  <FONT color=gray>' ''int cupsPrintFile(const char *printer, const char *filename, const char *title, int num_options, cups_option_t *options)''</font>
−
  '''Private''' Extern cupsPrintFiles(name As String, num_files As Integer, files As String[], title As String, num_options As Integer, options As Cups_option_s) As Integer
+
  '''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()
 
  '''Public''' Sub Main()
 
   
 
   
−
  Dim $file As New String[10]
 
 
   Dim err As Integer
 
   Dim err As Integer
−
 
−
 
−
  $file[0] = "''percorso/del/file/da/stampare/''"
 
 
   
 
   
 
   
 
   
Riga 26: Riga 22:
 
  ' ''Tale nome è uguale a quello del file .ppd afferente alla stampante,''
 
  ' ''Tale nome è uguale a quello del file .ppd afferente alla stampante,''
 
  ' ''presente nella cartella "/etc/cups/ppd" e privo della sua estensione:''</font>
 
  ' ''presente nella cartella "/etc/cups/ppd" e privo della sua estensione:''</font>
−
   err = cupsPrintFiles("''nome-della-stampante''", 1, $file, $file[0], 0, Null)
+
   err = cupsPrintFile("<FONT color=gray>''nome-della-stampante''</font>", "<FONT color=gray>''percorso/del/file/da/stampare/''</font>", "Testo 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 11:06, 10 nov 2013

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 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 err As Integer


' Nel primo argomento va inserito il nome della stampante che dovrà stampare il file.
' Tale nome è uguale a quello del file .ppd afferente alla stampante,
' presente nella cartella "/etc/cups/ppd" e privo della sua estensione:
  err = cupsPrintFile("nome-della-stampante", "percorso/del/file/da/stampare/", "Testo qualsiasi", 0, Null)
  if err = 0 then Error.Raise("Stampa del file fallita !")

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Stampare_un_file_con_le_funzioni_del_API_di_cups&oldid=14079"