Глава 17. Модуль Printer

Среди прочих модулей в библиотеке языка содержится модуль Printer. Назначение этого модуля — устанавливать связь программ с печатающим устройством (как правило, принтером). В этой главе рассматривается содержимое этого модуля и приводятся некоторые, надеемся, полезные примеры работы с принтерами.

7.1. Содержимое модуля Printer

Этот модуль содержит всего одну переменную и две строки исполняемого текста. Он устанавливает соответствие между переменной Lst и системным устройством LPT1 (первым параллельным портом). Полный текст модуля приведен на рис. 17.1.

UNIT Printer; INTERFACE VAR Lst : Text; IMPLEMENTATION BEGIN Assign ( Lst, 'LPT1' ); Rewrite( Lst ) END.

Рис. 17.1

После подключения модуля Printer операторы Write ( Lst, ... ) и WriteLn( Lst, ... ) будут выводить данные непосредственно на принтер. Поначалу этот модуль может показаться лишним, так как его вполне можно «растворить» в основной программе. Однако, если программа строится из модулей, многие из которых выводят данные на печать, наличие общей для всех них переменной Lst, связанной с принтером, весьма удобно.

Если принтер подключен через какое-нибудь другое устройство, например через второй порт LPT2 или через последовательный порт COM1, то можно создать свой собственный модуль Printer2 по {387} аналогии с рис. 17.1, заменив LPT1 на другое имя и оттранслировав его.

17.2. Низкоуровневые средства работы с принтером

Вывод данных или специальных командных кодов на принтер через связанный с ним файл Lst или ему подобный — не единственный способ управлять печатью. Существует и другой путь посылки символа или их последовательности в принтер — через прерывание БСВВ 17H. Кроме того, используя это прерывание, можно опрашивать состояние устройства печати.

Прерывание 17H обеспечивает доступ к трем функциям обслуживания принтера:

— печати символа на принтере (функция номер 0);

— инициализации порта принтера (функция номер 1);

— чтению состояния принтера (функция номер 2).

При вызове прерывания регистр процессора AH должен содержать номер функции, а регистр DX — номер параллельного порта (0 соответствует LPT1, 1 — LPT2, 2 — LPT3). При вызове функции 0 надо дополнительно загрузить в регистр AL ASCII-код посылаемого в принтер символа. Прерывание после выполнения всегда возвращает в регистре AH байт состояния принтера. Некоторое исключение составляет функция 0. Если она закончилась неудачей, то после небольшой задержки в регистре AH вернется значение 01H.

Наиболее полезна для программ, работающих с принтерами, функция номер 2, опрашивающая байт состояния принтера. Этот байт имеет следующую структуру (рис. 17.2).

Бит 7

Бит6

Бит 5

Бит 4

Бит 3

Бит 2

Бит 1

Бит 0

— принтер занят (0) или ждет символ (READY) (1)

— если 1, то принтер подключен

— если 1, то кончилась бумага (PAPER OUT)

— если 1, то принтер в состоянии принять сигнал

— если 1, то ошибка ввода-вывода

— не используется (зарезервирован)

— не используется (зарезервирован)

— если 1, то задержка (timeout)

Рис. 17.2 {388}

В специальной литературе оговаривается, что результаты опроса состояния принтера через прерывание 17H могут меняться на различных ПЭВМ и с различными принтерами. Это не значит, что прерывание нельзя использовать. Практически всегда должно выполняться условие возможности получения очередного символа на бумаге. Оно заключается в том, что перед выводом символа на печать биты 4 и 7 байта состояния принтера должны содержать единицы, т.е. в регистре AH после опроса должно быть значение 10H+80H=90H. Более «тонкие» проверки следует протестировать на конкретных ПЭВМ. На рис. 17.3 приводится пример функции опроса состояния принтера и связанной с ней процедуры печати файла из программы. В большинстве случаев эти подпрограммы должны работать корректно.

USES DOS, CRT, Printer; { Функция возвращает код состояния принтера LPT1 (PRN). При работе требуется подключение модуля DOS. } FUNCTION TestPrinter : ShortInt; VAR R : Registers; { служебная переменная } BEGIN TestPrinter := 100; { исходное значение } R.AH:=$02; { функция номер 2 } R.DX:=$00; { принтер в LPT1 } Intr( $17, R ); { прерывание 17H } if (R.AH and $10) = $00 { проверка наличия } then begin TestPrinter := -1; { принтер не подключен } Exit { выход из функции } end; if (R.AH and $80) = $00 { проверка готовности: } then TestPrinter := 0 { подключен, но OFF LINE } else TestPrinter := +1; { подключен, и ON LINE } END; { Процедура печатает файл FileName на принтере, подключенном к LPT1, анализируя состояние принтера. Можно прервать процедуру, нажав клавишу Esc. X и Y - координаты сообщения на экране. Для работы нужны модули Printer и CRT. }

Рис. 17.3 {389}

PROCEDURE PrintFile( X, Y : Byte; FileName : String ); LABEL mStop; { метка выхода no Esc } VAR f : Text; s : String; { служебные переменные } Т : ShortInt; { результат опроса принтера } BEGIN REPEAT { цикл опроса состояния LPT1 } Т := TestPrinter; { см. предыдущую страницу } if KeyPressed { опрос клавиш } then if ReadKey=#27 then Exit; { Esc – выход } GotoXY( X,Y ); case Т of { анализ LPT1: } -1 : Write( ' ПРИНТЕР НЕ ПОДКЛЮЧЕН...' ); 0 : Write( ' НАЖМИТЕ <ON LINE> !... '); +1 : Write( ' РЕЗУЛЬТАТЫ ВЫВОДЯТСЯ... ' ); else Write( ' ПРОБЛЕМЫ С ПРИНТЕРОМ... ' ); end; Write( ' (ОТКАЗ - Esc)' ); UNTIL ( T=1 ); { при Т=1 уже можно печатать } Assign( f, FileName ); { связывание файла FileName } Reset( f ); { открытие его для чтения } while not EOF(f) do begin { печать файла по строкам } ReadLn( f, s ); { чтение строки } if KeyPressed then { опрос клавиш } if ReadKey=#27 then Goto mStop; { Esc – выход } WriteLn( 1st, s ) { печать строки } end; {while} { конец цикла печати файла } mStop : Close( f ) { закрытие файла FileName } END; BEGIN PrintFile(10,10, 'ris17-3.pas'); { печать текст-файла } END.

Рис.17.3 (Окончание)