Советы по Delphi
Печать текста в обход Windows
ОТкройте файл типа TextFile и пишите в него напрямую:
| varLst: TextFile; beginAssignFile(Lst, 'LPT1');Rewrite(Lst);WriteLn(Lst, 'Здравствуй, мир!');Close(Lst);end. |
При этом вы должны помнить, что при данной технологии вы не можете в это же время печатать из другой программы, иначе наступит конец света, а ваша распечатка будет похожа на "запутанный беспорядк".
Если вы планируете посылать на принтер управляющие коды, вызывайте следующую функцию немедленно после перезаписи файла:
| procedure SetBinaryMode (var F: Text); assembler; asm mov ax,$4400les di,Fmov bx,word ptr es:[di]int $21or dl,$20xor dh,dhmov ax,$4401int $21 end; |
-Steve [000610]
