home *** CD-ROM | disk | FTP | other *** search
- Prima che una applicazione utilizzi le funzioni della SPOOLER UNIT e`
- necessario che da DOS venga installato PRINT, con un comando di questo tipo:
-
- PRINT /D:LPT1 /Q:32 (Tutte le richieste di stampa a PRINT vengono evase
- da LPT1 e la coda puo` contenere fino a 32
- pathnames)
- ==============================================================================
- var SpoolerResult : word;
- ^^^^^^^^^^^^^
-
- Questa variabile puo` essere usata per verificare se l'ultima operazione
- richiesta a PRINT e` andata a buon fine (SpoolerResult=0):
-
- se l'operazione non e` andata a buon fine in seguito al fallimento di una
- verifica su SpoolerStatus i possibili valori sono:
-
- SPOOLER_NOT_INSTALLED PRINT non e` stato installato
- SPOOLER_CANNOT_BE_INSTALLED PRINT non e` stato installato e
- non puo` essere installato
-
- se l'operazione non e` andata a buon fine in seguito al settaggio del
- CARRY FLAG da parte di una delle funzioni di PRINT i possibili valori (da
- me ottenuti) sono:
-
- QUEUE_FULL una richiesta a SubmitFileS non e` stata
- soddisfatta (almeno non completamente)
- perche' i files accodati e non ancora
- stampati hanno raggiunto il massimo
- definito installando PRINT (/Q:nn) e si e`
- tentato di accodarne di piu`.
- -------------------------------------------------------------------------------
- function SpoolerStatus : word;
- ^^^^^^^^^^^^^
-
- Questa funzione e` usata soprattutto all'interno della SPOOLER UNIT, ma e`
- utile per verificare se PRINT e` stato installato.
-
- I possibili valori di ritorno sono:
-
- SPOOLER_INSTALLED PRINT e` stato installato
- SPOOLER_NOT_INSTALLED PRINT non e` stato installato
- SPOOLER_CANNOT_BE_INSTALLED PRINT non e` stato installato e
- non puo` essere installato
- -------------------------------------------------------------------------------
- procedure SubmitFileS (WildCString : EntryType; var Queue : QueueType);
- ^^^^^^^^^^^
-
- Questa procedura si occupa di accodare i files identificati da WildCString
- (puo` contenere delle wild cards '?' e '*').
-
- Il pathname viene espanso, quindi se WildCString='..\DOC\SPOOL*.*' e il
- drive/directory corrente e` 'C:\TP\SRC' verra` richiesto a PRINT di accodare
- tutti i files identificati da 'C:\TP\DOC\SPOOL*.*'.
-
- Al ritorno dalla procedura l'array di stringhe passato come var Queue
- contiene i nomi (espansi) di tutti i files accodati da questa chiamata a
- SubmitfileS (se Queue non e` pieno la stringhe successive all'ultima
- significativa hanno length()=0); se tutti i files identificati da WildCString
- hanno trovato posto nella coda SpoolerResult vale 0 altrimenti SpoolerResult
- vale QUEUE_FULL.
- -------------------------------------------------------------------------------
- procedure CancelFiles (WildCString : EntryType);
- ^^^^^^^^^^^
- Questa procedura si occupa di togliere i files identificati da WildCString
- (puo` contenere delle wild cards '?' e '*') dalla coda.
-
- Il pathname viene espanso quindi se WildCString='..\DOC\SPOOL*.*' e il
- drive/directory corrente e` 'C:\TP\SRC' verra` richiesto a PRINT di togliere
- dalla coda tutti i files identificati da 'C:\TP\DOC\SPOOL*.*'.
- -------------------------------------------------------------------------------
- procedure CancelAllFiles;
- ^^^^^^^^^^^^^^
- Questa procedura svuota la coda di stampa; se il drive/directory corrente e`
- lo stesso di quando e` stata chiamata SubmitFileS equivale a:
-
- CancelFiles('*.*');
- -------------------------------------------------------------------------------
- procedure ListQueue (var Queue : QueueType);
- ^^^^^^^^^
- Al ritorno dalla procedura l'array di stringhe passato come var Queue
- contiene i nomi (espansi) di tutti i files accodati dalle varie chiamate a
- SubmitfileS e non ancora stampati (la prima stringa contiene il pathname del
- file in stampa e le successive i pathnames dei files in coda).
-
- Se Queue non e` pieno le stringhe successive all'ultima significativa hanno
- length()=0).
- ==============================================================================
-
- Questa UNIT (tutti i files SORGENTI, OGGETTO e di DOCUMENTAZIONE) e` di
- PUBBLICO DOMINIO.
- E` liberamente copiabile e modificabile ma, d'altra parte, non rispondo di
- eventuali errori; comunque chi ne rilevasse e` pregato di segnalarmeli cosi`
- che possa correggerli.
- Se la distribuite ad altri includete tutti i files sopra elencati.
- Se la modificate cercate di includere tutti i files sopra elencati piu` la
- vostra versione modificata.
-